Funktion VBA: InStr

Beschreibung

Die Funktion VBA INSTR gibt eine Ganzzahl zurück, die der ersten gefundenen Position des Werts in der Zeichenfolge entspricht (oder den Wert 0, wenn keine Übereinstimmung gefunden wird).

Syntax INSTR

InStr(start_position, text, search_value)

Oder

InStr(start_position, text, search_value, case)

Beispiel VBA InStr

Verwenden der Funktion InStr, um die Position des Wortes „Excel“ zu bestimmen (Beginn der Suche ab Zeichen 1 des Site-Namens):

Sub InStrExample1()  
      
    sitename = "www.moonexcel.com.ua"  
    
    'Position des Wortes „Excel“ in sitename
    position = InStr(1, sitename, "excel")  
      
    MsgBox position 'Rückgabe: 9
    
End Sub

Verwenden Sie die Funktion InStr, um die Position des Wortes „EXCEL“ zu ermitteln (diesmal fügen Sie dem vierten Argument den Wert „1“ hinzu, um die Groß-/Kleinschreibung zu ignorieren):

Sub InStrExample2()  
      
    sitename = "www.moonexcel.com.ua"  
      
    'Position des Wortes „EXCEL“ in sitename (Groß- und Kleinschreibung wird nicht beachtet)
    position = InStr(1, sitename, "EXCEL", 1)  
      
    MsgBox position 'Rückgabe: 9
      
End Sub  

PRÜFEN SIE, OB DER TEXT EINEN WERT ENTHÄLT

Die Funktion InStr kann auch verwendet werden, um festzustellen, ob ein Site-Name eine Suchzeichenfolge enthält:

Sub InStrExample3()
    
    sitename = "www.moonexcel.com.ua"
    
    If InStr(1, sitename, "excel") > 0 Then
       MsgBox "So!"
    End If
    
End Sub

Wenn in diesem Beispiel die Position gefunden wird, gibt die Funktion eine Zahl größer als 0 zurück und zeigt ein Dialogfeld an.