Ich habe die Lösung hier im Forum fast gefunden, doch die Ausgabe erfolgt in einer MsgBox und ich möchte es in einer Zelle haben. Leider sind meine VBA Kenntnisse nicht ausreichend um das hinzukriegen. Ist bestimmt keine Hexerei ;-)
Hier mal was ich versucht habe, doch es klappt nicht
Sub WortFinden()
Sheets("Rechnung").Activate
Dim strString As String, rngCell As Range
strString = "Material"
Set rngCell = Columns(1).Find(strString, lookat:=xlWhole, LookIn:=xlValues, MatchCase:=True)
If Not rngCell Is Nothing Then
Cells(1, 16) = rngCell.Adress
'MsgBox rngCell.Address (So ists im Forum als Original)
Else
MsgBox "war nicht dabei"
End If
End Sub
Danke schon mal für eure Hilfe
Gruess Dani