Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
992to996
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
992to996
992to996
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Button zum aktuellen Datum
10.07.2008 10:12:25
Udo
Hallo,
trotz intensiver suche, hab ich ne menge gefunden aber nichts funktioniert, da ich von vba wenig verstehe.
Nun, ich habe einen Button in meiner ExcelTabelle, und bei betätigen, soll er auf das aktuelle datum springen. (Fehlt nur der Code zum springen)
Ab Zeile C11 gehts los, per Formel Kalenderwoche 1 den Monatg suchen. =(DATUM($AI$12;1;7*B14-3-WOCHENTAG("2/"&$AI$12;3)))
Ab Zeile C15 gehts weiter mit C11+1 (Ja die einzelnen Daten sind mit 3 Zeilen verbunden. Geht leider nicht anders.)
Die Wochen sind mit einer leerzeile unterbrochen.
Gruß
Udo
P.S.: Wenn der Curser dann bei dem aktuellen datum in Zelle D springen würde und da ich das Fenster geteilt habe. die Woche ganz oben steht wäre klasse!!!

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Button zum aktuellen Datum
10.07.2008 10:23:00
Specke
Hallo Udo,
ich hoffe, ich habe Dich richtig verstanden.

Private Sub CommandButton1_Click()
With Worksheets(1).Range("c11:c500")
Set c = .Find(Date, LookIn:=xlValues)
If Not c Is Nothing Then
Worksheets(1).Range("D" & c.Row).Activate
End If
End With
End Sub


Gruß Specke

AW: Button zum aktuellen Datum
10.07.2008 11:11:00
Udo
Hallo Specke,
Dein Code funktioniert leider nicht.
Fehlermeldung:
Laufzeitfehler 1004
Die Find eigenschaft des Range-Objektes kann nicht zugeordnet werden.
Bei deinem Code habe ich nur die Zeilen geändert:
With Worksheets(1).Range("c11:c1170")
Trotzdem schonmal Danke für die schnelle antwort.
Udo

Anzeige
AW: Button zum aktuellen Datum
10.07.2008 11:30:00
Specke
Hallo Udo,
ich lese gerade, dass Du "nur" Version 97 hast. Da gibt es kein Find :-(
Probier es mal so (ungetestet)
for each zelle in Worksheets(1).Range("c11:c1170")
if zelle.value=date then
zelle.offset(0,1).activate
exit for
end if
next zelle
Gruß Specke

AW: Button zum aktuellen Datum
10.07.2008 11:38:00
Udo
Hy,
Ich such schon seit einiger Zeit den Code.
Klappt prima!!!
Danke
Gruß
Udo

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige