title image


Smiley Re: Einfügen von mehreren Werten in eine Zelle...
Ich würde hierfür die folgende kleine Funktion benutzen:



Public Function ZeichenVorhanden(Zeichenkette As Variant, Suchwert As Variant) As Byte

Dim strZeichen As String

Dim strSuch As String

Dim L As Integer

Dim I As Integer



strZeichen = CStr(Zeichenkette)

strSuch = CStr(Suchwert)



L = Len(Zeichenkette)



ZeichenVorhanden = 0



For I = 1 To L

If strSuch = Mid(strZeichen, I, 1) Then

ZeichenVorhanden = 1

End If

Next I



End Function



So kannst du deine Zeichenkette in eine Spalte eingeben und in den folgenden acht Spalten prüfen ob ein Zeichen vorhanden ist. (1 = ja , 0 = nein)

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: