Laufzeitfehler 1004
11.07.2005 15:52:54
Ben
ich bekomme vollgendes Makro nicht ans Laufen:
Sub makro1()
Dim i As Integer
i = 0
If i < 25 Then
Range("S10+i:S14+i").Select
Selection.AutoFill Destination:=Range("S10+i:S19+i"), Type:=xlLinearTrend
Range("S15+i:S19+i").Select
Selection.Font.ColorIndex = 52
i = i + 1
End If
End Sub
Das Problem ist das wohl Range nicht weiß auf welches Blatt in der Arbeitsmappe ich mich beziehe (das 3.).
Die Funktion ist das in eine gegebene Tabelle 25 Tage lang Daten eingetragen werden und das für jeden Tag in eine neue Spalte. Die alten Werte stehen immer darüber so das sich ein Dreieck ergibt. Das Makro soll dann in die Zukunft schaun. (bis jetzt noch kein Abbruchkriterium wenn nicht alle 25 Tage belegt sind.)
Ich hoffe ihr könnt mir helfen.
Schon mal danke im voraus,
Ben