Zellen ausfüllen bis zu letztem Wert
09.12.2004 19:54:02
Peter
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