Das Archiv des Excel-Forums
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
- Gern geschehen !!! oT - von BerndE am 25.09.2003 11:29:00
- AW: aktuelles Datum in Zeile suchen - von Markus Schwarz am 25.09.2003 09:56:16
- AW: aktuelles Datum in Zeile suchen - von WernerB. am 25.09.2003 09:03:27
- AW: aktuelles Datum in Zeile suchen - von BerndE am 25.09.2003 08:47:07
 |
Betrifft: aktuelles Datum in Zeile suchen
von: 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
 |
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).
| |
