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

nach Zellenformat "Datum" suchen

nach Zellenformat "Datum" suchen
30.10.2003 12:23:36
Tobias
Hallo @all!

Wie kann ich nach einer Zelle suchen, dessen Format ein Datum ist?

thx 4 ur answers!

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

Betreff
Datum
Anwender
Anzeige
=LINKS(ZELLE("Format";A1))="D"
30.10.2003 12:29:05
Boris
Grüße Boris
verstehe ich nicht
30.10.2003 12:51:53
Tobias
Hi!

Also meine Prozedure sieht bisher so aus:


Sub DatumSuchen()
Dim arrayDatum() As Integer
Dim i As Integer, j As Integer, k As Integer
k = 0
datenDatum = "=("
For i = 1 To Range("z40").End(xlToRight).Column 'Zeilen absuchen
For j = 1 To Range("a65536").End(xlUp).Row     'Spalten absuchen
If Cells(i, j) = ??? Then
k = (k + 1)                                 'Index des arrays erhöhen
ReDim Preserve arrayDatum(k)
arrayDatum(k) = Cells(i, j).Column          'Spalte des Datum speichern
End If
Next
Next
For i = 1 To UBound(arrayDatum)
datenDatum = datenDatum + ("Sheet1!R1" & "C" & (arrayDatum(i)) & ",")
Next
datenDatum = Left(datenDatum, Len(datenDatum) - 1)  'Komma abschneiden
datenDatum = datenDatum + ")"
End Sub


da wo die Fragezeichen stehen, fehlt mir noch etwas. Und zwar soll er alle Zellen finden, in den ein Datum steht (Format: tt.mm.yy).

thx 4 ur answers!
Anzeige
If Cells(i, j).NumberFormatLocal = "TT.MM.JJ" then
30.10.2003 12:59:20
Boris
Hi Tobias,

...aber warum postest du deinen Code nicht direkt?

Grüße Boris
Vielen Dank!!!
30.10.2003 13:52:02
Tobias
Vielen Dank!!!

312 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige