Thema: 11-stl. Text in anderem Text enthalten?

Hallo Forum,
ich steh auf dem Schlauch und brauche VBA-Hilfe.

Ich habe in Zelle B1 einen fixen Wert (Vergleichswert). Jetzt sollen die Zellen B2-J2 jeweils verglichen werden. Wenn B2 <> "" und die ersten 11 Stellen gleich sind, dann Zelle B2 löschen. Wenn C2 <> "" und die ersten 11 Stellen gleich sind, dann Zelle C2 löschen. etc., etc. ...

Wie mache ich das mit VBA?
Dies wird ein Teil eines bereits vorhanden Codes, deshalb geht das leider nur mit VBA.

Vielen Dank schon im Voraus.
Gruß Klaus

Hallo Ralf,
merci, funktioniert

        Range("B2:J2").Select

        For Each cell In Selection

            If Left(cell, 11) = Left(Range("B1"), 11) Then

                cell.ClearContents

            End If

        Next

Gruß Klaus

Hallo Klaus!

Sub Unit()



    Dim z As Long, vgltext As String

    

    vgltext = Cells(1, 2)

    If Len(vgltext) = 11 Then

        For z = 10 To 2 Step -2

            If Left$(Cells(2, z), 11) = vgltext Then Cells(2, z).ClearContents 'oder:.Delete

        Next

    End If

End Sub

Gruß Gerd

Hi
vielleicht auch einfach so, wenn ich es richtig verstanden habe:

Range("B2:J2").Replace Range("B1")&"*", "", xlwhole

Gruß Daniel

Hallo Gerd,
auch an dich vielen Dank
Gruß Klaus