Hallo,
vielen Dank für deine Antwort!
Ich habe nun den Code mit "MOdul4" eingefügt und ihn einem grafischen Button zugewiesen.
Die Parameter versucht anzupassen. Doch promt ein Debuggen Fehler (Laufzeitfehler 1004; Die Autofiltermethode des Range Objektes konnte nicht ausgeführt werden)
Ich bin in VBA zu unsicher, als das ich den Fehler deuten kann. Darum hier nochmals mein Vorgehen:
In "E1" sollte der Suchtext stehen, der in Spalte "E" endlos durchsucht werden soll. Dabei sollten die Spalten 3-7 sortiert werden oder bzw. gefiltert.Mein Code war dieser:
Sub Autofilter2()
Dim i As Long
For i = 3 To 7
Worksheets(1).Range("E:E").Autofilter Field:=i, Criteria1:="=*" & Worksheets(1).Cells(1, i) & "*"
Next i
End Sub
Da stimmt wohl was nicht bzw. ich habs nicht kapiert. Sorry.
Gruss & Danke!
|