habe mir aus mehreren makros eins gemacht . das makro soll in der tabelle suchen und wenn es
was gefunden hat anzeigen . ein msgbox fragt ob es weitersuchen soll . das klappt auch
habe aber das problem komme nicht aus der schleife(nehme ich an) raus
Private Sub CommandButton1_Click()
Dim wks As Worksheet
Dim rngSuche As Range, varFind As Variant, strAdresse As String
Dim iZeile As Integer, reply As Byte, x As Range
Set wks = Worksheets("Tabelle3")
Set rngSuche = wks.Range("B:c")
varFind = TextBox1
If varFind = "" Then MsgBox "Keine Eingabe"
Set x = rngSuche.Find(what:=varFind, lookat:=xlPart, LookIn:=xlValues)
If x Is Nothing Then
MsgBox "Kein Treffer"
Else
strAdresse = x.Address
Do
iZeile = iZeile + 1
With wks
TextBox1 = .Cells(x.Row, "b") ' Nachname
TextBox2 = .Cells(x.Row, "c") 'Vorname
End With
reply = MsgBox("titel", vbYesNoCancel)
If reply = vbNo Then
Set x = rngSuche.FindNext(x)
End If
Loop
End Sub
sind noch leere zeilen drin weil ich immer mal wieder was reinschreibe und lösche . komme nicht
weiter würde mich über hilfe freuen
gruß ralf