Daten übertragen auf ein Sammelblatt ab Tabelle 6 bis .....
Der unten aufgeführt Code funktioniert.
Das Total der Spalten ab Zeile 17 habe ich bis anhin einfach halber in der Zeile 15 berechnet (Sammelblatt), was ein schönheitsfehler ist. Dies möchte ich nun ändern.
In der Zeile 20 habe ich nun die Summenformel für die jeweiligen Spalten geschrieben. Wenn nun Daten eingelesen werden, so müssen diese z.B. zwischen den Zeilen 17 und 19 eingetragen werden bzw. die Zeile 20 (Total) muss immer um die Anzahl eingefügter Zeilen nach unten rücken.
Wer kann mir dabei behilflich sein?
Für eine Lösung bin ich dankbar.
Gruss
Ernst Dunkel
Private Sub DatenVerbuchen()
Application.ScreenUpdating = False
Dim intCounter%, intRow%
intRow = 17
For intCounter = 6 To Worksheets.Count
Worksheets(intCounter).Range("b60:m60").Copy
Worksheets("Sammelblatt").Range("A" & intRow).PasteSpecial _
Paste:=xlValues, operation:=xlNone, skipblanks:=False, Transpose:=False
Application.CutCopyMode = False
intRow = intRow + 1
Next intCounter
Application.ScreenUpdating = True
End Sub