zeile mit bestimmten datum einblenden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Activate() Dim rng As Range Dim dat As Date, dat2 As Date, dat3 As Date Dim var As Variant Dim i As Byte On Error GoTo errorhandler dat = Date 'InputBox("Bitte Datum eingeben: ", "Datum?", Date) var = Application.Match(CDbl(dat), Columns(1), 0) If IsError(var) = False Then Cells(var, 1).Select Else Beep MsgBox prompt:="Datum wurde nicht gefunden!" End If errorhandler: End Sub

Hallo Jürgen,

bei dem nachstehenden Makro bin ich mangels Informationen davon ausgegangen, dass das Tagesdatum immer irgendwo in der Spalte "A" steht; sollte dies nicht der Fall sein, müsste das Makro natürlich entsprechend angepasst werden.

Das Makro gehört in das entsprechende Tabellenblatt-Modul (also nicht in ein normales Standard-Modul).

In das Tabellenblatt-Modul gelangst Du wie folgt:
- Rechtsklick auf den Tabellenblatt-Namen (Reiter/Lasche)
- Code anzeigen
- Das nachstehende Makro in die große weiße Fläche auf der rechten Seite kopieren.
- Mit Alt + Q zurück zu Excel
- Fertig

Das Makro wirkt selbsttätig. Immer wenn auf dieses Tabellenblatt gewechselt wird, wird das Makro gestartet.

Option Explicit


Private Sub Worksheet_Activate()
Dim c As Range
Dim laR As Long
Application.ScreenUpdating = False
laR = Cells(Rows.Count, 1).End(xlUp).Row
For Each c In Range("A1:A" & laR)
If c.Value = Date Then
Application.Goto Reference:=c, Scroll:=True
End If
Next c
Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).

Hallo Jürgen,

da Du zwischenzeitlich noch zwei andere Threads zu diesem Thema eröffnet hast, habe ich Deinen Beitrag vom 10.09.2003 (10:59:35) in diesem Thread erst jetzt entdeckt; er scheint sich ja auf Deinen dritten Thread zu beziehen.

Bei der Erstellung des Button-Makros würde ich wie folgt vorgehen:

- Ansicht / Symbolleisten / Steuerelement-Toolbox
- Aus dieser Toolbox heraus eine Befehlsschaltfläche erzeugen
- Rechtsklick auf die Befehlsschalfläche (Command-Button)
- "Code anzeigen" anklicken
- Es wird das Tabellenblatt-Modul geöffnet
- Darin ist bereits das "automatische" Makro enthalten
- Es wurden zwei neue Zeilen in das Modul eingefügt:


Private Sub CommandButton1_Click
End Sub

- Zwischen diese beiden Zeilen kopierst Du mein zweites Makro ohne die die erste und ohne die letzte Zeile (also von "Dim c ..." bis "Application.ScreenUpdating = True")
- Zurück zu Excel geht's mit Alt+Q
- Toolbox schließen
- Wenn Du jetzt den Button anklickst, sollte das Makro flutschen.

Gruß WernerB.

Beliebteste Forumthreads (12 Monate)

zeile mit bestimmten datum einblenden

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

zeile mit bestimmten datum einblenden

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread