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: Makro "jump to heute" | Herbers Excel-Forum


Betrifft: Button: Makro "jump to heute" von: Chris
Geschrieben am: 24.01.2012 17:07:11

Hallo zusammen,

ich bräuchte Hilfe beim Schreiben eines Makros, das hinter einem Button liegt. Per Klick auf den Button soll in die Zeile mit dem heutigen Datum gesprungen werden.
Das Datum selbst liegt in Spalte im Format "TTT, * TT. MMM. JJ", genauer im Bereich C6:C1106.

Vielen Dank!
Chris

  

Betrifft: Such im Archiv lohnt sich.. owT von: robert
Geschrieben am: 24.01.2012 17:16:57




  

Betrifft: AW: Button: Makro "jump to heute" von: serge
Geschrieben am: 24.01.2012 17:25:08

Hallo Chris

Sub heute()
Dim zelle As Range
For Each zelle In Range(" C6:C1106")
If zelle.Value = Date Then
zelle.Select
Exit Sub
End If
Next zelle
End Sub

Gruss Serge


  

Betrifft: AW: Button: Makro "jump to heute" von: Chris
Geschrieben am: 24.01.2012 17:32:54

Perfekt! Danke!


  

Betrifft: auch ohne vba möglich von: selli
Geschrieben am: 25.01.2012 08:22:22

hallo chris,

das ganze geht auch ohne vba.

mittels hyperlink: =HYPERLINK("#A"&VERGLEICH(HEUTE();C6:C1106;);"Heute")

gruß
selli