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
Jetzt bin ich schon fast 3 Std am basteln aber finde den Fehler irgendwie nicht.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