VBA - Spalten gleichzeitig kopieren
10.03.2020 09:42:33
Kleo
Ich möchte gerne aus meinem Tabellenblatt "Main" mehrere Spalten (die nicht nebeneinanderliegen) per STRG-Taste markieren und in das Tabellenblatt "blub" kopieren. Leider kopiert es dann immer nur die erste Spalte, die man markiert hat...
Das mit dem Kopieren von nebeneinander liegenden Spalten geht ohne Probleme...
Hier mein Code:
Sub CopyPasteColoumn()
' CopyPaste Macro
Selection.Activate
Selection.Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
SheetWählen.Show
Range("A3").Select
Do
ActiveCell.Offset(0, 1).Select
Loop Until ActiveCell.Value = 0
ActiveSheet.Paste
Selection.Columns.EntireColumn.EntireColumn.AutoFit
End Sub
Grüße,
Kleo