Office: Zellen nach Schaltjahr ein und ausblenden

Hallo liebe Excel Gemeinde,

ich sitze gerade an meinem Projekt und habe da ein Problem mit der Umsetzung.

Folgendes Problem tut sich da auf:
In meiner Datei zur Aufschlüsselung der Fahrten für das Finanzamt, muss für den Monat Februar je nach Schaltjahr die Zeile für den 29.2. ein bzw. ausgeblendet werden und die Folgezeile entsprechend ein oder ausgeblendet werden.

Vielleicht hat da jemand einen Lösungsvorschlag?

Mein Gedanke war die Inhalte einfach per VBA zu löschen...
Wie bekomme ich dann in den Schaltjahren den Inhalt wieder in die Zellen?
Oder macht es sind die Zellen zu löschen?

Ich habe dazu auch die Datei beigefügt.

Es wäre wirklich mega wenn da jemand helfen könnte*rolleyes.gif* .


Gruß Jörg

:)

 

Hallo Jörg,

in das Modul der Tabelle Februar:

Option Explicit

Private Sub Worksheet_Activate()
If Range("F1").Value Mod 4 = 0 And (Range("F1").Value Mod 100 <> 0 Xor Range("F1").Value Mod 400 = 0) Then
If IsEmpty(Range("A32").Value) Then
Call Range("A32:I32").Insert(Shift:=xlShiftDown)
Call ListObjects("Januar2").Resize(Range:=Range("$A$3:$I$32"))
End If
Else
If Range("A32").Value = 29 Then
Call ListObjects("Januar2").Resize(Range:=Range("$A$3:$I$31"))
Call Range("A32:I32").Delete(Shift:=xlShiftUp)
End If
End If
End Sub

 

Moin Nepumuk,

Danke für die schnelle Antwort.
Ich bin gerade unterwegs, werde es aber heute am späten Abend mal versuchen.

Vielen Dank schon mal im Vorwege.


Gruß Jörg

 

Moin Nepumuk,

ich habe das einmal eingespielt und bin soweit wirklich begeistert.
Allerdings gibt es beim einfügen des 29.2. eine kleine Diskrepanz.
Siehe Screen...

In Zelle D32 muss wieder ein "Nein" und warum fehlen in den Zelle G32 und I32 die graue Füllung?


Gruß Jörg

 

Hallo Jörg,

dann setzen wir ein "Nein" rein und färben die Zellen. Das mit der Farbe schein ein Bug des ListObjects zu ein.

Code:

 

Hallo Nepumuk,

Super gelöst, vielen Dank.

Gruß Jörg