poste nachfolgendes Anliegen erneut, da ich auf meine Ergänzungsfrage bisher keine Anwort erhalten habe. Sitze aber seit Tagen an einer Aufgabe und komme leider nicht vorwärts. Vielleicht ist meine Ergänzungsfrage ja nicht angekommen.
Mit folgendem Code von Boris werden Spaltenbezifferungen in Zeile 1 ausgewertet und darunterliegende Spalteninhalte eines fest definierten Bereichs mit gleichen Ziffern in Zeile 1 nach rechts in einer anderen Spalte summiert, die die gleiche Ziffer in Zeile 1 hat. (Prinzip Filiale, Zentrallager).
Sub til()
Dim C As Range
Application.Calculation = xlCalculationManual
For Each C In Range("B3:K12")
If Cells(1, C.Column) "" Then
Cells(C.Row, 13 + Cells(1, C.Column)) = Cells(C.Row, 13 + Cells(1, C.Column)) + C
C.ClearContents
End If
Next C
Application.Calculation = xlCalculationAutomatic
End Sub
Mein Problem:Der Uebertrag nach rechts ist fixiert. Ich kann keine neuen Spalten einfügen. Hat jemand eine Idee, wie ich den Code ändern muss, damit die Summierung nach rechts variabler ist.
Füge nachfolgende Beispieldatei beigefügt. Die Spalten mit den grünen und roten Zellen sind nun neu hinzugekommen, so dass obiger Code nicht mehr passt.
https://www.herber.de/bbs/user/81928.xls
Vielen Dank
Dietmar aus Aachen