Das Archiv des Excel-Forums

aktuelles Datum in Zeile suchen

Bild

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
Bild


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


Bild


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

Vielen Dank!
Hat wunderbar geklappt.

Markus


Bild


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

.


Bild


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


 Bild

Excel-Beispiele zum Thema " aktuelles Datum in Zeile suchen"

Beim Öffnen der Arbeitsmappe auf aktuelles Datum prüfen download Zellinhalt suchen und Zelle auswählen download
Suchbegriff über mehrere Tabellenblätter suchen. download Suchen und weitersuchen download
Zahl +/- 1 suchen download Ein Zeichen in einer Formel suchen download
Datum suchen und Wert eintragen download Wert in Tabelle suchen und in UserForm ausgeben download
Letzte Zelle mit Inhalt suchen download Textdatei nach Begriff durchsuchen und Fundzeile importieren download
Wert in Array suchen, ohne jedes Datenfeld abzufragen download Wert in Tabellenblatt suchen und alle Fundwerte in zweite Tabelle download
Begriffe in ausgeblendeter Spalte suchen und Fundzeile markieren download Wert aus UserForm-TextBox in Tabelle suchen und in ListBox listen download
Suchbegriff aus einer UserForm-Textbox in Tabelle suchen und melden download Suchwert in zweiter Tabelle suchen und Fundzeile eintragen download
Suchen von Nachnamen in Zeichenfolgen download Dateien in einem Verzeichnis und Unterverzeichnissen suchen download
Datum suchen und Adresse der Fundzelle ausgeben download Begriffe in zweiter Tabelle suchen und Werte anfügen download
Text aus UserForm-TextBox in Tabelle suchen download Zweidimensionale Matrix mit der SVERWEIS-Funktion durchsuchen download
Suchbegriff in vorhergehenden Tabellen suchen download Werte aus UserForm-ComboBox suchen und Fundstelle kopieren download
Neueste Textdatei eines Verzeichnisses suchen und umbenennen download Artikelnummern suchen und jeweils letzte Fundstelle listen download
Wörter eines Satzes in Indizliste suchen download Wert aus UserForm-TextBox suchen und Fundstelle kopieren download
Zellwert nach Doppelklick in Tabelle suchen download Suchen in 2. Tabelle und Ersetzen der Quelldaten download
Wert in Tabelle 2 suchen und Fundstellen übertragen download Suchbegriff in Tabelle suchen und Fundzeilen auswählen download
Suchbegriffe aus Tabelle im Excel-WebArchiv suchen download Wert aus ComboBox in TextBox, dann in Tabelle suchen download
Artikelnummer über InputBox suchen und eintragen download Anwendung auf Fesplatte suchen download
Tabelle nach ComboBox-Auswahl durchsuchen download Werte suchen, eintragen und löschen download
Zeile 1 nach Wert der aktiven Zelle durchsuchen download Suchbegriff in Tabelle suchen und Fundzeilenindex zurückgeben download
Wert in zweiter Tabelle suchen und als Kommentar ausgeben download Wert in externer Mappe suchen und mit Format übernehmen. download
Artikelnummern nach Kriterien suchen und Datensätze kopieren download Wert in ComboBox einlesen, suchen, editieren, ausgeben download
Grafikdateien suchen download Suchen der Nachbarzelle der Zelle mit dem Maximalwert download
Text in Textdateien suchen und Fundzeilen in Tabelle ausgeben download Begriff suchen und Fundzeilen in anderes Blatt kopieren download
Zahl suchen und an den Fundstellen Zeile einfügen download Name und Vorname suchen, Werte und Fundstellen importieren download
Begriff in der ersten Spalte einer ListBox suchen download