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

Beiträge aus den Excel-Beispielen zum Thema "Zellen mit variablen Bereich ausfuellen"