Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst VBA Spalten kopieren mit unterschiedlicher Breite

Mitglied: Shaggy84

Shaggy84 (Level 1) - Jetzt verbinden

19.03.2008, aktualisiert 25.03.2008, 10607 Aufrufe, 4 Kommentare

Hallo,

habe ein "kleines" Problem. Ich möchte einfach nur mehrere nicht direkt nebeneinanderliegende Spalten von einem in ein anderes Tabellenblatt kopieren, in dem sie dann nebeneinader liegen.

01.
Worksheets(3).Activate 
02.
Range("D:D,N:N,DB:DB,O:O,AA:AA,AD:AD,DE:DE").Select 
03.
Selection.Copy 
04.
Worksheets(4).Activate 
05.
Worksheets(4).Range("1:65535").PasteSpecial _ 
06.
Paste:=xlPasteValues
Jetzt habe ich hin und wieder die Fehlermeldung:
"Die Informationen können nicht eingefügt werden, da der Bereich Kopieren und der Bereich zum Einfügen unterschiedliche Formen und Größen haben. ..."

Gibt es einen Befehl womit ich das "Bearbeiten" -> "Zellen löschen" zuvor auf das ganze Tabellenblatt anwenden kann um alles zurück zu setzen bevor ich meine Daten einfüge?!

Grüße
Mitglied: bastla
19.03.2008 um 14:31 Uhr
Hallo Shaggy84!

Versuch es doch einmal damit, für den gewünschten Vorgang ("Zellen löschen") ein Makro aufzuzeichnen und den so erstellten Code dann zu analysieren/anzupassen ...

Grüße
bastla
Bitte warten ..
Mitglied: Shaggy84
19.03.2008 um 15:38 Uhr
Hallo bastla,

ja des hab ich schon bischen probiert mit dem "xlDeleteShiftUp" u.a. So ganz funktioniert hatte es aber noch nicht, mal schaun.

Jetzt aber erstmal frohe Ostern!
Bitte warten ..
Mitglied: bastla
19.03.2008 um 21:38 Uhr
Hallo Shaggy84!

Bei mir käme (etwas eingedampft) sowas raus:
01.
Cells.Delete Shift:=xlUp
Genügen würde aber schon:
01.
Cells.Delete
Grüße
bastla
Bitte warten ..
Mitglied: Shaggy84
25.03.2008 um 10:18 Uhr
Hallo bastla,

ja das obere passte schon

01.
Cells.Select 
02.
Selection.Delete Shift:=xlUp
Wenn ich nur alle Zeilen mit "Range" makiere und "Clear" benutze, ist zwar der Inhalt gelöscht, die veränderte Spaltenbreite bleibt erhalten.

01.
Range("1:65535").Clear
Grüße
Bitte warten ..
Ähnliche Inhalte
VB for Applications

Excel VBA: Horizontal Labels mit automatischer Breite

gelöst Frage von JuweeeVB for Applications5 Kommentare

Hallo, da mir das Thema mit den Überschriften in der Listbox so garnicht gefällt, möchte ich für jeden Spaltenüberschrift ...

Microsoft Office

Excel-VBA: Alle Werte einer Spalte in einer anderen Suchen

gelöst Frage von KevinPMicrosoft Office4 Kommentare

Hallo, ich hänge jetzt schon seit Tagen dran und komm nicht zu Rande. Ich versuche jeden Wert eines Tabellenblattes ...

Microsoft Office

Mit VBA: Spalten automatisch gruppieren und ausblenden

gelöst Frage von shadow-tswMicrosoft Office11 Kommentare

Huhu schönen guten Tag, ich bräuchte mal ein wenig Unterstützung: Ich habe eine Tabelle in der täglich Spalten ab ...

Microsoft Office

Exscel Tabelle in Spalten Aufteilen.... VBA

Frage von thomas1972Microsoft Office2 Kommentare

Hallo, ich habe eine Excel Tabelle, welche ich als CSV Datei exportieren möchte. Soweit so gut, nur bekomme ich ...

Neue Wissensbeiträge
Peripheriegeräte
Unterschrank für HP Drucker
Tipp von NixVerstehen vor 6 StundenPeripheriegeräte1 Kommentar

Als kurzen Freitags-Tipp möchte ich gerne meinen neuen Drucker-Unterschrank Modell Amica KS 15423W vorstellen. Das Gerät eignet sich hervorragend ...

Windows 10
Windows 10 - Probleme mit Point-And-Print
Tipp von emeriks vor 1 TagWindows 103 Kommentare

Hi, wir kämpfen z.Z. mit einigen Druckertreibern, welche unter Win10 beim Verbinden eines Druckers von Printserver mit dem Dialog ...

Windows 10

Windows 10 1803 - Ihr Roamingbenutzerprofil wurde nicht vollständig synchronisiert

Anleitung von Deepsys vor 1 TagWindows 101 Kommentar

Bei allen Windows 10 1803 PCs traten Probleme mit den Servergespeicherten Profilen auf. Das Abmelden dauerte sehr lange und ...

Exchange Server
Exchange - Fehler mit 2018-07 Sicherheitsupdate
Tipp von ArnoNymous vor 3 TagenExchange Server7 Kommentare

Hallo, es gibt mal wieder Freude mit den MS-Updates. KB4338814 führt dazu, dass der Exchange keine Mails mehr zustellt. ...

Heiß diskutierte Inhalte
Humor (lol)
Freitagsfrage: Was tun, wenn der Admin der DAU ist?
Frage von VoiperHumor (lol)29 Kommentare

Moin Zusammen, Eine nicht ganz ernst gemeinte Frage an die Außendienstler unter uns. Zusammenfassung: Ein Inhouse Admin ruft bei ...

Windows Server
W2K16 Essentials: keine Namensauflösung nach der Einrichtung DNS + AD DS
Frage von Ben-WittWindows Server21 Kommentare

Ich versuche bereits seit ca. 4 Wochen einen Server 2016 "Essentials" richtig zu installieren. An diesem Server möchte ich ...

Exchange Server
Exchange Backup 10 Jahre Aufbewahrung
Frage von arccosExchange Server20 Kommentare

Hallo zusammen. Aktuell beschäftigen mich ein paar Fragen zum Thema Office365/ Exchange. 1.10 Jahre Aufbewahrungspflicht sicherstellen 2.Kann man als ...

Windows Netzwerk
LTE Modul - Kein Internet trotz Verbindung
Frage von killtecWindows Netzwerk18 Kommentare

Hallo, ich habe hier ein Dell 7390 2-in-1 mit W10 Pro wo ich nachträglich eine LTE-Karte (Original Dell DW5811e ...