Userform - ID Vergabe
12.07.2007 20:05:24
Frank
Ich möchte, das in dem Userform in der Textbox1 automatisch eine Startnummer für die angelegten Teilnehmer vergeben wird.
Dazu soll in das unten beigefügte Sub ein Befehl hinzu, der aus dem Blatt "Daten" Spalte A:A den Maximalwert sucht und mit 1 addiert. Kann mir jemand dabei helfen?
Public Sub UserForm_Initialize()
If Val(Application.Version) >= 9 Then
hWndForm = FindWindow("ThunderDFrame", Me.Caption)
Else
hWndForm = FindWindow("ThunderXFrame", Me.Caption)
End If
bCloseBtn = False
SetUserFormStyle
ComboBox1.RowSource = "'Info'!A2:A25"
ComboBox2.RowSource = "'Info'!B2:B25"
ComboBox3.RowSource = "'Info'!C2:C25"
TextBox1.Text = ""
TextBox1.SetFocus
End Sub
Anzeige