Zeile mit Hintergrund-Farbe versehen?
02.09.2006 00:18:33
Peter
hab bissher diesen Code um beim Öffnen der Datei direkt auf das heutige Datum zu springen (Datum steht in Spalte A).
-------------------------------------------------------------------------------
Private Sub Workbook_Open()
' automatisch beim öffnen der Datei auf heutiges datum springen
' aktive Zelle mit heutigen Datum 14 Zellen weiter unten anzeigen
Sheets("Eingaben").Activate ' Excel startet mit Mappe "Eingaben"
Dim Aktuell As Integer
With Sheets("Eingaben")
Aktuell = WorksheetFunction.Match(CDbl(Date), .Columns(1), 0) ' ermittelt Datum
.Cells(Aktuell, 11).Select ' (Aktuell, 11) = Zelle 11 (Spalte K)
End With
On Error Resume Next
With ActiveWindow
.ScrollColumn = 1
.ScrollRow = Aktuell - 14 ' 14 = 14 Zellen weiter runter scrollen
End With
Err.Clear
On Error GoTo 0
End Sub
-------------------------------------------------------------------------------
der Code sollte nun so ergänzt werden, dass die Zelle in der das heutige Datum steht, von Zelle "C" bis Zelle "Z" mit einer grünen Hintergrundfarbe versehen wird, d.h. die Zeile der aktiven Zelle soll eingefärbt werden.
Ich hoffe ihr könnt mir eine Lösung anbieten.
Gruß
Peter