VBA Jahr mit Jahren in Zeile vergleichen und Zellen addieren
31.10.2024 13:28:40
Blätterdach
ich habe ein Sub geschrieben, mit dem in einer (umfangreichen) Excel die Spaltenbezeichnungen gesucht und die entsprechenden Spaltennummern in Variablen abgespeichert werden (z.B. UmJahr_WE, UmJahr_HU, UmJahr_PV). Soweit ich das erkennen kann hat das auch funktioniert.
Jetzt möchte ich in einem weiteren Sub die Zeilen zählen und dann durchlaufen lassen. In jeder Zeile soll das Jahr (das über der Spalte steht und in der Variable "jahr" abgespeichert wird) mit den Jahren, die in den Spalten UmJahr_WE, UmJahr_HU, UmJahr_PV stehen verglichen werden. Wenn alle drei Jahre =jahr sind, sollen Werte der entsprechenden Felder addiert und in das Feld in der Spalte unter dem "jahr" eingetragen werden. (SWeiter benötige ich erst später, habe ich aber bereits ergänzt, ist aber 0).
Leider erscheint bei mir immer "Laufzeitfehler 1004, Anwendungs- oder objektdefinierter Fehler". Ich habe bereits versucht den Code zu vereinfachen aber ich bin die Fehlermeldung trotzdem nicht losgeworden. Kann mir jemand helfen?
SWeiter = 0
ZWeiter = 0
Z = 6
jahr = Cells(Z - 2, S+ SWeiter )
Dim Zeilen As Integer
Zeilen = ws.Cells(ws.Rows.Count, 1).End(xlDown).Row
If ZWeiter Zeilen Then
'Fall 1: alles umgesetzt
If Cells(Z + ZWeiter, UmJahr_WE) = jahr And Cells(Z + ZWeiter, UmJahr_HU) = jahr And Cells(Z + ZWeiter, UmJahr_PV) = jahr Then
Cells(Z + ZWeiter, S + SWeiter) = Cells(Z + ZWeiter, MG + SWeiter) + Cells(Z + ZWeiter, JW + SWeiter)
End If
ZWeiter = ZWeiter + 1
End IfVielen Dank schonmal!
Anzeige