Ansteuerung einer bestimmten Zelle

[Kuwer]

Hallo Günther,

füge einfach am Ende dieses/Deines Makros das ein:

Code:

With Worksheets("Test")
    Application.Goto .Range("E:E,H:H").Find(What:=.Range("K2").Value, _
                                            LookIn:=xlFormulas, _
                                            LookAt:=xlWhole, _
                                            SearchOrder:=xlByRows, _
                                            SearchDirection:=xlNext, _
                                            MatchCase:=False).Offset(0, 1)
  End With

Gruß Uwe

[guenther-st]

Hallo Uwe,

vielen Dank für diese Lösung. Funktioniert jetzt prima.
Besten Dank auch all den Anderen für Ihre Unterstützung.
Bis bald mal wieder.

Servus
Günther