Problem mit Überprüfung
22.11.2018 13:05:36
Peter
ich habe einen Code mit dem ich prüfe ob ein bestimmter Wert in der Tabelle Spalte J
vorhanden ist.
Wenn dieser vorhanden ist, dann zeigte mir die MsgBox an: Wert vorhanden.
Was mir jedoch fehlt, ist die Anzeige über Msgbox: Wert nicht vorhanden.
Sub prüfen_Wert_inSpalteJ()
Dim i As Long
For i = 1 To 65536
If Cells(i, 10) = "666 666 77" Then 'Textbox5 einfügen
MsgBox "Wert enthalten"
Exit For ' oder ohne Exit For, dann wird das jedesmal ausgeführt.
End If
Next i
End Sub
Gruss
Peter
Anzeige