ich habe hier einen Code, der nach einem Begriff sucht... funktioniert soweit...
Ich würde den jetzt aber gerne umbasteln, so das die Msgbox offen bleibt und ich weiter suchen kann bis ich meine gewünschte Info angezeigt bekomme... Geht das irgendwie oder muss ich hier auf eine Userform umsteigen ? Das schöne an diesem Code ist, das er auch nur mit Teilen des Suchtextes auskommt..
Beispiel: ich gebe als Suchbegriff "380" ein, dann findet er zum Beispiel "123 380 256" und markiert mir die Zelle..
wenn ich aber nun folgend noch "380 256 122" und "123 456 380" in irgendwelchen zellen stehen habe, ware es schön wenn ich mich quasie durchklicken könnte...
Private Sub CommandButton3_Click()
Dim Begr As String
Dim rng As Range
Begr = InputBox("Suchbegriff:", "Suche nach...")
Set rng = Columns("B:B").Find(Begr)
If Not rng Is Nothing Then
rng.Activate
Else
MsgBox "nix gefunden"
End If
End Sub