Automatische, eindeutige Nummerierung VBA
09.12.2014 18:52:38
Andrej
ich habe folgendes Problem: ich muss für meinen Dozenten ein Archiv erstellen, bei dem er alle seine Bachelorarbeiten einsehen kann. Und ich möchte, dass wenn ich eine neue Bachelorarbeit in einer neuen Zeile anlege, automatisch diese Bachelorarbeit eine eindeutige ID bekommt. Also auch wenn er filtert, soll eine Bachelorarbeit eine eindeutige ID haben, ohne Neuberechnung. Ich hab schon ein Formular angelegt, indem man die Bachelorarbeit einfügen kann. Kann man da so einen Code für die automatische Nummerierung in der Spalte A ab Zeile 9 einfügen, oder muss man dafür ein neues Makro anlegen ?
Private Sub cmdÜbernehmen_Click()
'Fügt die eingetragenen in das Tabellenblatt und schließt das Formular frmBachelorarbeit
Dim intErsteLeereZeile As Long
intErsteLeereZeile = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row + 1
ActiveSheet.Cells(intErsteLeereZeile, 2).Value = Me.txtBranche.Value
ActiveSheet.Cells(intErsteLeereZeile, 3).Value = Me.txtUnternehmen.Value
ActiveSheet.Cells(intErsteLeereZeile, 4).Value = Me.txtNachname.Value
ActiveSheet.Cells(intErsteLeereZeile, 5).Value = Me.txtVorname.Value
ActiveSheet.Cells(intErsteLeereZeile, 6).Value = Me.txtThema.Value
ActiveSheet.Cells(intErsteLeereZeile, 7).Value = Me.txtTitel.Value
ActiveSheet.Cells(intErsteLeereZeile, 8).Value = Me.txtSemester.Value
Unload frmBachelorarbeit
End Sub
Mit freundlichen GrüßenAndrej