Es ist zum verzweifeln!
pr = "Suchbegriffe mit Kommata getrennt eingeben"
Do
teilsuche = InputBox(pr, "Begriffe zählen")
teilsuche = Trim(teilsuche)
If Right(teilsuche, 1) = "," Then teilsuche = Left(teilsuche, Len(teilsuche) - 1)
If teilsuche <> "" Then
If suche <> "" Then
suche = suche + "," + teilsuche
Else
suche = teilsuche
End If
ls = 50: If Len(suche) ""
If suche = "" Then MsgBox "Kein Suchbegriff eingegeben!": Exit Sub
w = Split(suche, ",")
Holger schrieb am 26.11.2008 11:34:31:
Ich weiß nicht, woran es liegt! Ich modifiziere leicht. viellt klappt es jetzt!
pr = "Suchbegriffe mit Kommata getrennt eingeben"
Do
teilsuche = InputBox(pr, "Begriffe zählen")
teilsuche = Trim(teilsuche)
If Right(teilsuche, 1) = "," Then teilsuche = Left(teilsuche, Len(teilsuche) - 1)
If teilsuche <> "" Then
If suche <> "" Then
suche = suche + "," + teilsuche
Else
suche = teilsuche
End If
ls = 50
If Len(suche) ""
If suche = "" Then MsgBox "Kein Suchbegriff eingegeben!": Exit Sub
w = Split(suche, ",")
Gruß
Holger
Holger schrieb am 26.11.2008 11:32:09:
Also noch einmal:
pr = "Suchbegriffe mit Kommata getrennt eingeben"
Do
teilsuche = InputBox(pr, "Begriffe zählen")
teilsuche = Trim(teilsuche)
If Right(teilsuche, 1) = "," Then teilsuche = Left(teilsuche, Len(teilsuche) - 1)
If teilsuche <> "" Then
If suche <> "" Then
suche = suche + "," + teilsuche
Else
suche = teilsuche
End If
ls = 50: If Len(suche) ""
If suche = "" Then MsgBox "Kein Suchbegriff eingegeben!":Exit Sub
w = Split(suche, ",")
|