Sub juhu()
 
Dim GesuchteZeichen As String
GesuchteZeichen = "f, e, u"
 
Dim ZuDurchsuchen As String
ZuDurchsuchen = "abcdefghijklmnopqrstuvwxyz"
 
Dim Ergebnis As Boolean
Ergebnis = ZeichenVorhanden(GesuchteZeichen, ZuDurchsuchen)
 
If Ergebnis = True Then
MsgBox ("Die Zeichen sind alle enthalten!")
Else
MsgBox ("Die Zeichen sind nicht alle enthalten!")
End If
 
End Sub
 
Private Function ZeichenVorhanden(ByVal GesuchteZeichen As String, ByVal _
  ZudurchsuchendeZeichen As String) As Boolean
Dim arrGesuchtesZeichen() As String
arrGesuchtesZeichen() = Split(GesuchteZeichen, ", ")
 
Dim i As Integer
 
For i = 0 To UBound(arrGesuchtesZeichen())
 
If InStr(1, ZudurchsuchendeZeichen, arrGesuchtesZeichen(i)) = 0 Then
ZeichenVorhanden = False
Exit Function
End If
Next
 
ZeichenVorhanden = True
 
End Function

EALA FREYA FRESENA