Hi..
ich habe den neuen Code anhand deiner Bilder gemacht, damit er funktioniert und da ich nicht weiß, wie die anderen Blätter aussehen, musst du in den Monatsblättern jeweils in Spalte Q eine Formel eingeben, die die Werte links von ihr angibt, also z.b.
=Summe(B3:P3)
aber nur nur bis zum Monatsletzten... also ohne den Gesamtbetrag...
in der zeile mit clearcontents musst du das leerzeichen rausnehmen...
Private Sub Worksheet_Activate()
Dim i, k, l
Range("B12: D1000").ClearContents
l = 12
For i = 2 To Worksheets.Count
For k = 3 To Sheets(i).Cells(100, 17).End(xlUp).Row
If Sheets(i).Cells(k, 17).Value > 0 Then
Cells(l, 2).Value = Sheets(i).Cells(k, 1).Value
Cells(l, 4).Value = Sheets(i).Cells(k, 17).Value
l = l + 1
End If
Next k
Next i
End Sub
P.S. Herbers Excel Forum (also zum VBA lernen, kann ich dir keine Seite empfehlen, da ich es mir eigentlich über Jahre anhand des Makro-Rekorders, der VBA Hilfe in Excel und in selbst nicht lösbaren Fällen mit erwähntem Forum beigebracht habe) Leider mache ich selbst zu wenig und verlerne es so langsam...
