Die Daten von der Datei (mit den Daten die importiert werden sollen) lauten z.B. wie folgt:
Pfad: C:\Users\Desktop\Datendatei.xlsx
Name Arbeitsblatt: Daten2020
Ich hoffe ihr könnt mir helfen! Lieben Dank schon mal.... Kati
Private Sub CommandButton2_Click()
Dim X As Integer
Z = Sheets(1).UsedRange.Rows.Count
X = TextBox_Nummer
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
UserForm4.Show
Else
MsgBox "Nummer nicht vorhanden!", vbExclamation
TextBox_Nummer= ""
End If
End Sub