Sub
but_fettmarkierung_Click()
fettmarkierung:
Auswahl = InputBox(
"Wort eingeben:"
,
"Fettmarkierung"
)
For
Each
Zelle
In
Range(
"A1:A10"
)
If
Zelle.Value = Auswahl
Then
Zelle.Font.Bold =
True
End
If
Next
If
(StrPtr(Auswahl) <> 0)
Then
GoTo
fettmarkierung
End
If
End
Sub
___________________________
<em>schokobons</em>