Clever-Excel-Forum

Seiten: 1 2

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

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

Seiten: 1 2

Kuwer

guenther-st