12.09.2016, 08:06
Moin Leute, ich habe keine biege gemacht. Ich wusste nicht mehr weiter wei ich es erklären sollte. Habe in einem anderen Forum Hilfe bekommen.
Falls irgendwer was mit anfangen kann...
CODE: ALLES AUSWÄHLEN
so hätte es aussehen sollen.
Trotzdem an alle beteiligten noch einmal Danke für die mühen.
Grüße und ne tolle Woche
Falls irgendwer was mit anfangen kann...
CODE: ALLES AUSWÄHLEN
Code:
Private Sub Workbook_Open()
Dim igMenge As Range
With Sheets("Tabelle1")
.Range("B1").Value = Date
For Each igMenge In .Range(.Cells(3, 4), .Cells(5, 4))
igMenge.FormulaR1C1 = "=" & igMenge & "+RC[-2]-RC[-1]"
Next igMenge
.Range(.Cells(3, 2), .Cells(5, 3)).Clear
End With
End SubTrotzdem an alle beteiligten noch einmal Danke für die mühen.
Grüße und ne tolle Woche