wie kann ich etwas suchen und dann die zelle makieren
in der es steht es ist nur in einer Zelle möglich er soll somit auch nur eine Zelle makieren!
gruß
swen
Sub Suchen()
Dim Ergebnis As Range
Dim Suche As String
'Suche erfragen
Suche = InputBox("Wonach soll gesucht werden?", "Suche")
Set Ergebnis = Columns.Find(Suche, LookAt:=xlWhole)
If Ergebnis Is Nothing Then
'wenn nicht gefunden
MsgBox "Nicht gefunden!"
Else
Ergebnis.Activate
End If
End Sub