ich habe hier ein Code gefunden von Daniel aus diesem Forum:
Sub Makro3()
Columns(1).Insert
With Range("A1:A" & Cells(Rows.Count, 2).End(xlUp).Row)
.Formula = "=IF(RC[1]="""",true,Row())"
.Formula = .Value
.CurrentRegion.Sort key1:=Cells(1, 1), Order1:=xlAscending, header:=xlNo
.SpecialCells(xlCellTypeConstants, 4).EntireRow.Delete
End With
Columns(1).Delete
End Sub
Ich will dies aber auf die Spalte C übertragen, nur geligt es mir nicht so ganz. Jemandf der mir helfen kann bitte?