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?
|