EXCEL-Frage

Dieses Thema im Forum "Office-Programme" wurde erstellt von benutzername, 4. November 2002.

Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. benutzername

    benutzername Byte

    Registriert seit:
    23. September 2002
    Beiträge:
    15
    Hallo folgendes kleines Prob. Ich habe ein Tabellenblatt mit Datumsangaben (jedes Datum eine Zeile). Beim Öffnen des Tabellenblattes soll nun automatisch zu heutigen Tag gesprungen werden. Kann mir da jemand helfen?

    Danke.
     
  2. benutzername

    benutzername Byte

    Registriert seit:
    23. September 2002
    Beiträge:
    15
    Hallo, gibt es vielleicht noch die Möglichkeit, dass Excel automatisch alle Tabellenblätter durchsucht?
    (Vielleicht auch mit dem Modul aus meinem voherigem Posting?)

    Steffen
     
  3. benutzername

    benutzername Byte

    Registriert seit:
    23. September 2002
    Beiträge:
    15
    yup, das isses, danke Dir.

    (hatte mir zwischenzeitlich aus den Google-Groups diese Lösung hier geben lassen. Funktioniert leider nur auf einem Tabellenblatt.

    Private Sub Workbook_Open()
    Range("c3").Select
    Do Until ActiveCell.Value = Date Or ActiveCell.Value = ""
    ActiveCell.Offset(1, 0).Select
    Loop
    End Sub

    )
     
  4. excelerator

    excelerator Byte

    Registriert seit:
    13. Februar 2002
    Beiträge:
    32
    Hallo,
    unter der Voraussetzung, dass sich deine Daten auf der ersten Tabelle befinden:
    Ins Klassenmodul der Arbeitsmappe:

    Private Sub Workbook_Open()
    Sheets(1).Select
    Cells.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False).Activate
    End Sub

    Gruss
    Udo
     
Status des Themas:
Es sind keine weiteren Antworten möglich.

Diese Seite empfehlen