Hillfeee

Sub Test()

Dim R As Range

Set R = Columns("B").SpecialCells(xlCellTypeBlanks)

R.Offset(, -1).ClearContents

End Sub

Hallo,

probiere mal eines dieser Makros (Bereich anpassen, falls er nicht in Zeile 121 beginnt):

Sub Loeschen()

Dim LRow As Long, i As Long

With ActiveSheet

    LRow = .Cells(.Rows.Count, 1).End(xlUp).Row

    For i = 121 To LRow

        If Application.Count(.Range(.Cells(i, 1), .Cells(i, 4))) = 1 Then

            .Cells(i, 1).ClearContents

        End If

    Next

End With

End Sub

Sub Loeschen2()

Dim LRow As Long, i As Long

Dim varData As Variant

With ActiveSheet

    LRow = .Cells(.Rows.Count, 1).End(xlUp).Row

    varData = .Range("A121:D" & LRow)

    For i = LBound(varData) To UBound(varData)

        If varData(i, 2) = "" Then

            varData(i, 1) = ""

        End If

    Next

    .Range("A121").Resize(UBound(varData)) = Application.Index(varData, 0, 1)

End With

End Sub

Claus