ich habe in diesem Forum schon viele nützliche Tipps und Lösungen finden können, stets auch immer ohne nachfragen. Leider stehe ich gerade vor einem Problem das ich trotz intensiver Foren Recherche nicht in den Griff bekomme.
Ich bastele gerade an einem ewigen Kalender in einer Tabelle. Zur Erfassung von Schaltjahren habe ich mir folgendes überlegt. Der Kalender passt sich selbst an nach einmaliger Eingabe der Jahreszahl im Kopf des Arbeitsblattes. Im Februar ist eine Spalte für den 29. vorgesehen (BR) die in einem "normalen" Jahr allerdings den 1. März ausgibt (in Zelle BR-9). In einer Zelle darüber (BR-7) findet eine Abfrage statt, die wenn das Feld für den 29.02 (BR-9) und das für den 01.03 (BS-9) gleich sind "wahr" oder eben 1 ausgibt.
Jetzt möchte ich das immer wenn in BR-7 "1" ausgegeben wird die Spalte "BR" ausgeblendet wird. Dazu habe ich im Foren Archiv ein VBA Makro gefunden und mit meinen Werten angepasst.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("BR7") Then
Select Case Target.Value
Case Is = 1
Worksheets("1. Halbjahr").Columns("BR").Hidden = True
Case Is = 0
Worksheets("1. Halbjahr").Columns("BR").Hidden = False
End Select
End If
End Sub
Leider funktioniert es aber nicht. Wenn ich das Makro über den VBA Editor starten will ist die Liste der verfügbaren Makros leer. Der Beitrag aus dem der Code stammt ist allerdings aus dem Jahr 2009.
Liegt es hier an einem Fehler im Code oder am alter des Beitrages.
Danke im Vorraus
Mfg Balou87
Hier der DropBox Link zu meiner Datei
https://www.dropbox.com/s/fs28ou6lxup8q4b/BiPla.xlsm?dl=0
Der Beitrag aus 2009:
https://www.herber.de/forum/archiv/1092to1096/1093160_Ausblenden_von_Spalten_wenn_Bedingung_erfuellt.html