Makro zum Filtern

[boskobiati]

Hi,

das Ganze ist schon deshalb falsch aufgebaut, weil es Einträge auf Vorrat gibt. In einer intelligenten Tabelle braucht man sowas nicht. Die Einträge ab Zeile 12 machen also keinen Sinn, außer man ist zu faul, die beiden Felder in B und D mit zu füllen.
Und wenn Du nicht weißt, dass Makros auf VBA beruhen (Zitat: " Ich verwende VBA Nicht") und in Deinem Makro nicht "cde" durch 
 
Sheets("Tabelle1").Range("H1")

ersetzen kannst, dann solltest Du Dich doch mit den Grundlagen von Excel befassen.

drücke auf den Button "SUCHEN", komme ich automatisch in die erste Spalte von CDE

mit Deinem Makro nie und nimmer.

Hiermit:

Code:

Sub Nach_Kürzel_suchen()

    With Sheets("Tabelle1").ListObjects("Tabelle1").Range
    .AutoFilter field:=4, Criteria1:=Sheets("Tabelle1").Range("H1")
    .AutoFilter field:=1, Criteria1:=""
    End With
       
End Sub

kommst Du automatisch zum ersten Eintrag mit Deinem Suchbegriff, der in Spalte A keinen Eintrag hat.