VBA-Lösung gesucht (Datum finden)

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: VBA-Lösung gesucht (Datum finden)
von: Christoph
Geschrieben am: 11.04.2005 09:26:15
Hi Leute,
ich habe in einer Tabelle in Spalte D das Datum sthen (für ein ganzes Jahr). Jetzt will ich aber beim öffnen der Arbeitsmappe direkt zum aktuellen Datum springen. Habt ihr ne Idee?
Gruß
Christoph

Bild

Betrifft: AW: VBA-Lösung gesucht (Datum finden)
von: Tobias Marx
Geschrieben am: 11.04.2005 09:28:49
Servus!

Sub CommandButton1_Click
 endup = Range("D65536").End(xlUp).Row
 For i = 1 to endup
  If Range("C" & i ).Value = Date Then
  Range("C" & i ).Activate
  End If
 Next
End Sub

Gruss

Tobias
Bild

Betrifft: AW: VBA-Lösung gesucht (Datum finden)
von: Christoph
Geschrieben am: 11.04.2005 09:34:00
Cool,
aber hast du auch ne Lösung ohne Schaltfläche (findmethode).
Bild

Betrifft: AW: VBA-Lösung gesucht (Datum finden)
von: Tobias Marx
Geschrieben am: 11.04.2005 09:35:55
Servus!
Ob du das jetz ueber ne Schaltflaeche startest oder aber ohne, ist im Prinzip egal, ich habs zum Spass jetzt halt nem CommandButton zugewiesen :)
Du kannst das Sub CommandButton1_Click aber auch durch nen Makronamen deiner Wahl ersetzen und als Modul im VBE einfuegen.
Gruss

Tobias
Bild

Betrifft: AW: VBA-Lösung gesucht (Datum finden)
von: Christoph
Geschrieben am: 11.04.2005 09:42:38
Es funktioniert jedoch nur über nen Button
Bild

Betrifft: AW: VBA-Lösung gesucht (Datum finden)
von: Tobias Marx
Geschrieben am: 11.04.2005 09:49:44
Es funktioniert sicherlich nicht nur ueber einen Button, wenn dus entsprechend anpasst...

Gruss

Tobias
Bild

Betrifft: AW: VBA-Lösung gesucht (Datum finden)
von: UweD
Geschrieben am: 11.04.2005 09:31:21
Hallo
Hier ein Beispiel für Tabelle1:

Private Sub Workbook_Open()
    'Aktuelles Datum auswählen bei Start
    With Worksheets(1).Range("D:D")
        Set c = .Find(Date, LookIn:=xlValues)
        If Not c Is Nothing Then
            Zelle = c.Address
            Range(Zelle).Select
        Else
            MsgBox "Datum " & Date & " fehlt!"
            Range("D1").Select
        End If
    End With
End Sub

Gruß UweD
 Bild

Beiträge aus den Excel-Beispielen zum Thema "VBA-Lösung gesucht (Datum finden)"