Tabellenname in Makro
WillyJ
das untenstehenden Makro gilt im Augenblick nur für eines von 39 Tabellenblättern in einer Arbeitsmappe. Ich möchte natürlich nicht nun für jede Tabelle ein eigenes Makro mit entsprechendem Tabellennamen, sondern ein einziges.
Gibt es da eine Möglichkeit?
Danke für Eure Hilfe
WillyJ
Dim rng_kürzel As Range
Dim str_kürzel As String
str_kürzel = InputBox("Bitte NEIN eintragen!")
For Each rng_kürzel In Sheets("FRA HBF EKP-Mitte").Range("b1:an1") 'Tabellenname anpassen
If rng_kürzel str_kürzel Then Columns(rng_kürzel.Column).EntireColumn.Hidden = True
Next rng_kürzel