Hallo,
ja wie Gast24233 schon sagte, loeschst du die Spalte B komplett, dadurch rutsch alles nach links und es ist nichts mehr da zum kopieren, da es sich nicht mehr in Spalte F sondern in Spalte E befindet.
1. Anstatt Delete benutze ClearContents. Dann werden nur die Werte in den Zellen geloescht, nicht die ganze Spalte entfernt.
2. Gewoehn dir an, Select und Activate moeglichst nicht zu benutzen. Schau dir mal Ausfuehrungen dazu im Netz an. Das verlangsamt nur deinen Code, da Excel immer hin und her huepfen muss. Macht sich bei deinem kleinen Code vielleicht nicht so bemerkbar aber bei groesseren Anwendungen kann das viel ausmachen.
Also hier mal dein Code etwas ueberarbeitet:
Sub Datum_aktualisieren()
With Sheets("Daten")
.Range("B2:B30").ClearContents
Zellen = .Cells(1, 8).Value
.Range("F2:F" & Zellen).Copy
.Range("B2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End With
End Sub
Gruss Tor
|