Spalten ausblenden
26.05.2013 18:12:18
Thorsten_Z
ich habe mich mal wieder überschätzt! Ich möchte in bestimmten Tabellenblättern bestimmte Spalten ausblenden, wenn eine bestimmte Zelle im Blatt "Stammdaten" leer ist.
Mein Versuch sieht so aus:
Sub Ausblenden()
Monate = Array("Jan", "Feb", "Mrz") 'Meine Tabellenblätter (hier gekürzt. Geht bis "Dez")
If Worksheets("Stammdaten").Cells(5, 2) = "" Then 'Die Zelle die geprüft wird
Sheets(Monate).Range("BS:BT,CK:CL,DN:DQ").Select 'Hier bleibt der Code stecken
Selection.EntireColumn.Hidden = True
End If
End Sub
Vielen dank schon mal fürs lesen
Gruß
Thorsten