Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
348to352
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
348to352
348to352
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

aktuelles Datum selektieren

aktuelles Datum selektieren
07.12.2003 18:31:25
DieterL
Hallo Excelfreunde,
ich habe fogendes Problem:
In einem Tabellenblatt habe ich einen Arbeitszeitkalender in dem die Tage untereinander angeordnet sind. Mit einer bedingten Formatierung habe ich schon erreicht das der aktuelle Tag farblich markiert wird. Nun möchte ich noch erreichen das beim Ereignis "Worksheet Activate" die Zelle mit dem aktuellen Datum selectiert wird und dadurch in der Mitte des Bildschirms erscheint, egal wo sie vorher war. Leider fehlt mir im Moment der richtige Lösungsansatz und ich muss bis morgen fertig sein.
Ich hoffe es kann mir jemand helfen.
Gruß DieterL

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: aktuelles Datum selektieren
07.12.2003 18:37:28
Franz W.
Hallo Dieter,

hier eine Möglichkeit von Boris beim Öffnen der Datei, kannst Du Dir ja umsetzen:


Private Sub Workbook_Open()
'von Boris
Dim ws As Worksheet
Dim r As Range
Set ws = Worksheets("Tabelle1")
ws.Activate
Set r = Cells.Find(Date)
'## Steht nicht das Datum in der Zelle, sondern z.B. eine Formel, _
die es erzeugt, muss es heißen:
'    Set r = Cells.Find(Date, LookIn:=xlValues)
If Not r Is Nothing Then
r.Select
Exit Sub
End If
MsgBox "Datum nicht gefunden"
End Sub


Grüße
Franz
Funktioniert
07.12.2003 18:49:41
DieterL
Fuktioniert nach Anpassung hervorragend!
Danke für den Tip und schönen Sonntag noch.

Gruß DieterL
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige