Zitat:
Zitat von sixfinger
Funst top, auch wenn ich etwas lösche, dann taucht es nichtmehr auf und die Zeile wird mit anderem aufgefüllt  |
jo... das geht mit Änderungen genauso, weil jedesmal wenn du Blatt 1 aktivierst, werden die alten Werte komplett gelöscht und neu eingelesen...
oops, da fällt mir ein, dass Spalte C auch gelöscht wird. ist das schlimm? sonst musst du den Spender auch auf den Monatsblättern eingeben und ein neuer Code würde die Namen mit übernehmen...
Wenn ja, dann füge auf allen Monatsblätten vor Spalte Q eine neue Spalte ein und gib ihr ne Überschrift...dann ersetze den Code in Blatt 1 mit folgendem...(Leerzeichen in clearcontents UND hinter den 8en nicht vergessen)
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, 18 ).End(xlUp).Row
If Sheets(i).Cells(k, 18 ).Value > 0 Then
Cells(l, 2).Value = Sheets(i).Cells(k, 1).Value
Cells(l, 3).Value = Sheets(i).Cells(k, 17).Value
Cells(l, 4).Value = Sheets(i).Cells(k, 18 ).Value
l = l + 1
End If
Next k
Next i
End Sub
aber bitte bedenke, dass du jetzt nicht einfach irgendwo Zeilen oder Spalten einfügst, denn dann wird der Code nicht mehr korrekt funktionieren...