folgenden Code habe ich in einer UserForm, mit der ich ein Telefonverzeichnis durchsuche und anschliesend eine neue Userform öffne um den Eintrag des Verzeichnisses zu bearbeiten. Problem ist, es kommt immer die Meldung "mehrdeutiger Name" bezogen auf zeile = i
Hoffe auf eure Unterstützung.
Private Sub CommandButton1_Click()
Dim x As Integer
Z = Sheets("DATEN").UsedRange.Rows.Count
x = TextBox1
temp = 0
For i = 80 To 1200
If Worksheets("DATEN").Cells(i, 1) = x Then
temp = 1
Exit For
End If
Next
If temp = 1 Then
Unload Me
zeile = i
UserForm27.Show
Else
MsgBox " Eintrag nicht vorhanden!", vbExclamation
TextBox1 = ""
End If
End Sub