Hallo Zusammen,
kann mir bitte einer bei einem Code-Schnipsel weiterhelfen?
Ich bräuchte sowas in der Art:
If sheet ("Tabelle1") select then (?)
Columns("A:A").Select
Selection.Copy
Columns("B:B").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
else
Danke &
Viele Grüße
Basti