Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Teilstring in String


Betrifft: Teilstring in String von: Peter Weber
Geschrieben am: 25.09.2017 12:57:07

Hallo Zusammen,

ich bitte um Eure Hilfe.

Es soll eine if-Anweisung ausgeführt werden, wenn ein Textteil in einem anderen Text erhalten ist.

Z.B.
str1=Peter Meier
Str2= C:\Adresse\Berlin\Haus und Garten\Peter Meier-Kunde.xlsx

If InStr(1, str2,str1) > 1 Then
MsgBox ("Kunde nicht gefunden!")
GoTo Ende
End If
Dieser Befehl funtioniert nicht.
Wie müsste es aber richtig sein?

LG, Peter

  

Betrifft: AW: Teilstring in String von: UweD
Geschrieben am: 25.09.2017 13:04:50

Passt doch.

Du ziehst nur den falschen Schluss

zurückgegeben wird die Position des Vorkommens
wenn =0 dann nicht vorhanden

    If InStr(1, Str2, Str1) = 0 Then
        MsgBox ("Kunde nicht gefunden!")
        GoTo Ende
    End If
LG UweD


  

Betrifft: AW: Teilstring in String von: Luschi
Geschrieben am: 25.09.2017 13:11:26

Hallo Peter,

...und die Variablen sind falsch zugewiesen:

Sub test1()
    Dim str1$, str2$
    
    str1 = "Peter Meier"
    str2 = "C:\Adresse\Berlin\Haus und Garten\Peter Meier-Kunde.xlsx"

    If InStr(1, str2, str1, vbTextCompare) = 0 Then
       MsgBox ("Kunde nicht gefunden!"), vbSystemModal + 16, "Leider..."
       GoTo Ende
    Else
        MsgBox "Hurra...", vbSystemModal + 48, "gefunden!!!"
    End If

Ende:

End Sub

Gruß von Luschi
aus klein-Paris


  

Betrifft: AW: Teilstring in String von: Peter Weber
Geschrieben am: 25.09.2017 13:35:54

Hallo Zusammen,

vielen Dank!

So funktioniert es"

Lg, Peter


Beiträge aus den Excel-Beispielen zum Thema "Teilstring in String"