Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Zellen automatisch mit den d arüberliegenden Werten füllen

191 views
Skip to first unread message

Olaf Klein

unread,
Apr 26, 2003, 3:03:06 AM4/26/03
to
Hallo,
Habe eine Excel-Datei erstellt, bei der in einer Spalte zwischen
diversen Einträgen immer unterschiedlich viele leere Zellen liegen.
Möchte diese leeren Zellen nun im nachhinein mit dem Wert der letzten
darüberliegenden, ausgefüllten Zelle füllen. Wie kann ich das
automatisieren?
Danke

Reiner Wolff

unread,
Apr 26, 2003, 3:29:57 AM4/26/03
to
Moin Olaf,

Geht wohl nur mit Hilfe von VBA. Hab' da grad mal eine
Kleinigkeit gebastelt:

Sub test()
Dim Zelle As Excel.Range

For Each Zelle In ActiveSheet.UsedRange.Columns(1).Cells
If Len(Zelle.Value) = 0 Then
Range(Zelle, Zelle.End(xlUp)).FillDown
End If
Next
End Sub

Du mußt ggf. noch 'ActiveSheet' und die Spaltennummer anpassen,
dann sollte es so funktionieren, wie Du es brauchst.

HTH
Greetinx aus Kiel
Reiner

--
Nichts verbessert ein Programm so sehr,
wie das Fehlen von Kontrollroutinen.

Peter Rieper

unread,
Apr 26, 2003, 3:39:36 AM4/26/03
to
Moin,
es geht auch ohne VBA:
"Reiner Wolff" <sp...@wolffsrudel.de> schrieb im Newsbeitrag
news:Oy51wV8C...@TK2MSFTNGP11.phx.gbl...

> Moin Olaf,
>
> > Habe eine Excel-Datei erstellt, bei der in einer Spalte
> zwischen
> > diversen Einträgen immer unterschiedlich viele leere Zellen
> liegen.
> > Möchte diese leeren Zellen nun im nachhinein mit dem Wert der
> letzten
> > darüberliegenden, ausgefüllten Zelle füllen. Wie kann ich das
> > automatisieren?
snip VBA

Alle Zellen, die gefüllt werden sollen, markieren.
Dann GeheZu (F5) - Spezial - Leerzellen
Formel eingeben: = Pfeil nach oben
Eingabe abschließen: Steuerung+Return

MfG
Peter


Reiner Wolff

unread,
Apr 26, 2003, 11:28:48 AM4/26/03
to
Moin Peter,

> es geht auch ohne VBA:

> Alle Zellen, die gefüllt werden sollen, markieren.
> Dann GeheZu (F5) - Spezial - Leerzellen
> Formel eingeben: = Pfeil nach oben
> Eingabe abschließen: Steuerung+Return

Wunderbar. Und schon wieder etwas dazugelernt :-)

Greetinx aus Kiel
Reiner

--
In jedem von Menschen geführten Unternehmen sucht
sich die Arbeit die niedrigste Stufe der Hierarchie.

Olaf Klein

unread,
Apr 26, 2003, 2:15:42 PM4/26/03
to
OK-Herz...@web.de (Olaf Klein) wrote in message news:<45135c01.03042...@posting.google.com>...


Dank an Peter u. Reiner

0 new messages