Hilfe bei Quelltext

Sub März()
Dim z As Long           'Zeile
Dim honorare As Long    '4181 Honorare
Dim fahrt As Long       '4000 TN_Fahrt u. Reisek.
Dim mittel As Long      '4010 TN_Lehr-u. Lernmittel
Dim kleidung As Long    '4020 TN Berufskleid.
Dim bewirtung As Long   '4050 TN Bewirtung
Dim pädagogisch As Long '4060 TN Pädag. Sonderm.
Dim transport As Long   '4781 Transport- kosten
Dim porto As Long       '4910 Porto- Post-gebühren
Dim büro As Long        '4930 Büro- Verwaltungs-bedarf
Dim bücher As Long      '4940 Bücher Zeitschriften
For z = Worksheets("März").Range("H65536").End(xlUp).Row To 4 Step -1
If Worksheets("März").Cells(z, 8) = Worksheets("Jahresübersicht").Range("A24") Then  _
_
If Worksheets("März").Cells(z, 6) = 4181 Then _
honorare = honorare + Worksheets("März").Cells(z, 7)
If Worksheets("März").Cells(z, 6) = 4000 Then _
fahrt = fahrt + Worksheets("März").Cells(z, 7)
If Worksheets("März").Cells(z, 6) = 4010 Then _
mittel = mittel + Worksheets("März").Cells(z, 7)
If Worksheets("März").Cells(z, 6) = 4020 Then _
kleidung = kleidung + Worksheets("März").Cells(z, 7)
If Worksheets("März").Cells(z, 6) = 4050 Then _
bewirtung = bewirtung + Worksheets("März").Cells(z, 7)
If Worksheets("März").Cells(z, 6) = 4060 Then _
pädagogisch = pädagogisch + Worksheets("März").Cells(z, 7)
If Worksheets("März").Cells(z, 6) = 4781 Then _
transport = transport + Worksheets("März").Cells(z, 7)
If Worksheets("März").Cells(z, 6) = 4910 Then _
porto = porto + Worksheets("März").Cells(z, 7)
If Worksheets("März").Cells(z, 6) = 4930 Then _
büro = büro + Worksheets("März").Cells(z, 7)
If Worksheets("März").Cells(z, 6) = 4940 Then _
bücher = bücher + Worksheets("März").Cells(z, 7)
Next
Worksheets("Jahresübersicht").Range("B28") = honorare
Worksheets("Jahresübersicht").Range("C28") = fahrt
Worksheets("Jahresübersicht").Range("d28") = mittel
Worksheets("Jahresübersicht").Range("e28") = kleidung
Worksheets("Jahresübersicht").Range("f28") = bewirtung
Worksheets("Jahresübersicht").Range("g28") = pädagogisch
Worksheets("Jahresübersicht").Range("h28") = transport
Worksheets("Jahresübersicht").Range("i28") = porto
Worksheets("Jahresübersicht").Range("j28") = büro
Worksheets("Jahresübersicht").Range("k28") = bücher
honorare = 0
fahrt = 0
mittel = 0
kleidung = 0
bewirtung = 0
pädagogisch = 0
transport = 0
porto = 0
büro = 0
bücher = 0
End Sub

Und zwar steht in Tabelle "Jahresübersicht" in Feld A24 = 100.
Auf dem Blatt "März" steht in der Spalte "H" (8.Spalte) nirgends der Wert 100, sondern nur 200.
Und trotz das die Felder ungleich sind, gibt er die Werte an die Variable Bücher weiter. Ich weiß aber nicht warum. Kann mir da jemand helfen? Ich hoffe, jemand kommt mit meiner Dartsellung zurecht. Gebe gerne mehr Auskunft....wüßte aber von selbst nicht wie.
Gruß
Gordon