Zellen mit Werten aus darüberliegender Zelle fülle
11.08.2008 08:59:25
Andreas
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen. Eigentlich habe ich hier mit keinem Problem gerechnet, nur leider funktioniert meine copy-paste-Schleife nicht.
Ich gehe wie folgt vor: In einer Spalte werden die Zellen von oben nach unten druchgegangen und wenn die Zelle leer ist, soll Excel den Wert der darüberliegenden Zelle nehmen. So sollen alle Spalten druchgegangen werden.
Spalten- und Zeilenzahl soll Excel dabei automatisch erkennen, weil diese immer variieren.
Mit folgendem Code habe ich es bisher versucht, nur beim eigentlich entscheidenden Teil, wenn die Werte kopiert und eingefügt werden sollen, gibt es ein Problem.
Sub Zellenauffuellen()
Dim Wert1, Column As Integer 'Spalten
Dim Wert2, Row As Long 'Zeilen
Dim ActiveWorkbook, Workbook As Variant
Wert1 = ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1
Wert2 = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
Column = 1
Do Until Column = Wert1
Row = 1
Do Until Row = Wert2
If ActiveCell = "" Then
ActiveSheet.Cells(Row - 1, Column).Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Cells(Row, Column).Select
ActiveSheet.Paste
End If
Row = Row + 1
Loop
Column = Column + 1
Loop
End Sub
Wäre super, wenn mir jemand weiterhelfen könnte.
Vielen Dank!