Office: Kalenderproblem Februar der 29.

Hallo liebe Excel-Profis,
ich versuche mich gerade in einer Tabelle für einen Dienstzeitennachweis. Mit meinen bisherigen Formeln bin ich recht zufrieden und es klappt soweit auch alles, jedenfalls für den Monat Januar. :-)

Danach habe ich den Januar kopiert und bastel gerade daraus einen Februar. Wie gestalte ich diesen Monat denn nun zukunftsfähig, damit der 29. im Schaltjahr eingeblendet wird bzw. in den anderen Jahren ausgeblendet wird. Ich dachte an ein paar kleine VBA-Zeilen, die ich allerdings überhaupt nicht beherrsche.....so nach dem Motto

WENN B61 = März DANN Zeilen 61 und 62 ausblenden; WENN B61 = Februar DANN Zeilen 61 und 62 einblenden !

Freue mich über jeden Lösungsvorschlag...

Gruß Marko

:)

 

Hallo
wenn Du mit deinen Formeln zufrieden bist.
dann so. Habe Testhalber das Jahr auf 2012 gesetzt!

Februar

	B
61	29. Feb.
62

verbundene Zellen

B61:B62

verwendete Formeln
Zelle	Formel	Bereich
B61	=WENN(TAG(DATUM(JAHR(B5)+400;3;))=28;"";B59+1)

 

Hallo hary,

danke schonmal für Deinen Lösungsansatz - aber noch nicht ganz dass, was ich gesucht habe. Wie gesagt, ich möchte gerne, dass die ganzen Zeilen ausblendet werden! Ich glaube, das kann nur über VBA realisiert werden! Noch weitere Ideen?

Meinetwegen auch an der angehängten (einfacheren) Beispieldatei.
Nach Fertigstellung des Januars habe ich diesen kopiert, in Februar umbenannt und den 31. sowie 30 gelöscht.
Den 29. habe ich mal stehen lassen, da im Schaltjahr immer ein 29. vorhanden sein soll. Wie realisiere ich nun, dass die vollständige Zeile des 29. Feb. im normalen Jahr ausgeblendet und im Schaltjahr automatisch eingeblendet wird?

 

Hallo
Hab ich falsch gelesen.
Code gehoert in die open Anweisung der Arbeitsmappe. Kannst Du auch erstmal als Makro testen. Makro erstellen und den Code hinein.
Code:

gruss hary

 

Vielen lieben Dank,haut wunderbar hin.
Kann ich das Datum auch auf einen Zellwert verweisen der sich auf einem anderen Tabellenblatt befindet?
Tabelle 4 - Zelle A14

Gruß Marko

 

Hallo Marko
War kurz ausser Haus.
Code:

gruss hary

 

Hallo Marko,

kurz und knackig;-))

' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_Open()
Sheets("Februar").Rows(32).Hidden = Day(DateSerial(Year(Date), 3, 0)) = 28
End Sub





Gruß Sepp

 

Hallo Sepp
Uff !!!!!!!
Hab zu danken.
Gruss hary

 

Hallo Marko,

oder so mit Bezug zur Jahresangabe in der Tabelle und anpassung auch bei Zelländerung.

' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_Open()
With Sheets("Februar")
.Rows(32).Hidden = Day(DateSerial(.Range("A1"), 3, 0)) = 28
End With
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With Sheets("Februar")
If Sh.Name = .Name Then
If Target.Address(0, 0) = "A1" Then
.Rows(32).Hidden = Day(DateSerial(.Range("A1"), 3, 0)) = 28
End If
End If
End With
End Sub





Gruß Sepp

 

Vielen lieben Dank für Eure Antworten - nun funktioniert alles wunderbar in meiner Tabelle....