Forums Neueste Beiträge
 

Zellinhalt in nachfolgende leere Zellen kopieren

10/12/2008 - 11:32 von Horst Staudacher | Report spam
Hallo,
Ich schlage mich mit folgendem Problem herum:
In einer größeren Tabelle muss ich den Inhalt einer belegten Zelle in alle
darunter liegenden leeren Zellen kopieren, dann wieder das Gleiche mit der
nàchsten belegten usw.

Wie schaffe ich es, den zu füllenden Bereich zu variabilisieren?
Mein Makro ( das ich natürlich noch die Schleife, die das bis zur letzten
belegtenn Zelle der Spalte fortsetzt, einbinden muss ) schafft das
logischerweise noch nicht!
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
ActiveCell.Range("A1:A3").Select <-- das wàre zu ersetzen
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.End(xlDown).Select

Gruß
Horst
 

Lesen sie die antworten

#1 Claus Busch
10/12/2008 - 11:51 | Warnen spam
Hallo Horst,

Am Wed, 10 Dec 2008 11:32:01 +0100 schrieb Horst Staudacher:

In einer größeren Tabelle muss ich den Inhalt einer belegten Zelle in alle
darunter liegenden leeren Zellen kopieren, dann wieder das Gleiche mit der
nàchsten belegten usw.

Wie schaffe ich es, den zu füllenden Bereich zu variabilisieren?
Mein Makro ( das ich natürlich noch die Schleife, die das bis zur letzten
belegtenn Zelle der Spalte fortsetzt, einbinden muss ) schafft das
logischerweise noch nicht!
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
ActiveCell.Range("A1:A3").Select <-- das wàre zu ersetzen
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.End(xlDown).Select



du willst immer in Spalte A die leeren Zellen mit dem darüberliegenden
Wert ausfüllen?
Dann probiere es mal so:
Sub Ausfuellen()

Dim LRow As Long
Dim Start As Long
Dim Ende As Long
Dim i As Long

Application.ScreenUpdating = False

LRow = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LRow
If Cells(i, 1) = "" Then
Cells(i, 1) = Cells(i - 1, 1)
End If
Next

Application.ScreenUpdating = True

End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP3 / Vista Ultimate SP1
Office 2003 SP3 / 2007 Ultimate SP1

Ähnliche fragen