Ich möchte gerne, dass wenn in der Spalte F das Wort " Artikel" drin ist, das dann erst mein Makro startet. Steht nichts drin soll eine MSG Meldung kommen. "Kein Wort mit Artikel gefunden."
Wäre das möglich ?
Sub jochen()
Dim rng As Range
Set rng = Sheets("TabellenName").Range("F:F").Find(What:="Artikel", LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)
If Not rng Is Nothing Then
MsgBox rng.Address
'hier kommt dein Code
Else
MsgBox "Kein Wort mit Artikel gefunden!", vbInformation
End If
End Sub