Hallo ich hab folgendes Makro und es funktioniert bei dem was ich mache auch Perfekt. Allerdings will ich es nun an eine modifizierte Tabelle anpassen und ich brauche nur noch I von 1 bis 5 und 21 bis 50. Kann mir vielleicht jemand weiterhelfen?
Dim i As Integer
Cells(52, 21).Activate
For i = 1 To 50
ActiveCell.GoalSeek Goal:=0, ChangingCell:=ActiveCell.Offset(-4, 0).Range( _
"A1")
ActiveCell.Offset(7, 0).Range("A1").Select
ActiveCell.GoalSeek Goal:=0, ChangingCell:=ActiveCell.Offset(-3, 0).Range( _
"A1")
ActiveCell.Offset(30, 0).Range("A1").Select
ActiveCell.GoalSeek Goal:=0, ChangingCell:=ActiveCell.Offset(1, 0).Range( _
"A1")
ActiveCell.Offset(-37, 1).Range("A1").Select
Next i
|