Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1240to1244
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
Inhaltsverzeichnis

Datum mittels VBA finden

Datum mittels VBA finden
Lorenz
Hallo Excelianer(innen)
Ich möchte das Datum aus wksWE.Cells(2, 2) in wksKalender.Range("H12:ABJ12") suchen, anschließend die Adresse des "gefundenen" anzeigen. Mit dem unten eingefügten Code wills leider nicht.
Dim rngSuchDatum As Range, datDatum As Date
datDatum = CDate(wksWE.Cells(2, 2))
Set rngSuchDatum = wksKalender.Rows(12).Find(CDate(datDatum), lookat:=xlWhole)
MsgBox rngSuchDatum.Address
(wks... sind jeweils CodeName der Sheets)
Was ist am Code falsch?
Gruß
Lorenz

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Datum mittels VBA finden
13.12.2011 11:07:56
Rudi
Hallo,
versuchs mal mit
Set rngSuchDatum = wksKalender.Rows(12).Find(datDatum, lookat:=xlWhole, LookIn:=xlFormulas)
Gruß
Rudi
AW: Datum mittels VBA finden
13.12.2011 11:16:04
Lorenz
Hallo Rudi!
Hab´s probiert.
liefert leider auch "Laufzeitfehler 91" "Objektvariable oder With-Objektblock nicht festgelegt"
Grüße
Lorenz
AW: Datum mittels VBA finden
13.12.2011 12:50:17
Rudi
Hallo,
gibt es das Datum sicher?
Gruß
Rudi
AW: Datum mittels VBA finden
13.12.2011 13:12:39
Lorenz
Hallo Rudi
Ja, das Datum gibt es!
Habe es folgendermaßen abgerufen
MsgBox CDate(wksWE.Cells(2, 2))
MsgBox CDate(wksKalender.Cells(12, "AL"))
Grüße
Lorenz
AW: Datum mittels VBA finden
13.12.2011 14:37:29
Rudi
Hallo,
mit CDate wandelst du Text in ein Datum um.
Wenn in Zeile 12 Text ist und kein Datum, wird das nicht gefunden.
Evtl. so:
MsgBox Rows(12).Find(Format(Cells(2, 2), "DD.MM.YYYY"), LookIn:=xlValues).Address
Gruß
Rudi
Anzeige
AW: Datum mittels VBA finden
13.12.2011 16:29:10
Lorenz
Hallo Rudi,
Danke für´n Tipp.
Wurde in meinem Code
eingebaut.
Danke & Grüße
Lorenz

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige