VBA Weitersuchen
27.05.2020 07:39:23
Michael
Hoffe Ihr könnt mir weiter helfen.
Mein Problem ist das ich es nicht hinbekomme das in der Spalte 4 weitergesucht wird.
Ich möchte das es alle Personen mit der gleichen ID Nummer findet und mir entsprechend anpasst.
Habe denn Code mal so versucht mit weitersuchen aber dann bekomme ich die Fehlermeldung: Loop ohne Do
Wäre echt toll wenn mir jemand weiter helfen könnte.
Dim rngAuswahl As Range
With Worksheets("Teilnehmer")
Set rngAuswahl = .Columns(4).Find(Me.TextBox26.Value, LookAt:=xlWhole)
If Not rngAuswahl Is Nothing Then
.Cells(rngAuswahl.Row, 4) = Me.TextBox26 'ID
.Cells(rngAuswahl.Row, 7) = Me.ComboBox3 'Name und Vorname
.Cells(rngAuswahl.Row, 6) = Me.TextBox27 'Telefon
Do
Set rngAuswahl = .Columns(4).Find(Me.TextBox26.Value, LookAt:=xlWhole)
If Not rngAuswahl Is Nothing Then
.Cells(rngAuswahl.Row, 4) = Me.TextBox26 'ID
.Cells(rngAuswahl.Row, 7) = Me.ComboBox3 'Name und Vorname
.Cells(rngAuswahl.Row, 6) = Me.TextBox27 'Telefon
Loop
End If
End With
Danke für eure Hilfe.
Lg Michi