Office: Formatierungen bedingt ein- und ausblenden klappt nur halbwegs

Hallo,

ich möchte in einer Tabelle (ein Monats-Kalenderblatt) Formatierungen bedingt ein- und ausblenden. So nach dem Motto wenn Zelle leer, setze alle Hintergründe und Zellenränder auf Weiß.

Das funktioniert in meiner Tabelle leider nur bedingt. Es werden manche Formatierungen auf Weiß gesetzt, aber eben nicht alle.

Ich habe mir vorübergehend geholfen, indem ich per Makro Zeilen ausblende, aber das ist denke ich die unschönere Art.

Vielleicht kann jemand mal einen Blick auf die angehängte Tabelle werfen und hat eine Idee?

Den Anhang monat.xlsm betrachten

 

Hi,

also irgendwie verstehe ich nicht was du erreichen willst und was dein Code machen soll.
Vielleicht kannst du ja die bedingte Formatierung verwenden.

Bis später,
Karin

 

Ich möchte z.B. Wenn ich den Februar wähle, das dann die Tabellen mit Formatierungen (die Tage 29-31, die der Februar ja nicht hat) nicht zu sehen sind.

 

Hi,

du musst bei Februar aber noch unterscheiden, ob es sich um ein Schaltjahr handelt oder nicht - denn im Schaltjahr würde sonst der 29. fehlen. Versuche es mal so:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim intJahr As Integer
    If Target.Address = "$A$1" Then
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        intJahr = Year(Target)
        Rows("47:56").Hidden = False
        Select Case Month(Target)
            Case 4, 6, 9, 11
                Range("J47:K56").Copy
                Range("G47:H56").PasteSpecial Paste:=xlPasteFormats
            Case 1, 3, 5, 7, 8, 10, 12
                Range("A47:B56").Copy
                Range("D47:E56").PasteSpecial Paste:=xlPasteFormats
                Range("G47:H56").PasteSpecial Paste:=xlPasteFormats
            Case 2
                ' Schaltjahr
                If funcSchaltjahr(intJahr) = 1 Then
                    Range("J47:K56").Copy
                    Range("D47:G56").PasteSpecial Paste:=xlPasteFormats
                ' kein Schaltjahr
                Else
                    Rows("47:56").Hidden = True
                End If
        End Select
        applicatin.CutCopyMode = False
        Application.EnableEvents = True
        Application.ScreenUpdating = False
    End If
End Sub

Public Function funcSchaltjahr(intJahr As Integer)
    If (intJahr Mod 4) = 0 And (intJahr Mod 100) <> 0 Or _
        ((intJahr Mod 400) = 0) Then
        funcSchaltjahr = 1
    Else
        funcSchaltjahr = 0
    End If
End Function

Bis später,
Karin

 

Hey,

der Code Verbirgt die Zeilen 47-56 erfolgreich, aber wähle ich einen anderen Monat, werden sie nicht wieder eingeblendet.

 

Hi,

beschreibe doch bitte, wie du genau vorgehst - aso welche Datumswerte der Reihe nach du einträgst und wann die Zeilen nicht eingeblendet werden.

Bis später,
Karin

 

Also, ich ändere in der Zelle A1 das Datum, (z.B. 01.04.2015)

Als ich vorhin nach dem Einfügen deines Codes den Februar 2015 (01.02.2015) ausgewählt habe, wurden die Zeilen 47-56 ausgeblendet. Wenn ich nun einen anderen Monat wähle, egal, welchen, dann werden die Zeilen 47-56 nicht wieder eingeblendet.

 

Ich bin genau so vorgegangen wie du beschrieben hat - alle Zeilen werden korrekt ein-/ausgeblendet.

Ich frage mich allerdings, wie du den Code überhaupt testen konntest, denn er hat noch einen kleinen Schreibfehler - in der folgenden Zeile war Application nicht korrekt geschrieben

Code:

        Applicati[B][COLOR=#ff0000]o[/COLOR][/B]n.CutCopyMode = False

Bis später,
Karin

 

Na, ich habe den Fehler korrigiert, nachdem VBA nen Fehler ausgegeben hat :)

Egal, welchen Monat ich eintrage, da wird nix wieder eingeblendet.

Evtl. gibts ein Problem in der Zeile A1, wo ich das Datum eintrage. Dort lasse ich in meiner hier vorhandenen Version nur Werte aus einer Liste zu. (Das Datum ist dort als Text hinterlegt) Ich kann ja mal die komplette Exceldatei posten Hier.

 

Da du eine Gültigkeitszelle in A1 verwendest, hat das keinerlei Einfluss auf den Code.

Die Zeilen 47:56 werden korrekt wieder eingeblendet, wenn ein Februar mit 28 Tagen und dann ein anderer Monat ausgewählt wird. Es würde mich auch wundern, wenn das nicht der Fall wäre, denn zu Beginn des Codes werden sie mit dieser Zeile generell erst einmal eingeblendet:

Code:

        Rows("47:56").Hidden = False

Was logischerweise nicht funktionieren kann ist die Übertragung der Formate für die Tage 30 und 31 im Zeilenbereich 47:56 - aber dafür kann ich nichts, denn deine jetzige Mappe sieht anders aus aus deine vorherige (jetzt sind 3 Spalten zu formatieren vorher waren es nur 2). Das musst du dann im Code selbst anpassen.

Bis später,
Karin

 

Okay :D ja, ich bastele die ganze Zeit weiter an dem Teil :D

Habs jetzt angepasst, und funktioniert sehr gut :) VIELEN DANK :)