Ich danke Euch!
Ich danke Euch!
Du mußt in VBA nicht VALUE, sondern VALUE2 verwenden.
Also z.B.
datum = range("a1").value2
Gruß
Dieter
Gruß Heiko
Kannst Du damit was anfangen?
Gruss Steph@n
hier ein Beispielprogramm:
Sub kleinstes_groesstes_datum()
' Feld für die einzelnen Datumswerte
Dim kleinstes_datum As Variant
Dim groesstes_datum As Variant
Dim kleinster_wert As Long
Dim groesster_wert As Long
' kleinsten Wert erst mal hoch ansetzten
kleinster_wert = 999999
For Each zelle In Worksheets("Tabelle1").Range("A1:A4")
If (kleinster_wert > zelle.Value2) Then
kleinster_wert = zelle.Value2
kleinstes_datum = zelle.Value
End If
If (groesster_wert < zelle.Value2) Then
groesster_wert = zelle.Value2
groesstes_datum = zelle.Value
End If
Next zelle
MsgBox ("Kleinstes Datum: " + Str(kleinstes_datum))
MsgBox ("Größtes Datum: " + Str(groesstes_datum))
End Sub