Makro vereinfachen
23.01.2016 16:41:41
Frank
Könnt Ihr Spezialisten, meine Schleife verkürzen!
For r = 8 To 13
Sheets("Ansicht").Cells(r, 2).FormulaR1C1 = r - 7
Sheets("Ansicht").Cells(r + 22, 2).FormulaR1C1 = r - 7
Sheets("Ansicht").Cells(r + 44, 2).FormulaR1C1 = r - 7
Sheets("Ansicht").Cells(r + 66, 2).FormulaR1C1 = r - 7
Sheets("Ansicht").Cells(r + 88, 2).FormulaR1C1 = r - 7
Sheets("Ansicht").Cells(r + 110, 2).FormulaR1C1 = r - 7
Sheets("Ansicht").Cells(r, 3).FormulaR1C1 = "=RC[-2]&RC[-1]"
Sheets("Ansicht").Cells(r + 22, 3).FormulaR1C1 = "=RC[-2]&RC[-1]"
Sheets("Ansicht").Cells(r + 44, 3).FormulaR1C1 = "=RC[-2]&RC[-1]"
Sheets("Ansicht").Cells(r + 66, 3).FormulaR1C1 = "=RC[-2]&RC[-1]"
Sheets("Ansicht").Cells(r + 88, 3).FormulaR1C1 = "=RC[-2]&RC[-1]"
Sheets("Ansicht").Cells(r + 110, 3).FormulaR1C1 = "=RC[-2]&RC[-1]"
Next r
End If
Wäre toll, Danke im Voraus!
Gruß Frank H.