4
VBA Spalten kopieren mit unterschiedlicher Breite
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.
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
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.
Worksheets(3).Activate
Range("D:D,N:N,DB:DB,O:O,AA:AA,AD:AD,DE:DE").Select
Selection.Copy
Worksheets(4).Activate
Worksheets(4).Range("1:65535").PasteSpecial _
Paste:=xlPasteValuesJetzt 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
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 83485
Url: https://administrator.de/forum/vba-spalten-kopieren-mit-unterschiedlicher-breite-83485.html
Ausgedruckt am: 21.02.2025 um 18:02 Uhr
4 Kommentare
Neuester Kommentar
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
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
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!
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!
Hallo Shaggy84!
Bei mir käme (etwas eingedampft) sowas raus:
Genügen würde aber schon:
Grüße
bastla
Bei mir käme (etwas eingedampft) sowas raus:
Cells.Delete Shift:=xlUpCells.DeleteGrüße
bastla
Hallo bastla,
ja das obere passte schon
Wenn ich nur alle Zeilen mit "Range" makiere und "Clear" benutze, ist zwar der Inhalt gelöscht, die veränderte Spaltenbreite bleibt erhalten.
Grüße
ja das obere passte schon
Cells.Select
Selection.Delete Shift:=xlUpWenn ich nur alle Zeilen mit "Range" makiere und "Clear" benutze, ist zwar der Inhalt gelöscht, die veränderte Spaltenbreite bleibt erhalten.
Range("1:65535").Clear Grüße
