Ich habe eine Spalte, die mit Zahlen gefüllt ist (z.B. Spalte C, Beginn Zelle C4). Die Anzahl der Zeilen (also Anzahl der Werte) können variieren.
Jetzt soll in der Nachbarspalte B solange eine Durchnummerierung (1, 2, 3,...) stattfinden bis einschließlich der letzte Wert der Spalte C erreicht wurde.
Ähnliches soll in Spalte A passieren, allerdings mit einer Rechnung verbunden (z.B. 1/10, 2/10, 3/10,...).
Eine Möglichkeit ist sicher die Folgende:
Range("B4").Select
ActiveCell.Value = "1"
Range("C5").Select
Do Until ActiveCell.Value = ""
ActiveCell.Offset(0, -1).Select
ActiveCell.FormulaR1C1 = "=1+R[-1]C"
ActiveCell.Offset(1, 1).Select
Loop
Range("A4").Select
ActiveCell.Value = "1/10"
Range("B5").Select
Do Until ActiveCell.Value = ""
ActiveCell.Offset(0, -1).Select
ActiveCell.FormulaR1C1 = "=RC[1]/10"
ActiveCell.Offset(1, 1).Select
Loop
Für einen Meister des VBA-Faches ist das sicher zu umständlich, aber es funktioniert. Nur dauert es leider bei sehr vielen Werten in Spalte C sehr lange. Gibt es noch eine "Abkürzung"?
Peter