Makro mit For...Next-Anweisung

Computer: Software & Programmierung Visual Basic
#1

Kann mir jemand helfen dieses Makro mit For…Next-Anweisung zu modifizieren?
Meist befinden sich die zu berechnende Daten in 12 Zeilen untereinander beginn. in Zeile 19, mit $ sind absolute Adressen
Das unten zitierte Makro ist das erste von 12, die identisch aufgebaut sind und als Makropacket aufgerufen werden
Nur die Zahl 19 steigt (um 1) bis 30, die anderen Ranges (6, 9 und 16) ändern sich nicht in den 12 Zeilen der Tabelle.
Sub Zielwert_1() 'Makro-Beginn
Sheets(„Eingabe“).Range(„F19“).FormulaR1C1 = „5“
If Range(„F19“) Range("$C$9") Then
Range(„N19“).GoalSeek Goal:=Range("$C$9"), ChangingCell:=Range(„F19“)
End If

If Range(„I19“) > Range("$C$5") Then
Range(„I19“).GoalSeek Goal:=Range("$C$5"), ChangingCell:=Range(„F19“)
End If

If Range(„J19“) > Range(„AG19“) Then
Range(„J19“).GoalSeek Goal:=Range(„AG19“), ChangingCell:=Range(„F19“)
End If

If Range(„F19“) > Range("$D$16") Then
Range(„D16“).Copy
Range(„F19“).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If

If Range(„M19“) > Range(„S19“) Then
Range(„M19“).GoalSeek Goal:=Range(„S19“), ChangingCell:=Range(„F19“)
End If
End Sub 'Makro-Ende
'Durch Ergänzung mit For…Next Anweisung soll dieses Makro alle 12 Zeilen beginnend mit Zeile 19 berechnen statt, wie bis jetzt per 12 EinzelnMAKROS Ich danke im Voraus für eure Hilfe!
waldos

#2

Meist befinden sich die zu berechnende Daten in 12 Zeilen
untereinander beginn. in Zeile 19, mit $ sind absolute
Adressen
Das unten zitierte Makro ist das erste von 12, die identisch
aufgebaut sind und als Makropacket aufgerufen werden
Nur die Zahl 19 steigt (um 1) bis 30, die anderen Ranges (6, 9
und 16) ändern sich nicht in den 12 Zeilen der Tabelle.

Hallo Waldos,

so vielleicht:

Sub Zielwert\_1() 'Makro-Beginn
Dim Versatz As Long
With Worksheets("Eingabe")
 For Versatz = 0 To 11
 .Range("F19").FormulaR1C1 = "5"
 If .Range("F19").Offset(Versatz, 0) .Range("$C$9") Then
 .Range("N19").Offset(Versatz, 0).GoalSeek Goal:=.Range("$C$9"), ChangingCell:=.Range("F19").Offset(Versatz, 0)
 End If
 If .Range("I19").Offset(Versatz, 0) \> .Range("$C$5") Then
 .Range("I19").Offset(Versatz, 0).GoalSeek Goal:=.Range("$C$5"), ChangingCell:=.Range("F19").Offset(Versatz, 0)
 End If
 If .Range("J19").Offset(Versatz, 0) \> .Range("AG19").Offset(Versatz, 0) Then
 .Range("J19").Offset(Versatz, 0).GoalSeek Goal:=.Range("AG19").Offset(Versatz, 0), ChangingCell:=.Range("F19").Offset(Versatz, 0)
 End If
 If .Range("F19").Offset(Versatz, 0) \> .Range("$D$16") Then
 .Range("D16").Copy
 .Range("F19").Offset(Versatz, 0).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 End If
 If .Range("M19").Offset(Versatz, 0) \> .Range("S19").Offset(Versatz, 0) Then
 .Range("M19").Offset(Versatz, 0).GoalSeek Goal:=.Range("S19").Offset(Versatz, 0), ChangingCell:=.Range("F19").Offset(Versatz, 0)
 End If
 Next Versatz
End With
End Sub 'Makro-Ende

Gruß
Reinhard