Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
796to800
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
796to800
796to800
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

heutiges Datum 14 Zeilen weiter unten darstellen?

heutiges Datum 14 Zeilen weiter unten darstellen?
31.08.2006 21:17:00
Peter
Hallo zusammen,
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: heutiges Datum 14 Zeilen weiter unten darstell
31.08.2006 21:23:39
Josef
Hallo Peter!
Probier's mal so.
Private Sub Workbook_Open()
Dim Aktuell As Integer

With Sheets("Eingabe")
  Aktuell = WorksheetFunction.Match(CDbl(Date), .Columns(1), 0)
  .Cells(Aktuell, 1).Select
End With

On Error Resume Next

With ActiveWindow
  .ScrollColumn = 1
  .ScrollRow = Aktuell - 14
End With

Err.Clear

On Error GoTo 0

End Sub


Gruß Sepp

Anzeige
AW: heutiges Datum 14 Zeilen weiter unten darstellen?
31.08.2006 21:27:48
Peter
Hallo Peter,
dann schau mal, ob es das ist, was du möchtest:

Private Sub Workbook_Open()
Dim Aktuell As Integer
With Worksheets("Eingabe")
Aktuell = WorksheetFunction.Match(CDbl(Date), .Columns(1), 0)
Application.Goto .Cells(Aktuell - 14, 1), True
End With
End Sub

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
AW: heutiges Datum 14 Zeilen weiter unten darstellen?
31.08.2006 21:42:50
Peter
Danke für schnellen Antworten
@Sepp und @Peter
beide Codes funktionieren.
Gruß
Peter

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige