Hallo nochmal,
OK, verstehe, dann hast du also in den Jahren 2024 bis 2030 auch immer eine 0 drinstehen? Dann kannst du das wirklich nur so machen, wie du es bereit aufgebaut hast. In Office 365 könnte man vielleicht noch mit den dort neuen Formeln Loop und XVerweis was machen, da kenn ich mich aber noch nicht aus. Ich habe erst auf Version 2019 geupdatet. Das bleibt jetzt auch erstmal so.
Was ich dir allerdings anbieten kann, ist eine benutzerdefinierte Makroformel. Die ist wesentlich leichter zu schreiben und somit übersichtlicher:
- Starte den VBA-Explorer (z.B. mit Alt + F11)
- Wähle links im Projektexplorer deine Arbeitsmappe (falls du mehrere geöffnet hast)
- Füge über Menü Einfügen in deiner Arbeitsmappe ein neues Modul ein.
- Gib dort den folgenden Code ein:
Function LastNumberBigger0(SearchRange As Range, ReturnRange As Range)
Dim i As Long
For i = SearchRange.Cells.Count To 1 Step -1
If SearchRange.Cells(i).Value <> 0 Then
LastNumberBigger0 = ReturnRange.Cells(i).Value
Exit For
End If
Next i
End Function
Anschließend kannst du deine Formel in H2 wie folgt schreiben:
=lastnumberbigger0(B2:G2;$B$1:$G$1)
Die beiden in der Formel angegebenen Bereiche müssen exakt gleich breit sein. Aber das versteht sich von selbst.
Gruß Mr. K.
