[Kapitel3-1] Eintragen Formular- Laufende ID ins Textfeld - Excelgenie

Quelltext diese kapitels:

Option Explicit

Private Sub UserForm_Initialize()
' Deklaration der Variable
Dim wert As Long
' Größte Wert aus der Spalte A soll ermittelt werden und +1 summiert werden
wert = Application.WorksheetFunction.Max(Range("A:A")) + 1
txtId.Value = wert
End Sub

Option Explicit

Private Sub UserForm_Initialize()

' Deklaration der Variable

Dim wert As Long

' Größte Wert aus der Spalte A soll ermittelt werden und +1 summiert werden

wert = Application.WorksheetFunction.Max(Range("A:A")) + 1

txtId.Value = wert

End Sub