kleines vba Problem
Bulli
mein Problem dürfte für Euch wahrscheinlich kein Problem sein. Mittels des unten aufgeführten Code sollen die Werte aus einem Tabellenblatt in ein anderes übernommen werden. Leider ergibt sich daraus der Laufzeitfehler '1004'.
Der Code würde funktionieren, wenn die Werte aus dem selben Blatt übernommen werden, d.h. wenn ich "worksheets(1)." weglasse wird der Code ausgeführt, allerdings natürlich ohne den gewünschten Erfolg der Übernahme von Werten von Tabellenblatt 1 in 7...
Wie muss der Code richtigerweise heißen?
Sub sort()
Dim BerId As Integer
BerId = Worksheets(1).Range("P1").Value
With Worksheets(7)
.Range(Cells(2, 2), Cells(65536, 14)).Value = ""
.Range(Cells(2, 2), Cells(BerId + 1, 14)).Value = _
Worksheets(1).Range(Cells(2, 16), Cells(BerId + 1, 28)).Value
End With
End Sub
viele Grüße und schon mal vielen Dank im Voraus,
Bulli
Anzeige