27.04.2023, 07:13
Hallo!
Danke sehr für eure Hinweise, aber ich komme trotzdem nicht weiter.
Hier mal mein aktueller Code. Leider wird noch immer 0 ausgegeben. Ich habe die Vermutung, dass der das Datum aus der Spalte C nicht als Datum auslesen kann. Denn wenn ich die Prüfung von adr3 weglasse, kommt zumindest nicht 0 raus, aber auch nicht das, was ich will.
Vielleicht kann mir ja noch jemand einen Tipp geben, was ich vergessen habe.
Danke sehr für eure Hinweise, aber ich komme trotzdem nicht weiter.
Hier mal mein aktueller Code. Leider wird noch immer 0 ausgegeben. Ich habe die Vermutung, dass der das Datum aus der Spalte C nicht als Datum auslesen kann. Denn wenn ich die Prüfung von adr3 weglasse, kommt zumindest nicht 0 raus, aber auch nicht das, was ich will.
Code:
Sub nichtausgezahlteAuszahlungenindenletzten24Monaten()
With ThisWorkbook.Worksheets("Auszahlungen")
Dim rng, adr3 As Range, strg As String
Set adr1 = Worksheets("Auszahlungen").Range("A:A")
Set adr2 = Worksheets("Auszahlungen").Range("G:G")
Set adr3 = Worksheets("Auszahlungen").Range("C:C")
Anz = Application.WorksheetFunction.CountIfs(adr1, "<>", adr2, "", adr3, ">" & Date - 730, adr3, "<=" & Date)
For Each rng In Range("A:A")
If rng <> "" And rng.Offset(0, 6) = "" And rng.Offset(0, 2) > (Date - 730) And rng.Offset(0, 2) <= Date Then _
strg = strg & vbLf & rng & ": " & Format(rng.Offset(0, 2), "DD.MM.YYYY") & ": € " & Format(rng.Offset(0, 3), "#,##0.00")
Next
MsgBox Anz & " fehlendene Auszahlungen in den letzten 2 Jahren:" & String(2, vbNewLine) & _
strg
End With
End Sub
Vielleicht kann mir ja noch jemand einen Tipp geben, was ich vergessen habe.
Excel Version 2016