|
Hallo,
bin mir nicht sicher, ob ich dich richtig verstanden habe.
Sub Schaltfläche1_Klicken()
Dim i As Long, raFund As Range
'Blattname anpassen
With Worksheets("Tabelle2")
For i = 1 To .Cells(.Rows.Count, "A").End(xlUp).Row
Set raFund = .Range(.Cells(i, "C"), .Cells(i, .Cells(i, .Columns.Count).End(xlToLeft).Column)) _
.Find(what:=.Cells(i, "A"), LookIn:=xlValues, lookat:=xlWhole)
If raFund.Column > 2 Then
If Not raFund Is Nothing Then
.Cells(i, "B") = "Green " & .Cells(i, "A")
Set raFund = Nothing
End If
End If
Next i
End With
End Sub
Gruß Werner
|