Vier bedingte Formatierungen??

Hallo Excels,
mein Problem ist, das ich vier bedingte Formatierungen benötige, jedoch die drei vorgesehenen schon belegt habe... :-(
Problembeschreibung:
-------------------------------
In Zelle D3 wird der Monat eingegeben (Format 1.7, angezeigt in der Zelle D3 durch Jul 03).
Die Zellen D9 bis D39 zeigen den Wochentag (Montag, Dienstag...) jeweils vom 1. bis 31. des in Zelle D3 eingegebenen Monats an.
Abhängig von der Monatseingabe bleiben also die Zellen D37,D38, D39 leer (= " ").
Beispiel Februar:
=================
Eingegebener Monat ist Februar.
Der Monat hat 28 Tage, also werden in den Zellen D37 (29. Tag des Monats), D38 (30. Tag des Monats) und D39 (31. Tag des Monats) keine Wochentage angezeigt, weil leer (= " ").
In diesem Fall soll der Hintergrund der Zellen M37:N37, M38:N38 und M39:N39 schwarz eingefärbt werden.
Beispiel April:
=================
Eingegebener Monat ist April.
Der Monat hat 30 Tage, also wird in Zelle D39 (31. Tag des Monats) kein Wochentag angezeigt, weil leer (= " ").
In diesem Fall soll der Hintergrund der Zellen M39:N39 schwarz eingefärbt werden.
Ich hoffe, ich habe das Problem einigermaßen verständlich beschrieben und jemand von euch hat dazu eine Idee und kann, wenn möglich, den Code dazu schreiben???
Vielen Dank vorab!
Gruß
Heiner

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim Datum1 As Date, Datum2 As Date If Target.Count = 1 Then If Target.Address = "$D$3" Then Range(Cells(38, 4), Cells(39, 4)).Interior.ColorIndex = xlNone Range(Cells(37, 13), Cells(39, 14)).Interior.ColorIndex = xlNone Select Case Month(Target.Value) Case 2 Datum1 = "01.02." & Year(Date) Datum2 = "01.03." & Year(Date) Range(Cells(DateDiff("d", Datum1, Datum2) + 10, 4), Cells(39, 4)).Interior.ColorIndex = 1 Range(Cells(DateDiff("d", Datum1, Datum2) + 9, 13), Cells(39, 14)).Interior.ColorIndex = 1 Case 4, 6, 9, 11 Range(Cells(39, 13), Cells(39, 14)).Interior.ColorIndex = 1 End Select End If End If End Sub

Hallo Heiner,
meinst du so?


Option Explicit 'Variablendeklaration erzwingen
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Datum1 As Date, Datum2 As Date 'Variabledeklaration
If Target.Count = 1 Then 'Anzahl der geänderten Zellen abfragen, sonst Fehler bei Target.Value
If Target.Address = "$D$3" Then 'Adresse der geänderten Zelle abfragen
Range(Cells(38, 4), Cells(39, 4)).Interior.ColorIndex = xlNone 'D38:D39 entfärben
Range(Cells(37, 13), Cells(39, 14)).Interior.ColorIndex = xlNone 'M37:N39 entfärben
Select Case Month(Target.Value) 'Monate aufsplitten
Case 2 'Februar
Datum1 = "01.02." & Year(Date) 'Datum zuweisen 1. Februar laufendes Jahr
Datum2 = "01.03." & Year(Date) 'Datum zuweisen 1. März laufendes Jahr
'Anzahl der Tage des Februars im laufenden Jahr berechnen und Zellen damit einfärben
Range(Cells(DateDiff("d", Datum1, Datum2) + 10, 4), Cells(39, 4)).Interior.ColorIndex = 1
Range(Cells(DateDiff("d", Datum1, Datum2) + 9, 13), Cells(39, 14)).Interior.ColorIndex = 1
Case 4, 6, 9, 11 'Monate mit 30 Tagen
Range(Cells(39, 13), Cells(39, 14)).Interior.ColorIndex = 1 'M39:N39 einfärben
End Select
End If
End If
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread