Hallo,
ich versuche hier die Daten der Spalte F in die Spalte B zu kopieren. Hierbei wird aber alles eine Spalte nach links gezogen und der Kopiervorgang funktioniert nicht. Weiß einer den Fehler?
Sub Datum_aktualisieren()
Sheets("Daten").Select
Range("B2:B30").Select
Selection.Delete
Sheets("Daten").Select
Zellen = Worksheets("Daten").Cells(1, 8).Value
Range("F2:F" & Zellen).Select
Selection.Copy
Range("B2:B" & Zellen).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
|