Gruppe
Feature
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?
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