Probleme mit Range-Objekten
13.09.2015 10:31:13
Rohfleisch
wieder einmal stehe ich vor dem Problem, dass reines Ausprobieren mich nicht zum Ziel führt.
Ich habe folgenden Code und bekomme beim Bestätigen "Laufzeitfehler 424 objekt erforderlich".
Private Sub Erstellen_Click()
Call NewRow()
Firstempty.Select
End Sub
Sub NewRow(Optional ByRef Firstempty As Range)
Dim LastFilled As Range
Dim Lastval As Integer
Dim NewVal As String
Set LastFilled = Range("Artikelnummern").End(xlDown)
Set Firstempty = LastFilled.Offset(1)
Lastval = LastFilled.Value
NewVal = Lastval + 1
Do Until Len(NewVal) = 5
NewVal = "0" & NewVal
Loop
LastFilled.Copy
Firstempty.PasteSpecial (xlPasteFormats)
Firstempty.Value = NewVal
Application.CutCopyMode = False
End Sub
Ich hoffe mir kann hier jemand heraushelfen und mich belehren. Vielen Dank!
Beste Grüße,
Rohfleisch