keine Schleife in Makro
14.05.2020 01:57:51
Stefan
Hallo liebe Gemeinde,
ich habe ein Problem mit dem unten stehenden Makro. Wenn ich versuche es als eine Schleife laufen zu lassen dann springt er mir nicht in die Zeile wo ich ihm eigentlich gesagt habe.
Ohne Schleife klappt es, aber dann würde es ein sehr langes Script.
ich hoffe damit mir einer den richtigen Weg zeigt.
Sub frueh()
Dim a As Range, z As Long, s As Long, schritt As Integer
Set a = Worksheets(1).Range("E4")
farbe = Cells(4, 2).Interior.Color
z = ActiveCell.Row
s = ActiveCell.Column
schritt = 9
With Worksheets(1)
a.Activate
ActiveCell.FormulaR1C1 = "=IF(R[-1]C>0,R[-1]C-R[-1]C[-1],"""")"
Range(Cells(4, 5), Cells(4, 17)).FormulaR1C1 = "=IF(R[-1]C>0,R[-1]C-R[-1]C[-1],"""")"
Range(Cells(4, 5), Cells(4, 17)).Interior.Color = farbe
Range(Cells(4, 5), Cells(4, 17)).Activate
With Selection.Font
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.399975585192419
End With
' For i = 4 To 1000
ActiveCell.Offset(9, 0).Activate
ActiveCell.FormulaR1C1 = "=IF(R[-1]C>0,R[-1]C-R[-1]C[-1],"""")"
Range(Cells(13, 5), Cells(13, 17)).FormulaR1C1 = "=IF(R[-1]C>0,R[-1]C-R[-1]C[-1],"""")"
Range(Cells(13, 5), Cells(13, 17)).Interior.Color = farbe
Range(Cells(13, 5), Cells(13, 17)).Activate
With Selection.Font
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.399975585192419
End With
' Next i
End With
End Sub