Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema OptionButton
BildScreenshot zu OptionButton OptionButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ScrollBar
BildScreenshot zu ScrollBar ScrollBar-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema SpinButton
BildScreenshot zu SpinButton SpinButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Button zum aktuellen Datum

Betrifft: Button zum aktuellen Datum von: Udo
Geschrieben am: 10.07.2008 10:12:25

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!!!

  

Betrifft: AW: Button zum aktuellen Datum von: Specke
Geschrieben am: 10.07.2008 10:23:02

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


  

Betrifft: AW: Button zum aktuellen Datum von: Udo
Geschrieben am: 10.07.2008 11:11:50

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


  

Betrifft: AW: Button zum aktuellen Datum von: Udo
Geschrieben am: 10.07.2008 11:22:18

Hallo nochmal,

ich habe mal einen Teil der Datei hochgeladen

https://www.herber.de/bbs/user/53710.xls


  

Betrifft: AW: Button zum aktuellen Datum von: Specke
Geschrieben am: 10.07.2008 11:30:43

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


  

Betrifft: AW: Button zum aktuellen Datum von: Udo
Geschrieben am: 10.07.2008 11:38:28

Hy,

Ich such schon seit einiger Zeit den Code.
Klappt prima!!!

Danke

Gruß
Udo


 

Beiträge aus den Excel-Beispielen zum Thema "Button zum aktuellen Datum"