Zellen Füllen

Forumthread: Zellen Füllen
1 Beitrag zu diesem Forumthread
Anzeige

Forumthread: Zellen Füllen

Zellen Füllen

07.09.2003 21:11:45

JOGI

Hallo Experten.
Ich habe eine Tabelle, in der ersten Spalte sind in jeder Zeile Zahlen eingetragen. Es gibt auch Zellen in dieser Spalte, die keinen Wert enthalten.
Bei diesen Zellen soll der Wert der vorherig gefüllten Zelle automatisch übernommen werden.
Habe keine Ahnung, wie ich das mit VBA relisieren soll.

Danke für Euere Hilfe

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zellen Füllen

07.09.2003 21:35:35

PeterW

AW: Zellen Füllen

07.09.2003 21:35:35

PeterW

Hallo Jogi,

etwas verwirrend, in jeder Zeile stehen Zahlen und manche Zellen in dieser Spalte sind leer?
Versuch mal folgendes:


Sub Auffuellen()
Dim lgCount As Long
For lgCount = 2 To Range("A65536").End(xlUp).Row
If IsEmpty(Cells(lgCount, 1)) Then
Cells(lgCount, 1) = Cells(lgCount - 1, 1)
End If
Next
End Sub

Gruß
Peter

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!