ich bin's nochmal.
Ich habe hier ein chickes Makro gefunden, von dem ich dachte, dass es eine Spalte kopiert und dann in der nächsten freien Spalte einfügt. Tut es auch soweit.
Ich habe es in einem Sheet zum Testen verwendet. Dort kopiert es Spalte F und kopiert sie zu Spalte G. Bei erneuter Anwendung kopiert es Spalte F und fügt sie in H ein. So hätte ich das gerne.
Aber in meinem Sheet kopiert es Spalte F, fügt es in die nächste freie Spalte ein und bei erneuter Betätigung wird einfach der Inhalt, den ich vorher reinkopiert habe, überschrieben?!
Kann mir jemand helfen?
Sub kopieren()
Worksheets("Tabelle1").Range("F:F").Copy
Worksheets("Tabelle1").Cells(1, Worksheets("Tabelle1"). _
Columns.Count).End(xlToLeft).Offset(0, 1). _
PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Das wäre wunderbar!Viele Grüße,
Tanja