VBA Fehlerhafte Schleife
01.05.2021 23:56:11
MarC
ich hänge gerade an einer Schleife fest und weiß nicht wo mein Fehler ist. Ich rufe ein UserForm auf und es werden die gewünschten Daten in 5 Textboxen geladen. Wenn ich die Daten ändere und auf Save klicke soll im Tabellenblatt "DB" überprüft werden ob die Werte aus den Textboxen in irgendeiner anderen Zeile zu finden sind außer in der Zeile aus der ich sie habe. Wenn die Daten wo anders vorkommen soll die Schleife beendet werden.
Eine Fehlermeldung erhalte ich leider nicht daher weiß ich nicht wo der Fehler liegt =(. Könnte mir wer helfen und sagen wo mein Fehler ist?
Private Sub Save_Click()
Dim RowNo_1 As Long
Dim LastRow As Long
LastRow = Sheets("DB").Cells(Rows.Count, 2).End(xlUp).Row
For RowNo_1 = 8 To LastRow
If RowTarget RowNo_1 And Sheets("DB").Cells(RowNo_1, 2) = TextBox1 Then
MsgBox "Text bereits vorhanden", vbExclamation, "Eingabe"
Exit Sub
End If
Next RowNo_1
End Sub