Herbers Excel-Forum - das Archiv

Zellen mit variablen Bereich ausfuellen

Bild

Betrifft: Zellen mit variablen Bereich ausfuellen
von: marc

Geschrieben am: 12.02.2005 15:15:53
Hallo zusammen,
In Spalte "C" stehen dreistelligen Nummern.
z.B: in "C3" steht 350 und ab "C4" bis "C16" sind die Zellen leer.
Nun moechte ich,dass der leere Bereich mit dem Wert 350 ausgefuellt wird.
In Zelle "C17" steht ein anderer Wert z.B: 230 und ab "C18" sind die Zellen leer und muessen bis zu der naechsten vollen (mit Wert)Zelle mit dem Wert 230
ausgefuellt werden.Die Abstaende der leeren Zellen sind variabel.
Hat jemand 'ne Idee wie ich das Ausfuellen via VBA automatisieren kann.
Gruss
-
marc :o)
Bild

Betrifft: AW: Zellen mit variablen Bereich ausfuellen
von: Heinz A. Wankmüller

Geschrieben am: 12.02.2005 15:25:18
Hallo Marc,
hier eine Möglichkeit, wobei ich die Zeile der ersten freie Zelle, hier 4 fix vorgegeben habe.
Sub Ausfüllen()
Dim lz&, i&, z As Range
lz = Cells(Rows.Count, 3).End(xlUp).Row
For i = lz To 4 Step -1
Set z = Cells(i, 3)
If z.Value = "" Then _
z.Value = z.End(xlUp).Value
Next i
End Sub

Gruß
Heinz
Bild

Betrifft: AW: Danke Heinz
von: marc

Geschrieben am: 12.02.2005 18:17:10
hallo Heinz,
sorry,dass ich so spaet antworte ich musste meinem Nachbar dringend helfen(Rohrbruch )
Mit deiner Idee kann ich einiges anfangen,noch einmal danke fuer die Hilfe.
Sollte ich nicht vorran kommen,dann melde ich mich wieder.
-
marc :o)
 Bild
Excel-Beispiele zum Thema "Zellen mit variablen Bereich ausfuellen"
Makros in Abhängigkeit vom Zellennamen aufrufen Zellen auf Kommentar überprüfen
Spalten bedingt summieren und Zellen formatieren Text aus Textbox in Zellen aufteilen
Zellen vergleichen und markieren Zählen formatierter Zellen
Daten aus Textdatei gezielt in Zellen übernehmen Zellen verbinden und trennen
Zellen bei Minuswerten schraffieren Zeilen oberhalb der markierten Zellen einfügen