Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum
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


Hallo,
ich möchte in Excell mehrere Zelle suchen, die folgenden String in einer oder mehreren Zeilen enthalten: ----
Diese Zeilen möchte ich dann löschen. Nach diesem String sind noch weitere Zeichen vorhanden, die auch gelöscht werden sollen.
Weiß jemand wie ich am besten vorgehe?...

Hi Leute
Da ich nicht weiß, wie ich nach meinem Problem suchen kann, beschreibe ich es einfach mal kurz. Vielleicht kann mir ja jemand helfen.
Ich habe ein Excel-File, das xSpalten hat und xZeilen.
In einer Spalte (in meinem Fall Spalte F) stehen die verschiedenen Auftragsnummern, a...

Nabend alle miteinander
In einer bestimmten Zeile suche ich den letzten Eintrag. Bis zu diesem soll gefaerbt werden. Mit diesem Code faerbe ich den ganzen Bereich, es soll aber nur bis zum letzten Eintrag in der Zeile gefaerbt werden. Da von links nach rechts gefaerbt.
Case Is = Cells...

Hi,
ich versuche folgendes in meine Datei einzubauen.
Tabelle 2 enthält Adressdaten und eine Infospalte. In diese Infospalte kann der Wert "S" oder der Wert "A" eingetragen werden.
In Tabelle 1 sind auch diverse Adressdaten gepflegt. Alle Adressen in Tabelle 1 sind auch in Tabelle 2...

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...

Hallo VBAler,
wenn ich ein Array in der Form
treffer_n(n)
habe, gibt es da eine schnelle und einfache Möglichkeit zu prüfen, ob ein bestimmter Wert in diesem Array vorhanden ist, oder muss ich alle Werte per Schleife einzeln prüfen lassen?
Gruß
David

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige