Neue Rechnungsnummer zuteilen
24.11.2007 17:40:00
Larissa
Hallo,
irgend etwas stimmt an diesem Code nicht, Value bleibt immer "leer"
Sub PlusEins()
With Sheets("Rechnungsbuch")
.Range("A60000").End(xlUp).Offset(0, 0).Value = _
.Range("A60000").End(xlUp).Offset(0, 0).Value + 1
End With
End Sub
Hat jemand eine Idee, was da falsch ist?
Danke für Eure Hilfe.
Larissa