Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
20.10.2025 10:29:26
Userform Multipage - Page auswählen
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
728to732
728to732
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

String mit Instr

Forumthread: String mit Instr

String mit Instr
07.02.2006 17:24:28
H.
Liebe Kollegen,
sagen Sie mir:
Wie ist es möglich einen String über die bereits erwähnte "Function" "InStr"
mittels _multiplen_ Parametern zu durchforsten?
Wie schon erwähnt, möchte ich als _Optionalität_ die gelisteten (1.1) Strings benutzen:
1.1
_
"." , "," , ";" , "!" , "?"
_
Ich bedanke mich in aller Form für ihre zukünftige Mithilfe!
MfG
H. Maier
____________
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: String mit Instr
07.02.2006 17:43:42
Nepumuk
Hallo H.Maier,
schon mal mit RegularExpressions gearbeitet? Mal ein Beispiel wie du eine Mailadresse auf Gültigkeit prüfen kannst:
Public Sub test6()
    Dim objRegEx As Object, objMatch As Object
    Set objRegEx = CreateObject("vbscript.regexp")
    With objRegEx
        .Global = True
        .Pattern = "^[a-z0-9\-\.]{2,63}@[a-z0-9\-\.]{2,63}\.[a-z]{2,4}$"
        .IgnoreCase = True
        Set objMatch = .Execute("abcdef@g-hijkl.mn")
    End With
    If objMatch.Count = 0 Then MsgBox "Ungültige Adresse"
    Set objRegEx = Nothing
    Set objMatch = Nothing
End Sub

Guckst du mal hier: http://de.wikipedia.org/wiki/Regex
Gruß
Nepumuk
Anzeige
AW: String mit Instr
ransi
Hallo
so richtig habe ich nicht verstanden was du möchtest,
aber vieleicht hilft dir das weiter:
Public 

Sub test()
Dim meinarray()
Dim wert
Dim element
wert = 1.1
meinarray = Array(".", ",", ";", "!", "?")
For Each element In meinarray()
MsgBox InStr(1, wert, element)
Next
End Sub

ransi
Anzeige
Soweit so gut...
07.02.2006 18:00:22
H.
Ich werde nun Ihre Angaben validieren und Rückmeldung bei Bedarf erstatten.
MfG
H.-Maier
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige