folgende Frage:
Mit
Set Bereich = Range(A:B)
For Each Zelle in Bereich
' passiert was
Next Zelle
kann man einen Zellenbereich wunderschön durcharbeiten. Allerdings nur entweder vorwärts oder rückwarts.
Mit:
Dim fc As Range
Set fc = Worksheets("Tabelle3").Columns("B").Find(what:="a")
MsgBox "erste gefundene Zellen " & fc.Address & fc.Value
Set fc = Worksheets("Tabelle3").Columns("B").FindNext(after:=fc)
MsgBox "nächste gefundene Zelle " & fc.Address & fc.Value
Set fc = Worksheets("Tabelle3").Columns("B").FindPrevious(after:=fc)
MsgBox "und zurück " & fc.Address & fc.Value
kann man wunderschön in einem Bereich hin und her springen. Nachteil hierbei, ich brauche eine Suchvorgabe (what:=).
Ich möchte die Einfachheit der ersten Geschichte und die Flexiblität der zweiten (ohne Suchvorgabe, bzw mit *.* oder so) um in einem Bereich hin und her zu springen (Zelle vor, oder zurück, oder beliebig).
Gibts so was?
Eine zur Lösung führende Antwort würde mich sehr freuen? Vielen Dank!
Mit freundlichen Grüßen
Albrecht