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
Um das kleinste Datum in Excel zu ermitteln, kannst Du VBA verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Wähle im Menü "Einfügen" die Option "Modul".
Füge den folgenden Code in das Modul ein:
Sub kleinstes_groesstes_datum()
Dim kleinstes_datum As Variant
Dim groesstes_datum As Variant
Dim kleinster_wert As Long
Dim groesster_wert As Long
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 SubSchließe den VBA-Editor und kehre zurück zu Excel.
Drücke ALT + F8, wähle kleinstes_groesstes_datum aus und klicke auf "Ausführen".
Du bekommst nun eine Meldung mit dem kleinsten und größten Datum aus der angegebenen Range.
Fehler: "Typ-Konflikt"
Fehler: "Objekt nicht gefunden"
Wenn Du kein VBA verwenden möchtest, kannst Du auch die folgenden Excel-Funktionen nutzen:
=MIN(A1:A4).=MAX(A1:A4).Diese Funktionen sind einfach und effektiv, wenn Du das kleinste Datum in Excel ohne Programmierung ausgeben möchtest.
Angenommen, Du hast in den Zellen A1 bis A4 folgende Datumswerte:
| A |
|---|
| 10.06.2002 |
| 15.05.2003 |
| 01.01.2001 |
| 25.12.2000 |
Wenn Du das in Deinem VBA-Skript ausführst, erhältst Du:
If-Bedingungen in Deinem VBA-Code verwenden, um nur bestimmte Daten zu berücksichtigen.Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).1. Wie kann ich das kleinste Datum ausgeben?
Du kannst die MIN-Funktion in einer Zelle verwenden oder den oben genannten VBA-Code ausführen.
2. Was ist der Unterschied zwischen VALUE und VALUE2?
VALUE2 gibt den Wert ohne Formatierung zurück, was in vielen Fällen nützlich ist, insbesondere bei Datumswerten.
3. Funktioniert das auch in Excel Online?
VBA ist nicht in Excel Online verfügbar. Du müsstest die Formeln MIN und MAX verwenden.
4. Wie kann ich mehrere Bedingungen in meinem VBA-Skript implementieren?
Verwende mehrere If-Bedingungen innerhalb deiner Schleife, um die gewünschten Kriterien festzulegen.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen