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