ausblend probleme für Jan bis März
10.11.2019 15:03:50
MaBlu
Hallo
ich dachte das Problem sei gelöst dann musste ich doch noch einen Fehler feststellen immer wenn ich nur die Start Monate Januar bis März wähle wird mir das Folgejahr im Kalender angezeigt?
ab April geht alles wie es soll, da ich das Makro nicht verstehe suche ich Hilfe eventuell kann mir Robert nochmal helfen?
(PS: bei der Vorlage von Robert ging nur der Januar nicht)
Option Explicit
Sub MyLike2() 'Ausblenden von Spalten
ActiveSheet.Unprotect 'Blattschutz für dieses Blatt entfernen
Dim RnG As Range, x&, sp As Long
For x = 1 To 30
If Cells(4, x) = Range("A5") Then
sp = Cells(3, x).Column - 1
End If
Next
If Cells(1, 1) "ALLE" Then
Columns.Hidden = False
Range(Cells(1, 2), Cells(1, sp)).EntireColumn.Hidden = True
Range(Cells(1, sp + Cells(1, 1) * 2 + 1), Cells(1, "AX")).EntireColumn.Hidden = True
Else
Columns.Hidden = False
End If
ActiveSheet.Unprotect 'Blattschutz für dieses Blatt entfernen
End Sub
https://www.herber.de/bbs/user/133074.zip
Für eure Hilfe vielen Dank
Gruss MaBlu