Hier der Link zur Datei.
https://www.herber.de/bbs/user/95016.xlsm
Was ich nicht hinbekomme ist das er die Daten im Tabellenblatt "Personal" -> Personalnummer sucht. Und nicht bei 8 Zahlen ein Fehler auswirft "Überlauf"
Ich würde gerne auch festlegenb das TextBox1 bei "Personal" -> "DG" ist. Was muss ich grundlegend im Code verändern.
Für die Suche habe ich folgendes
Private Sub CommandButton2_Click()
Dim x As Integer
Z = Worksheets("Personal").UsedRange.Rows.Count
x = TextBox2
temp = 0
For i = 2 To Z
If Cells(i, 1) = x Then
temp = 1
Exit For
End If
Next
If temp = 1 Then
Unload Me
zeile = i
UserForm2.Show
Else
MsgBox "Personalnummer nicht vorhanden!", vbExclamation
TextBox2 = ""
End If
End Sub
Danke,Stefan