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

aktuelles Datum in Zeile suchen

aktuelles Datum in Zeile suchen
25.09.2003 08:28:27
Markus Schwarz
Guten Morgen Forum!

Habe einen Abwesenheitsplan erstellt.
1. Halbjahr auf Blatt 1
2. Halbjahr auf Blatt 2

In Zeile 4 befindet sich je Zelle ein fortlaufendes Datum.

Nun soll beim Öffnen der Datei die Zelle mit dem aktuellen Datum in Zeile 4 gesucht werden und diese ausgewählt sein (Focus, Select?), so dass der Anwender nicht nach diesem Datum suchen muss.

Danke für Eure Hilfe...

Markus Schwarz

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: aktuelles Datum in Zeile suchen
25.09.2003 08:47:07
BerndE
Hallo Markus,

versuch mal folgendes im 'Workbook_Open-Ereignis':

AktDatum = Date
AktHJ = 1
If Month(AktDatum) > 6 Then AktHJ = 2
Select Case AktHJ
Case 1
Blatt = "Halbjahr1"
Case 2
Blatt = "Halbjahr2"
End Select

Sheets(Blatt).Select
For Spalte = 1 To ActiveSheet.UsedRange.Columns.Count
If Cells(4, Spalte) = AktDatum Then
Cells(4, Spalte).Select
Exit Sub
End If
Next

MsgBox (AktDatum & " nicht gefunden")

Gruß
Bernd

www.bernds.page.de.vu
Anzeige
AW: aktuelles Datum in Zeile suchen
25.09.2003 09:56:16
Markus Schwarz
Vielen Dank!
Hat wunderbar geklappt.

Markus
Gern geschehen !!! oT
25.09.2003 11:29:00
BerndE
.
AW: aktuelles Datum in Zeile suchen
25.09.2003 09:03:27
WernerB.
Hallo Markus,

kopiers das nachstehende Makro in das Modul von "DieseArbeitsmappe":

Option Explicit

Private Sub Workbook_Open()
Dim c As Range
Dim laC As Integer
If Month(Date) < 7 Then
Sheets(1).Select
Else
Sheets(2).Select
End If
laC = Cells(4, Columns.Count).End(xlToLeft).Column
For Each c In Range(Cells(4, 1), Cells(4, laC))
If c.Value = Date Then
c.Select
Exit For
End If
Next c
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).
Anzeige

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige