nach Zellenformat "Datum" suchen

Bild

Betrifft: nach Zellenformat "Datum" suchen
von: Tobias
Geschrieben am: 30.10.2003 12:23:36

Hallo @all!

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

thx 4 ur answers!

Bild


Betrifft: =LINKS(ZELLE("Format";A1))="D"
von: Boris
Geschrieben am: 30.10.2003 12:29:05

Grüße Boris


Bild


Betrifft: verstehe ich nicht
von: Tobias
Geschrieben am: 30.10.2003 12:51:53

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!


Bild


Betrifft: If Cells(i, j).NumberFormatLocal = "TT.MM.JJ" then
von: Boris
Geschrieben am: 30.10.2003 12:59:20

Hi Tobias,

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

Grüße Boris


Bild


Betrifft: Vielen Dank!!!
von: Tobias
Geschrieben am: 30.10.2003 13:52:02

Vielen Dank!!!


 Bild

Beiträge aus den Excel-Beispielen zum Thema " nach Zellenformat "Datum" suchen"