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"