Ich bin ein VBA-Anfänger, und ich versuche, Code für die automatische Nummerierung (1,2,3, etc) in eine Zelle (Start A2, A3, A4 usw.) jedes Mal, wenn ich die Wertzeilen der Daten übergebe. Ich habe versucht, auf Google zu suchen, aber alle Beispiele und Antworten erfüllen meine Anforderung nicht.VBA-Benutzerformular zur Eingabe von Daten und Nummerierung in der nächsten leeren Zeile
Derzeit muss ich es manuell bearbeiten und auf meinem Arbeitsblatt nummerieren. Wenn ich eine Zeile lösche und die Listennummer manuell aktualisiere. Die nächsten übertragenen Daten werden in der nächsten leeren Zeile zusammen mit der Aktualisierungslistennummer fortgesetzt. Den Rest der Codes habe ich schon bekommen.
Können Sie mir helfen, Code für Zellen (Erow, 1) für die automatische Nummerierung schreiben. Danke im Voraus. Hier ist mein Code:
Private Sub CB2_Click()
erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
'Cells(erow, 1) ??? to get auto numbering starting from A2 (number 1,2,3,etc)
Cells(erow, 2) = TB1.Text
Cells(erow, 3) = TB2.Text
Cells(erow, 4) = TB3.Text
Cells(erow, 5) = TB4.Text
End Sub
Hier ist ein Bild von meinem Blatt:
Und hier wird die Userform:
Wie wäre es mit einer einfachen Formel-basierten Lösung? Verwenden Sie einfach '= row() - 1' in der Spalte' A' und Sie sollten die gewünschten Zahlen haben (wenn ich das richtig verstehe). – Ralph