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)"