Wie sieht die IF-Abfrage dafür aus ?
Sub Nico()
Dim c As Range
Dim laR As Long
laR = Cells(Rows.Count, 1).End(xlUp).Row
For Each c In Range("A1:A" & laR)
If c.Text = "x" Then
Call MeinMakro
Exit For
End If
Next c
End Sub
Sub Nico()
Dim c As Range
Dim laR As Long
laR = Cells(Rows.Count, 1).End(xlUp).Row
For Each c In Range("A1:A" & laR)
If c.Text = "x" Then
c.Select
Call MeinMakro
Exit For
End If
Next c
End Sub