Hey, wie kann ich diesen Code so umformen, sodass eine leere Zeile nur nach Zahlen mit Fettformatierung eingefügt wird.
ich kriege den Code nicht hin:
LastRow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
For i = LastRow To 9 Step -1
If Cells(i, 14).Value = "" Or Cells(i - 1, 14).Value = "" Then
ElseIf Cells(i, 14).Value <> Cells(i - 1, 14).Value Then
Rows(i).Insert
End If
Next i
|