VBA Fehlerhafte Schleife

MarC · 2021-05-01T23:56:11+00:00

Abend zusammen, 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

Servus Yal,
danke nochmal für deine Hilfe, aber es funktioniert nicht. Hast du meine Datei verwendet oder selber eine erstellt? Ich habe es jetzt nochmal mit meinem Code versucht und einfach ein ".text" an Textbox1 gehängt. Jetzt geht es, aber warum es nur mit ".text" geht kann ich dir nicht sagen. Ich habe mir die Formatierung der Zellen angeschaut und da steht bei allen Standard drin. Ich habe mir auch den Inhalt der Variablen angeschaut und der hat auch gepasst, daher kann ich mir nicht erklären wieso das nicht funktioniert hat. Aber mit .text geht es. VG MarC


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.Text Then
MsgBox "Text bereits vorhanden", vbExclamation, "Eingabe"
Exit Sub
ElseIf RowTarget  RowNo_1 And Sheets("DB").Cells(RowNo_1, 3) = TextBox2.Text Then
MsgBox "Text bereits vorhanden", vbExclamation, "Eingabe"
Exit Sub
ElseIf RowTarget  RowNo_1 And Sheets("DB").Cells(RowNo_1, 4) = TextBox3.Text Then
MsgBox "Text bereits vorhanden", vbExclamation, "Eingabe"
Exit Sub
ElseIf RowTarget  RowNo_1 And Sheets("DB").Cells(RowNo_1, 5) = TextBox4.Text Then
MsgBox "Text bereits vorhanden", vbExclamation, "Eingabe"
Exit Sub
End If
Next RowNo_1
With Sheets("DB")
.Cells(RowTarget, 2).Value = TextBox1.Value
.Cells(RowTarget, 3).Value = TextBox2.Value
.Cells(RowTarget, 4).Value = TextBox3.Value
.Cells(RowTarget, 5).Value = TextBox4.Value
.Cells(RowTarget, 6).Value = TextBox5.Value
Unload Me
End With
End Sub

Hallo MarC,
3 punkten hast Du in deine Erklärung vergessen:
_ es soll ggü alle Einträge in DB ausser der Eintrag, der gerade in der Userform gezeigt wird, geprüft. Genau diese Eintrag hatte ich als Test verwendet.
_ es soll abbrechen, wenn nur ein Element bereit vorhanden ist, und nicht alle. Also Christin darf es nur einmal geben, Kiel nur einmal, usw. Ich hatte bisher die gesamte Zeile geprüft.
_ .Cells(r,6) muss nicht geprüft werden.
Jede Objekt hat eine Default-Eigenschaft, das zurückgegeben wird, wenn nicht spezifiziert. Meistens ".Value". ".Text" ist daher nicht erforderlich. Es müsse aber davor "Me." stehen. Also "Me.TextBox1" (die übrigens auch mit Me.Controls("TextBox" & i) abrufbar ist). Dann geht es.
Wenn ich in Übersicht "T" oder "t" eingebe, bekomme ich verschiedene Ergebnisse. Ist es so gewollt?
Auch die Prüfung wären auf LowerCase vielleicht sinnvoller:


Private Sub Save_Click()
Dim r As Long
Dim i As Integer
With Sheets("DB") 'wenn schon With, dann konsequent von Anfang an
For r = 8 To .Cells(Rows.Count, 2).End(xlUp).Row
If RowTarget  r Then
For i = 1 To 4
If LCase(.Cells(r, i + 1)) = LCase(Me.Controls("TextBox" & i).Text) Then
MsgBox "Text bereits vorhanden", vbExclamation, "Eingabe"
Exit Sub
End If
Next i
End If
Next r
For i = 1 To 5
.Cells(RowTarget, i + 1).Value = Me.Controls("TextBox" & i).Value
Next i
Unload Me
End With
End Sub

Alternative:


If StrComp(.Cells(r, i + 1), Me.Controls("TextBox" & i), vbTextCompare) Then

Das Coding läuft bei jeder Eingabe in B9 extrem lang. Es ist ein Punkt, wo Du noch feilen kannst.
Aber ingesamt "VBA Bescheiden" mit einem Plus am Ende ;-)
VG
Yal

Forumthread: VBA Fehlerhafte Schleife

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

VBA Fehlerhafte Schleife

Forumthread: VBA Fehlerhafte Schleife

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread