Microsoft Excel

Herbers Excel/VBA-Archiv

Gehe zu Heute

    Betrifft: Gehe zu Heute von: Markus
    Geschrieben am: 01.09.2003 12:17:27

    Hallo,

    wie kann ich erreichen, daß die Einfügemarke in meiner Zeiterfassungsmappe beim Öffnen immer zum aktuellen Tag springt? (Mappe mit 12 Blättern)

      


    Betrifft: Details von: sergiesam
    Geschrieben am: 01.09.2003 12:49:42

    Hi,

    tja, im Hellsehen sind wir nicht ganz so gut ;-) du musst uns schon etwas genauer beschreiben, wie deine Mappe aussieht.

    12 Blätter wie beschriftet Jan-Dez, Januar- Dezember,...
    sind pro Blatt die Tage des Monats in Zellen?....

    Bitte lade doch eine Beispielmappe hoch.
    Sam


      


    Betrifft: AW: Gehe zu Heute von: Rick
    Geschrieben am: 01.09.2003 12:54:16


    Hallo Markus

    Drücke Alt + F11, dann wähle 'Diese Arbeitsmappe' und gebe folgende Formel ein;

    Private Sub Workbook_Open()
            Sheets(Array("Tabelle 1", "Tabelle 2", "Tabelle 3", "Tabelle 4")).Select
           Sheets("Tabelle 1").Activate
        Application.Goto Reference:="Datum"
        Selection.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas _
            , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False).Activate
        ActiveCell.Offset(0, 1).Range("A1").Select
            Sheets("Tabelle 1").Select
    End Sub
    


    Die Tabellennamen musst du natürlich anpassen !!! und auch sonst musst du's noch vermutlich noch anpassen (ich weiss z.B. nicht, ob in jeder Tabelle das aktuelle Datum am gleichen Ort steht etc.)


    Gruss
    Rick