Wie kann ich einen Namen (x) in Spalte B finden, wenn dieser eventuell in Spalte (A) ebenfalls vorhanden ist ? Nach Fund soll Zelle markiert werden .
Sub suche_doppelt_und_markiere() Dim rng1 As Range Dim rng2 As Range Dim sFind AsString sFind = InputBox("Suchbegriff", "SUCHE", "?") If sFind = "" ThenExitSub Set rng1 = Range("B:B").Find(What:=sFind, LookIn:=xlValues, LookAt:=xlWhole) IfNot rng1 IsNothingThen Set rng2 = Range("A:A").Find(What:=sFind, LookIn:=xlValues, LookAt:=xlWhole) IfNot rng2 IsNothingThen rng1.Activate EndIf EndSub