Gruppe
Feature
Bereich
Bedingt
Thema
Aktuelle Geburtstage beim Öffnen der Arbeitsmappe anzeigen
Problem
Wie kann ich erreichen, daß mir beim Öffnen einer Arbeitsmappe die Zellen mit aktuellen Geburtstagen gelb und die mit Werten bis eine Woche vorher als Vorwarnung blau hinterlegt werden?
Lösung
Formel A für die bedingte Formatierung: =UND(MONAT(D1)=MONAT(HEUTE());TAG(D1)=TAG(HEUTE()))
StandardModule: basMain
Sub WechselKurse()
Range("B4").Value = Date
Range("B5").Value = Time
Worksheets("Tabelle2").QueryTables(1).Refresh
End Sub
Sub EinAusblenden()
Worksheets("Tabelle2").Visible = True
'Worksheets("Tabelle2").Visible = xlVeryHidden
End Sub