Hallo Leute,

ich hoffe Ihr könnt mir weiter helfen. Ich möchte eine Suchfunktion in mein Tabellenblatt einbauen. Es wird gesucht, was in "N3:N4" steht.

Hier schon mal mein Versuch:

Sub SuchenLiefernummer()

    Range("C:C").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With

    Columns("C:C").Select

    With Application.ReplaceFormat.Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.249946592608417
        .PatternTintAndShade = 0
    End With
    Cells.Replace What:=Range("N3:N4"), Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True

End Sub

Jetzt habe ich 2 Fragen dazu:

-kann man das Select durch etwas besseres ersetzen, damit das nicht so ruckelt?

-und kann man die Suche nur auf die Spalte C beschränken?