aktuelles Datum in Zeile suchen

• aktuelles Datum in Zeile suchen von Markus Schwarz vom 25.09.2003 08:28:27
  • AW: aktuelles Datum in Zeile suchen - von BerndE am 25.09.2003 08:47:07
    • AW: aktuelles Datum in Zeile suchen - von Markus Schwarz am 25.09.2003 09:56:16
      • Gern geschehen !!! oT - von BerndE am 25.09.2003 11:29:00
  • AW: aktuelles Datum in Zeile suchen - von WernerB. am 25.09.2003 09:03:27

Betrifft: aktuelles Datum in Zeile suchen
von: Markus Schwarz
Geschrieben am: 25.09.2003 08:28:27

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

Betrifft: AW: aktuelles Datum in Zeile suchen
von: BerndE
Geschrieben am: 25.09.2003 08:47:07

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




Betrifft: AW: aktuelles Datum in Zeile suchen
von: Markus Schwarz
Geschrieben am: 25.09.2003 09:56:16

Vielen Dank!
Hat wunderbar geklappt.

Markus




Betrifft: Gern geschehen !!! oT
von: BerndE
Geschrieben am: 25.09.2003 11:29:00

.




Betrifft: AW: aktuelles Datum in Zeile suchen
von: WernerB.
Geschrieben am: 25.09.2003 09:03:27

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).

Beiträge aus den Excel-Beispielen zum Thema " aktuelles Datum in Zeile suchen"