VBA Jüngste Datum ermitteln
12.10.2017 16:14:14
TinaW
erstmal riesen Dank an die Gemeinde dafür, dass ich hier immer sehr kompetente Antworten finde. Heute habe ich folgendes Problem-
Ich möchte gerne eine Schleife durch eine Spalte mit Daten durchlaufen lassen und am Ende soll das JÜNGSTE Datum der Spalte ermittelt warden. Folgenden Ansatz habe ich:
Private Sub CmdLetzterEintrag_Click()
Dim Datum As Date, Datum2 As Date, JuengsteDatum As Date
Dim i As Integer, AnzahlLetzteSpalte As Integer
Worksheets("Daten").Select
AnzahlLetzteSpalte = Range("B65536").End(xlUp).Offset(1, 0).Row
For i = 2 To AnzahlLetzteSpalte - 1
Datum = Worksheets("Daten").Cells(i, 3).Value
Datum2 = Worksheets("Daten").Cells(i + 1, 3).Value
If Datum > Datum2 Then
JuengsteDatum = Datum
End If
Next i
MsgBox JuengsteDatum
End Sub
Könnt Ihr mir evtl sagen, wo der Fehler liegt bzw. ob der Ansatz komplett falsch ist?
Besten Dank im Voraus und eine schöne Restwoche.
Tina