Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
260to264
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
260to264
260to264
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Cells.Find

Cells.Find
26.05.2003 12:17:51
Megatron (Jens)
Hallo,
ich benötige wiedermal Eure Hilfe!

Ich möchte, dass beim Start meiner Datei als aktive Zelle die Zelle ausgewählt wird, in der das heutige Datum steht.
Dabei treten zwei Probleme auf:
1. Funktioniert das untere Makro zwar bei der Aufzeichnung, aber nicht wenn ich es neu starte. Sieht irgendjemand einen Fehler?

Private Sub Workbook_Open()
Worksheets("Tabelle1").Activate
Range("A1").Select
Cells.Find(What:="26.05.2003", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
End Sub

2. Gibt es eine Möglichkeit mittels des Cells.Find Befehls eine Variable einzugeben ("=heute()").

Kennt irgendjemand eine Lösung (wäre auch über Alternativvorschläge erfreut!).

Gruß
Jens

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
heutiges Datum finden mit Cells.find
26.05.2003 12:29:46
Boris

Hi Jens,

so sollte es gehen:

Die Zelle mit dem heutigen Datum wird selektiert.

Gruß Boris


Re: Cells.Find
26.05.2003 12:29:49
Nike

Hi,
versuchs mal so:

Private Sub test()
Dim rngFind As Range
Set rngFind = Worksheets("Tabelle1").Cells.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False)
If Not rngFind Is Nothing Then
rngFind.Activate
End If
End Sub


Bye

Nike

Re: Cells.Find
26.05.2003 12:37:02
xxx

Hallo,
versuchs mal so:
Cells.Find(What:=Date, After:=ActiveCell, LookIn:=xlvalues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate

Gruß aus'm Pott
Udo

Anzeige
Danke!
26.05.2003 12:37:48
Megatron (Jens)

Danke die beiden Varianten funktionieren super (auch wenn ich felsenfest davon überzeugt bin, dass ich zumindest eine schon mal ausprobiert habe und keinen Erfolg hatte!).

Es würde mich aber trotzdem interessieren was an meiner Suchfunktion (abgesehen davon, dass sie nicht variabel war), falsch war. Immerhin hat es beim Aufzeichnen ja auch funktioniert.

Noch einmal herzlichen Dank!!!
Gruß
Jens

(... und da sagt wieder einer, ...
26.05.2003 16:01:47
Franz W.

er hätte von VBA keine Ahnung ;-))), auch noch mit Fehlerbehandlung!!). Hab mir den Tipp schon aufgehoben, Boris, danke

Beste Grüße
Franz

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge