Fehlermeldung:
03.12.2005 00:42:39
Gregor
ich möchte eine laufende Nummer generieren:
Public
Sub neueZiehung()
Dim neueZeile As Range, freieZelle As Integer
Set neueZeile = Range("A:A")
Set neueZeile = neueZeile.Find("")
Debug.Print neueZeile.Row
freieZeile = neueZeile.Row
neueNummer = Cells(freieZeile, -1, 1).Value + 1
Debug.Print neueNummer
End Sub
dabei bekomme ich die Fehlermeldung:
Fehler beim Kompillieren:
Falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft
und Cells wird markiert
Watch : : Cells :
was habe ich falschgemacht,
oder wie kann ich das anders machen?
Gregor
Anzeige