Gibt es eine Möglichkeit die spalte wo in dem Makro der Übertrag eingefügt wird, das die spalte um drei spalten nach unten verschoben wird also so ,das der Wert der vorher in der Spalte stand , wo der übertrag eingetragen wird nicht überschrieben wird sondern um drei spalten weiter nach unten verschoben wird
Sub AutoForm1_BeiKlick()
Dim varPB As Variant
Dim iPage As Integer, iRowL As Integer
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
iPage = 1
Do While IsError(varPB) = False
varPB = ExecuteExcel4Macro("INDEX(GET.DOCUMENT(64)," & iPage & ")")
If IsError(varPB) Then
Exit Sub
Else
Range(Cells(varPB - 1, 5), Cells(varPB - 1, 6)).Select
With Selection
.MergeCells = True
End With
Cells(varPB - 1, 4) = "Übertrag"
Cells(varPB - 1, 5) = Application.Sum(Range(Cells(1, 6), _
Cells(varPB - 1, 6)))
Range(Cells(varPB + 1, 5), Cells(varPB + 1, 6)).Select
With Selection
.MergeCells = True
End With
Cells(varPB + 1, 4) = "Übertrag"
Cells(varPB + 1, 5) = Application.Sum(Range(Cells(1, 6), _
Cells(varPB - 1, 6)))
End If
iPage = iPage + 1
Loop
End Sub
MfG
Ralf