Hallo alle zusammen,
in meinem Code habe ich versucht folgendes WENN DANN Problem zu lösen.
Wenn die Zellen der Zeile unter der aktiven Zeile leer sind soll nichts passieren, wenn die Zelle in Spalte A der Zeile über der aktiven Zeile leer ist soll nichts passieren, ansonsten bla bla.
Mein Code:
If ActiveCell.Row - 1 "" Then 'Abfrage ob unter aktiver Zeile eine leere Zeile ist
a = Cells(65536, 1).End(xlUp).Row - ActiveCell.Row + 1
For Each cell In Rows(ActiveCell.Row - 1).SpecialCells(xlCellTypeFormulas, 23)
cell.Copy Destination:=cell.Offset(1, 0).Resize(a, 1)
Next
End If
If ActiveCell.Row + 1.Column = 1 "" Then 'Abfrage ob über der aktiver Zeile in Spalte A eine Leerezelle ist
a = Cells(65536, 1).End(xlUp).Row - ActiveCell.Row + 1
For Each cell In Rows(ActiveCell.Row - 1).SpecialCells(xlCellTypeFormulas, 23)
cell.Copy Destination:=cell.Offset(1, 0).Resize(a, 1)
Next
Else
a = Cells(65536, 1).End(xlUp).Row - ActiveCell.Row + 1
For Each cell In Rows(ActiveCell.Row - 1).SpecialCells(xlCellTypeFormulas, 23)
cell.Copy Destination:=cell.Offset(1, 0).Resize(a, 1)
Next
End If
Kann mir jemand helfen?
Danke im Voraus
Grüße aus Berlin