ich muss in einer Tabelle zuerst die ganze Zeile löschen, wenn in Spalte 7 nichts steht. Danach die Spalte A durchsuchen. Falls leere Zelle in Spalte 1 (=A) gibt, dann sollen die Werte aus der Vorzeile in der aktuellen Zeile reinkopiert werden (nämlich Spalte A-E).
Beispiel: A32 ist leer. Dann soll die Werte aus A31-E31 kopiert und in A32-E32 einge-fügt werden.
Ich weiß aber nicht, warum der zweite Teil des Makros nicht funktioniert. Schritt eins funktioniert (Spalte 7 leere Zeile löschen), aber nicht Schritt 2 mit Vorwerte kopieren.
Kann mir jemand bitte helfen?
DANKE im Voraus,
Meli
Code:
With Sheets("FIBU Abzug").UsedRange
With .Columns(.Columns.Count + 1)
.FormulaR1C1 = "=IF(RC7="""",1,"""")"
.Formula = .Value
.Cells(1, 1).ClearContents
.EntireRow.Sort key1:=.Cells(1, 1), order1:=xlAscending, Header:=xlYes
If .Cells(2, 1).Value = 1 Then .SpecialCells(xlCellTypeConstants, 1).EntireRow.Delete
.ClearContents
End With
End With
With Sheets("FIBU Abzug").UsedRange
With .Columns(.Columns.Count + 1)
.FormulaR1C1 = "=IF(RC1="""",R[-1]C1,RC[" & 1 - .Column & "])"
.Copy
.Offset(0, 1 - .Column).PasteSpecial xlPasteValues
.ClearContents
End With
End With