Find
Bernd
Private Sub CommandButton4_Click()
Dim c As Object
Dim bereich As Range
x = "A"
With Sheets("Auswahldaten")
.Activate
Set c = bereich.Find(x, LookIn:=xlValues)
End With
If c Is Nothing Then
MsgBox "NICHTS GEFUNDEN"
Else
MsgBox "Gefunden"
End If
End Sub