Hallo Forum,
ich möchte per Makro den Inhalt einer TextBox in einer Spalte suchen. Wenn
gefunden, dann soll ein bestimmer Text ausgegeben werden. Das untenstehende
Makro läuft zwar, aber die Prüfung auf das Nichtvorhandensein scheint nur einmal
zu funktionieren. Lösche ich die TextBox und mache die gleiche Prüfung erneut,
erscheint kein Text, dass die Nummer nicht verfügbar ist. Hier das Makro:
Dim loletzte As Long
Set objWsK = ThisWorkbook.Worksheets("Overview")
loletzte = objWsK.Cells(Rows.Count, 6).End(xlUp).Row
MsgBox loletzte
For i = 2 To loletzte
If not UserForm1.TextBox1.Value = objWsK.Range("F" & i).Value Then
UserForm1.Label19.Caption = "Nummer existiert nicht.!"
End If
Next
End Sub
Da mehrere TextBoxen existieren lösche ich diese per Schleife:
Dim i As Integer
For i = 1 To 8
UserForm1.Controls("Textbox" & i).Value = ""
Next i
jmd eine Idee warum das Überprüfungsmakro (oben) nur einmal erfolgreich läuft?
Was muss ich ändern?
Gruß
Chris