heutiges Datum 14 Zeilen weiter unten darstellen?
31.08.2006 21:17:00
Peter
ich hab diesen Code
Private Sub Workbook_Open()
Dim Aktuell As Integer
With Worksheets("Eingabe")
Aktuell = WorksheetFunction.Match(CDbl(Date), .Columns(1), 0)
Application.Goto .Cells(Aktuell, 1), True
End With
End Sub
mit diesem Code springt die Zeile mit dem heutigen Datum beim öffnen der Datei auf die erste (oberste) Zeile des Arbeitsblattes. Nun möchte ich aber, dass diese Zeile 14 Zeilen weiter unten erscheint.
Gibt es hierfür eine Lösung
Gruß
Peter