Hallo zusammen,
Ich hätt’ gern ein Problem 
Ich trage in B3 z.B. die Zahl 100 ein.
Nun möchte ich, dass er Spalte B überwacht und so lange
die 100 nach unten fortschreibt, bis ich z.B. in B20 200 eintrage.
Die 200 soll er so lange nach unten fortschreiben, bis ich
in B50 300 eintrage usw.
Real liegen immer dutzende Zeilen dazwischen, da ist das runter-
kopieren recht mühsam.
Ist sowas möglich?
Excel2000
Wie ich am Schluß einen Stopper setze, damit er die letzte Eingabe
nicht bis Zeile 65536 auffüllt, weiss ich auch noch nicht 
Gruß und danke schonmal.
Rolf
Hallo Rolf,
Ich trage in B3 z.B. die Zahl 100 ein.
Nun möchte ich, dass er Spalte B überwacht und so lange
die 100 nach unten fortschreibt, bis ich z.B. in B20 200
eintrage.
Die 200 soll er so lange nach unten fortschreiben, bis ich
in B50 300 eintrage usw.
Du könntest in B4 einfach =B3 eintragen und runterziehen. Sobald du die Zahl in einer darunterliegenden Zelle änderst, ändern sich die nächsten Zahlen.
Wie ich am Schluß einen Stopper setze, damit er die letzte
Eingabe
nicht bis Zeile 65536 auffüllt, weiss ich auch noch nicht
Naja, soweit runterziehen, wie du möchtest.
Gruß Alex
Danke
Hallo Alex,
Ich trage in B3 z.B. die Zahl 100 ein.
Nun möchte ich, dass er Spalte B überwacht und so lange
die 100 nach unten fortschreibt, bis ich z.B. in B20 200
eintrage.
Die 200 soll er so lange nach unten fortschreiben, bis ich
in B50 300 eintrage usw.
Du könntest in B4 einfach =B3 eintragen und runterziehen.
Sobald du die Zahl in einer darunterliegenden Zelle änderst,
ändern sich die nächsten Zahlen.
Naja, gerade das wollte ich ja vermeiden bei fast 2000 Zeilen.
Ich hab’s aber rausbekommen:
Option Explicit
Sub Schaltfläche18\_BeiKlick()
'Private Sub Workbook\_Open()
'Sub ausfuellen()
Dim Bereich As Range
Dim Zelle As Range
Set Bereich = Range("B1:B2000")
For Each Zelle In Bereich
If Zelle.Offset(1, 0).Value = "" Then
Zelle.Offset(1, 0).Value = Zelle.Value
Else
End If
Next Zelle
End Sub
Entweder per Schaltfläche oder über das Workbook_Open() Ereignis.
Klappt prima.
Trotzdem danke.
Gruß
Rolf