Hallo,
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