Anzeige
Archiv - Navigation
464to468
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
464to468
464to468
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Gehe zu Zelle, wenn Datei älter als ...

Gehe zu Zelle, wenn Datei älter als ...
11.08.2004 12:30:49
Jessie
Hallo Ihr beneidenswerten Excel-Profis,
kann mir jemand sagen, wie ich so was machen kann:
gehe zu Zelle mit Datum &gt 1.7.04
Lieben Dank euch allen,
Jessie

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gehe zu Zelle, wenn Datei älter als ...
Nike
Hi,
angenomme die stehen alle untereinander in Spalte A
und die Werte fangen in der 2.Zeile an, dann wuerd ich es so versuchen:

Sub gehMa()
dim lngZeil as Long
lngLong = 1
do
lngLong = lngLong +1
if cells(lngLong,1)="" then
exit sub
end if
loop until cdate(cells(lngLong,1)) &gt cdate("01.07.04")
cells(lngLong,1).select
End Sub

Bye
Nike
AW: Gehe zu Zelle, wenn Datei älter als ...
11.08.2004 13:05:49
Jessie
Hey nike,
klasse danke. gibt es eine Möglichkeit ALLE diese Zellen auf einmal zu finden bzw. in einer Schleife und alle z.b. rot zu färben für die dieses Kriterium zutrifft.
Mit dem Makro oben findet wírd nämlich nur die erste Zelle selektiert, für die das Kriterium zutrifft und bricht dann ab.
danke nochmal,
Jessie
Anzeige
AW: Gehe zu Zelle, wenn Datei älter als ...
Nike
Hi,
das dann wohl eher so:

Sub gehMa()
dim lngZeil as Long
lngLong = 2
do
if isdate(cells(lngLong,1)) then
if cdate(cells(lngLong,1)) > cdate("01.07.04") then
cells(lngLong,1).interior.colorindex = 3
end if
end if
lngLong = lngLong +1
loop until cells(lngLong,1)=""
End Sub

Bye
Nike
VIELEN DANK!
11.08.2004 13:17:45
Jessie
DANKE!!!
Ist perfekt...
Jessie

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige