Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "VBA-Lösung gesucht (Datum finden)"
Julianisches Datum Schriftfarbe rot, wenn Datum > Heute
Datumsformatkonvertierung (von Heinrich Stuerzl) Letztes Speicherdatum eintragen
Datumsdifferenz in der Form "12 Jahre, 3 Monate, 4 Tage" Automatische Datumformatierung unterdrücken
Arbeitsmappe mit dem Namen des aktuellen Datums öffnen Addition bis zum aktuellen Datum
Tabellenblattnamen nach Datum Datum in Fußzeile einfügen