ich habe ein kleines Problem und komme irgendwie nicht auf die Lösung. Ich suche einen Begriff und wenn er gefunden wurde soll er weiter weitersuchen. Das funktioniert auch alles fein, nur sucht über das ganze Excel und nicht in Spalte 4 (Spalte D), die ich im beim Set angegeben habe. Kann mir jmd helfen? Danke
gruß webdepp
Sub test()
Dim rng As Range
Dim sBegriff As String, sAddress As String
sBegriff = "Frei"
Set rng = Columns(4).Find(what:=sBegriff)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden!", , _
Application.UserName
Exit Sub
End If
sAddress = rng.Address
rng.Select
MsgBox rng.Address(False, False)
rng.Offset(1).Select
Do
Cells.FindNext(After:=ActiveCell).Activate
If ActiveCell.Address = sAddress Then Exit Sub
MsgBox ActiveCell.Address(False, False)
Loop
End Sub