Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
284to288
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
284to288
284to288
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Select der Zelle mit aktuellem Datum

Select der Zelle mit aktuellem Datum
31.07.2003 09:54:29
Markus Schwarz
Hallo Forum!
Habe eine Datei mit zwei Blättern.
Das erste Blatt hat in Zeile 4 Daten des 1.Halbjahres, das zweite hat das zweite Halbjahr.
Also A4 01.01.03 B4 02.01.03 usw.
Ich möchte nun beim Öffnen der Datei, das automatisch die Zelle mit dem aktuellem Datum markiert ist...
Vielen Dank für die Hilfe,
Markus Schwarz

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

Betreff
Datum
Anwender
Anzeige
AW: Select der Zelle mit aktuellem Datum
31.07.2003 10:02:38
heinerv
Hallo Markus,
Zellbereich markieren
bedingte Formatierung
Formel =
Formel: =$A24=heute()
entsprechendes Format festlegen
(A24 wäre die erste Zelle im Bereich)
Gruß
heinerv

AW: Select der Zelle mit aktuellem Datum
31.07.2003 10:35:08
Nike
Hi,
ich würd den folgenden Code in das Codemodul
"Diese Arbeitsmappe" deiner Mappe einfügen:

Private Sub Workbook_Open()
Dim rngDat As Range
If Date >= DateSerial(Year(Date), 6, 1) Then
With Worksheets(2)
Set rngDat = .Rows(4).Find(Date)
If Not rngDat Is Nothing Then
rngDat.Select
.Activate
End If
End With
Else
With Worksheets(1)
Set rngDat = .Rows(4).Find(Date)
If Not rngDat Is Nothing Then
rngDat.Select
.Activate
End If
End With
End If
End Sub

Bye
Nike

Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige