Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
700to704
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Fehlermeldung:

Fehlermeldung:
02.12.2005 23:42:39
Gregor
Hallo.
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 : : Empty : Modul1.neueZiehung
was habe ich falschgemacht,
oder wie kann ich das anders machen?
Gregor

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehlermeldung:
02.12.2005 23:51:31
Horst

Sub neueZiehung()
Dim neueZeile As Range, freieZelle As Long
Set neueZeile = Columns(1).Find("")
Debug.Print neueZeile.Row
freieZeile = neueZeile.Row
neueNummer = Cells(freieZeile -1, 1) + 1
Debug.Print neueNummer
End Sub

mfg Horst
AW: Fehlermeldung:
03.12.2005 00:25:35
Gregor
Danke Horst,
dein Tip hat schon mal bewegung meine Aufgabe gebracht.
Doch das Ergebniss aus deiner Formel ist 3 und 5
ich habe mal meine Datei als Muster geladen
https://www.herber.de/bbs/user/28923.xls
die Kd.Nr soll vortlaufend sein,
ich mache noch ein UsewrFormular für die Eingabe
Gregor
Anzeige
AW: Fehlermeldung:
03.12.2005 00:43:15
Gregor
Mist,
ich komm nich dahinter.
den code:
Public

Sub neueZiehung()
Dim neueZeile As Range, freieZelle As Long
Set neueZeile = Columns(1).Find("")
Debug.Print neueZeile.Row
freieZeile = neueZeile.Row
neueNummer = Cells(freieZeile -1, 1) + 1
Debug.Print neueNummer
End Sub

habe ich 1zu1 von einer v2b cd
da funktioniert der
greg
AW: Fehlermeldung:
03.12.2005 01:34:37
Gregor
DANKE :)
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige