Hallo Leute,
kann jemand hierfuer eine Schleife schreiben? Bitte nicht die Frage als beantwortet klicken, falls es nicht klar ist. Gebt den anderen auch eine Chance.
Ich sitze hier in Down Under und kann Eure Beitraege erst am naechsten Tag lesen.
Danke
Gnilk
' jetzt wird die 1. Zelle der Trendine Month gesetzt
'
'
Range("A1").Select
ActiveCell.Offset(0, 7).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(2, 0).Range("A1").Select
Selection.FormulaLocal = "=" & ActiveCell.End(xlUp).Offset(0, 3).End(xlDown) _
.Offset(0, -1).Address(RowAbsolute:=False, ColumnAbsolute:=False) & "/21*1"


' jetzt wird die 2. Zelle der Trendline Month gesetzt
'
'
Range("A1").Select
ActiveCell.Offset(0, 7).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(3, 0).Range("A1").Select
Selection.FormulaLocal = "=" & ActiveCell.End(xlUp).Offset(0, 3).End(xlDown) _
.Offset(0, -1).Address(RowAbsolute:=False, ColumnAbsolute:=False) & "/21*2"
' jetzt wird die 3. Zelle der Trendline Month gesetzt
'
'
Range("A1").Select
ActiveCell.Offset(0, 7).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(4, 0).Range("A1").Select
Selection.FormulaLocal = "=" & ActiveCell.End(xlUp).Offset(0, 3).End(xlDown) _
.Offset(0, -1).Address(RowAbsolute:=False, ColumnAbsolute:=False) & "/21*3"
' jetzt wird die 4. Zelle der Trendline Month gesetzt
'
'
Range("A1").Select
ActiveCell.Offset(0, 7).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(5, 0).Range("A1").Select
Selection.FormulaLocal = "=" & ActiveCell.End(xlUp).Offset(0, 3).End(xlDown) _
.Offset(0, -1).Address(RowAbsolute:=False, ColumnAbsolute:=False) & "/21*4"
' jetzt wird die 5. Zelle der Trendline Month gesetzt
'
'
Range("A1").Select
ActiveCell.Offset(0, 7).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(6, 0).Range("A1").Select
Selection.FormulaLocal = "=" & ActiveCell.End(xlUp).Offset(0, 3).End(xlDown) _
.Offset(0, -1).Address(RowAbsolute:=False, ColumnAbsolute:=False) & "/21*5"


' jetzt wird die 6. Zelle der Trendline Month gesetzt
'
'
Range("A1").Select
ActiveCell.Offset(0, 7).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(7, 0).Range("A1").Select
Selection.FormulaLocal = "=" & ActiveCell.End(xlUp).Offset(0, 3).End(xlDown) _
.Offset(0, -1).Address(RowAbsolute:=False, ColumnAbsolute:=False) & "/21*6"


' jetzt wird die 7. Zelle der Trendline Month gesetzt
'
'
Range("A1").Select
ActiveCell.Offset(0, 7).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(8, 0).Range("A1").Select
Selection.FormulaLocal = "=" & ActiveCell.End(xlUp).Offset(0, 3).End(xlDown) _
.Offset(0, -1).Address(RowAbsolute:=False, ColumnAbsolute:=False) & "/21*7"


' jetzt wird die 8. Zelle der Trendline Month gesetzt
'
'
Range("A1").Select
ActiveCell.Offset(0, 7).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(9, 0).Range("A1").Select
Selection.FormulaLocal = "=" & ActiveCell.End(xlUp).Offset(0, 3).End(xlDown) _
.Offset(0, -1).Address(RowAbsolute:=False, ColumnAbsolute:=False) & "/21*8"


' jetzt wird die 9. Zelle der Trendline Month gesetzt
'
'
Range("A1").Select
ActiveCell.Offset(0, 7).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(10, 0).Range("A1").Select
Selection.FormulaLocal = "=" & ActiveCell.End(xlUp).Offset(0, 3).End(xlDown) _
.Offset(0, -1).Address(RowAbsolute:=False, ColumnAbsolute:=False) & "/21*9"


' jetzt wird die 10. Zelle der Trendline Month gesetzt
'
'
Range("A1").Select
ActiveCell.Offset(0, 7).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(11, 0).Range("A1").Select
Selection.FormulaLocal = "=" & ActiveCell.End(xlUp).Offset(0, 3).End(xlDown) _
.Offset(0, -1).Address(RowAbsolute:=False, ColumnAbsolute:=False) & "/21*10"


' jetzt wird die 11. Zelle der Trendline Month gesetzt
'
'
Range("A1").Select
ActiveCell.Offset(0, 7).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(12, 0).Range("A1").Select
Selection.FormulaLocal = "=" & ActiveCell.End(xlUp).Offset(0, 3).End(xlDown) _
.Offset(0, -1).Address(RowAbsolute:=False, ColumnAbsolute:=False) & "/21*11"


' jetzt wird die 12. Zelle der Trendline Month gesetzt
'
'
Range("A1").Select
ActiveCell.Offset(0, 7).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(13, 0).Range("A1").Select
Selection.FormulaLocal = "=" & ActiveCell.End(xlUp).Offset(0, 3).End(xlDown) _
.Offset(0, -1).Address(RowAbsolute:=False, ColumnAbsolute:=False) & "/21*12"


' jetzt wird die 13. Zelle der Trendline Month gesetzt
'
'
Range("A1").Select
ActiveCell.Offset(0, 7).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(14, 0).Range("A1").Select
Selection.FormulaLocal = "=" & ActiveCell.End(xlUp).Offset(0, 3).End(xlDown) _
.Offset(0, -1).Address(RowAbsolute:=False, ColumnAbsolute:=False) & "/21*13"


' jetzt wird die 14. Zelle der Trendline Month gesetzt
'
'
Range("A1").Select
ActiveCell.Offset(0, 7).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(15, 0).Range("A1").Select
Selection.FormulaLocal = "=" & ActiveCell.End(xlUp).Offset(0, 3).End(xlDown) _
.Offset(0, -1).Address(RowAbsolute:=False, ColumnAbsolute:=False) & "/21*14"


' jetzt wird die 15. Zelle der Trendline Month gesetzt
'
'
Range("A1").Select
ActiveCell.Offset(0, 7).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(16, 0).Range("A1").Select
Selection.FormulaLocal = "=" & ActiveCell.End(xlUp).Offset(0, 3).End(xlDown) _
.Offset(0, -1).Address(RowAbsolute:=False, ColumnAbsolute:=False) & "/21*15"


' jetzt wird die 16. Zelle der Trendline Month gesetzt
'
'
Range("A1").Select
ActiveCell.Offset(0, 7).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(17, 0).Range("A1").Select
Selection.FormulaLocal = "=" & ActiveCell.End(xlUp).Offset(0, 3).End(xlDown) _
.Offset(0, -1).Address(RowAbsolute:=False, ColumnAbsolute:=False) & "/21*16"


' jetzt wird die 17. Zelle der Trendline Month gesetzt
'
'
Range("A1").Select
ActiveCell.Offset(0, 7).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(18, 0).Range("A1").Select
Selection.FormulaLocal = "=" & ActiveCell.End(xlUp).Offset(0, 3).End(xlDown) _
.Offset(0, -1).Address(RowAbsolute:=False, ColumnAbsolute:=False) & "/21*17"


' jetzt wird die 18. Zelle der Trendline Month gesetzt
'
'
Range("A1").Select
ActiveCell.Offset(0, 7).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(19, 0).Range("A1").Select
Selection.FormulaLocal = "=" & ActiveCell.End(xlUp).Offset(0, 3).End(xlDown) _
.Offset(0, -1).Address(RowAbsolute:=False, ColumnAbsolute:=False) & "/21*18"


' jetzt wird die 19. Zelle der Trendline Month gesetzt
'
'
Range("A1").Select
ActiveCell.Offset(0, 7).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(20, 0).Range("A1").Select
Selection.FormulaLocal = "=" & ActiveCell.End(xlUp).Offset(0, 3).End(xlDown) _
.Offset(0, -1).Address(RowAbsolute:=False, ColumnAbsolute:=False) & "/21*19"


' jetzt wird die 20. Zelle der Trendline Month gesetzt
'
'
Range("A1").Select
ActiveCell.Offset(0, 7).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(21, 0).Range("A1").Select
Selection.FormulaLocal = "=" & ActiveCell.End(xlUp).Offset(0, 3).End(xlDown) _
.Offset(0, -1).Address(RowAbsolute:=False, ColumnAbsolute:=False) & "/21*20"


' jetzt wird die 21. Zelle der Trendline Month gesetzt
'
'
Range("A1").Select
ActiveCell.Offset(0, 7).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(22, 0).Range("A1").Select
Selection.FormulaLocal = "=" & ActiveCell.End(xlUp).Offset(0, 3).End(xlDown) _
.Offset(0, -1).Address(RowAbsolute:=False, ColumnAbsolute:=False) & "/21*21"