Excel VBA und Instr-Funktion: Syntax, Anwendung und Beispiele

Excel VBA (Visual Basic for Applications) ist eine Programmiersprache, mit der Sie Makros und automatisierte Prozesse in Excel erstellen können. Eine der nützlichsten Funktionen in Excel VBA ist Instr-Funktion. Mit dieser Funktion können Sie die Position einer angegebenen Teilzeichenfolge in einer Zeichenfolge finden und eine Zahl zurückgeben, die die Position des ersten Zeichens dieser Teilzeichenfolge darstellt.

Die Syntax der Instr-Funktion lautet wie folgt: Instr([start], string1, string2, [compare]). In dieser Syntax ist der Parameter start ist optional und stellt die Position dar, an der die Suche beginnt. Standardmäßig beginnt die Suche mit dem ersten Zeichen der Zeichenfolge. Angabe string1 und string2 es handelt sich um die Strings, die durchsucht werden. Parameter compare ist ebenfalls optional und definiert den Typ des Zeichenfolgenvergleichs. Dieser Parameter kann je nach Vergleichstyp 0, 1 oder 2 sein.

Die Anwendung der Instr-Funktion in Excel VBA kann vielfältig sein. Sie kann beispielsweise verwendet werden, um die Anzahl der Vorkommen eines bestimmten Zeichens oder einer Teilzeichenfolge in einer Zeichenfolge zu suchen und zu zählen und zu überprüfen, ob ein Zeichen oder eine Teilzeichenfolge in einer Zeichenfolge vorhanden ist. Darüber hinaus kann die Instr-Funktion verwendet werden, um verschiedene Aktionen basierend auf der gefundenen Zeichen- oder Teilzeichenfolgenposition in einer Zeichenfolge auszuführen.

Was ist Excel VBA?

VBA bietet Programmierern und Benutzern die Möglichkeit, benutzerdefinierte Funktionen zu erstellen, Makros Hotkeys zuzuordnen und benutzerdefinierte Formulare und Dialogfelder zu erstellen, um die Interaktion mit dem Benutzer zu vereinfachen. Außerdem können Sie mit VBA Aufgaben automatisieren, bei denen die gleichen Aktionen für große Datenmengen wiederholt werden müssen, was die Effizienz bei der Arbeit mit Excel-Tabellen erheblich erhöht.

Excel VBA verfügt über eine einfache und intuitive Syntax, die auf der Programmiersprache Visual Basic basiert. Es enthält viele integrierte Funktionen, Methoden und Eigenschaften, die es Programmierern ermöglichen, eine Vielzahl von Datenoperationen in Excel-Tabellen durchzuführen.

Mit Excel VBA können Sie auch mit anderen Microsoft Office-Anwendungen wie Word, PowerPoint und Outlook arbeiten, was es zu einem leistungsstarken Werkzeug für die Automatisierung und Zusammenarbeit verschiedener Office-Aufgaben macht.

Abschließend ist Excel VBA ein leistungsfähiges Werkzeug, um Aufgaben zu automatisieren und die Effizienz der Arbeit mit Daten in Excel-Tabellen zu verbessern. Es ermöglicht Programmierern und Benutzern, benutzerdefinierte Lösungen für die Arbeit mit Excel-Tabellen zu erstellen und mit anderen Microsoft Office-Anwendungen zu interagieren.

Syntax der Instr-Funktion

Die Instr-Funktion in Excel VBA wird verwendet, um nach einer Teilzeichenfolge in einer Zeichenfolge zu suchen. Seine Syntax lautet wie folgt:

Instr([erste Position], Quellzeichenfolge, Suchzeichenfolge [, gleichtyp])

• erste Position (optionaler Parameter) - Die Position, an der die Suche in der ursprünglichen Zeichenfolge beginnen soll. Wenn Sie diesen Parameter nicht angeben, wird die Suche am Anfang der Zeile ausgeführt.
• quell_zeichenfolge - die Zeichenfolge, nach der gesucht werden soll.
• Suchzeichenfolge - die Zeile, die in der ursprünglichen Zeile gefunden werden soll.
• typ der Gleichung (optional) - Der Typ des Zeichenvergleichs. Wenn dieser Parameter nicht angegeben wird, wird der Standardwert verwendet binärer Vergleich.

Die Funktion Instr gibt die Position des ersten Vorkommens der gesuchten Teilzeichenfolge in der ursprünglichen Zeichenfolge zurück. Wenn die gesuchte Teilzeichenfolge nicht gefunden wird, gibt die Funktion 0 zurück.

Beispiele für die Verwendung der Instr-Funktion:

Sub InstrExample()Dim originalString As StringDim searchString As StringDim position As IntegeroriginalString = "abracadabra"searchString = "cad"' Пример 1: Поиск с начала строкиposition = InStr(originalString, searchString)MsgBox "Позиция первого вхождения: " & position' Пример 2: Поиск с указанной позицииposition = InStr(5, originalString, searchString)MsgBox "Позиция первого вхождения с позиции 5: " & position' Пример 3: Поиск с указанным типом сравненияposition = InStr(1, originalString, searchString, vbTextCompare)MsgBox "Позиция первого вхождения с типом сравнения = vbTextCompare: " & positionEnd Sub

Wenn Sie diesen Code ausführen, werden Meldungsfelder mit den Positionen des ersten Vorkommens der gesuchten Teilzeichenfolge in der ursprünglichen Zeichenfolge angezeigt.

Anwenden der Instr-Funktion in Excel VBA

Durch die Verwendung der Instr-Funktion in Excel VBA können Sie Daten automatisch mit hoher Genauigkeit und Effizienz finden und analysieren. Es kann in vielen verschiedenen Situationen verwendet werden, zum Beispiel:

1. Suchen einer Teilzeichenfolge in einer Zeichenfolge:

Mit der Instr-Funktion können Sie die Position des ersten Vorkommens einer Teilzeichenfolge in einer Zeichenfolge ermitteln. Der folgende Code findet beispielsweise die Position des ersten Vorkommens der Teilzeichenfolge "abc" in der Zeichenfolge "abcdef":

Dim Position As Long Position = InStr("abcdef", "abc")

In diesem Fall ist die Variable Position 1, da die Teilzeichenfolge "abc" am Anfang der Zeichenfolge steht.

2. Nach Groß- und Kleinschreibung suchen:

Standardmäßig berücksichtigt die Instr-Funktion bei der Suche nach einer Teilzeichenfolge nicht die Groß-/Kleinschreibung. Mit einem zusätzlichen Parameter können Sie jedoch angeben, ob Groß- und Kleinschreibung beachtet werden soll oder nicht. Der folgende Code sucht beispielsweise nach der Teilzeichenfolge "abc" in der Zeichenfolge "ABCDEF" und berücksichtigt die Groß- /Kleinschreibung:

Dim Position As Long Position = InStr(1, "ABCDEF", "abc", vbBinaryCompare)

In diesem Fall ist die Variable Position 0, da die Teilzeichenfolge "abc" nicht in der Zeichenfolge "ABCDEF" gefunden wird, wobei die Groß- /Kleinschreibung beachtet wird.

3. Suchen einer Teilzeichenfolge in einem Zellbereich:

Die Instr-Funktion kann auch verwendet werden, um nach einer Teilzeichenfolge in einem Zellbereich in Excel zu suchen. Der folgende Code sucht beispielsweise nach der Teilzeichenfolge "abc" im Bereich A1:A10 und gibt die Zeilennummer zurück, in der sie gefunden wurde:

Dim FoundCell As Range Set FoundCell = Range("A1:A10").Find("abc") If Not FoundCell Is Nothing Then MsgBox "Der Teilstring 'abc' wurde in der Zeichenfolge gefunden " & FoundCell.Zeile Else MsgBox "Teilzeichenfolge 'abc' wurde nicht gefunden" End If

In diesem Fall wird eine entsprechende Meldung mit der Zeilennummer angezeigt, wenn der Teilstring "abc" im Bereich A1 gefunden wird:A10.

Die Instr-Funktion ist ein leistungsfähiges Werkzeug für die Arbeit mit Textdaten in Excel VBA. Es ermöglicht eine einfache und effiziente Analyse und Verarbeitung von Strings, wodurch die Arbeit mit Daten erheblich beschleunigt und automatisiert wird.

Codebeispiele mit der Instr-Funktion

Die Instr-Funktion in Excel VBA wird verwendet, um nach einer Teilzeichenfolge in einer Zeichenfolge zu suchen. Es gibt die Positionsnummer zurück, an der die gefundene Teilzeichenfolge beginnt.

Betrachten Sie einige Codebeispiele, die die Verwendung der Instr-Funktion veranschaulichen.

Beispiel 1: Sucht nach einer Teilzeichenfolge in einer Zeichenfolge.

Sub FindSubstring()Dim myString As StringDim searchWord As StringDim position As IntegermyString = "Это текстовая строка"searchWord = "текст"position = InStr(myString, searchWord)If position > 0 ThenMsgBox "Подстрока найдена на позиции " & positionElseMsgBox "Подстрока не найдена"End IfEnd Sub

Sub FindAllOccurrences()Dim myString As StringDim searchWord As StringDim position As IntegerDim occurrences As IntegermyString = "Это текстовая строка и еще одна текстовая строка"searchWord = "текст"occurrences = 0position = InStr(1, myString, searchWord)Do While position > 0occurrences = occurrences + 1position = InStr(position + 1, myString, searchWord)LoopMsgBox "Подстрока найдена " & occurrences & " раз"End Sub

Sub FindSubstringIgnoringCase()Dim myString As StringDim searchWord As StringDim position As IntegermyString = "Это тестовая строка"searchWord = "ТЕСТ"position = InStr(1, myString, searchWord, vbTextCompare)If position > 0 ThenMsgBox "Подстрока найдена на позиции " & positionElseMsgBox "Подстрока не найдена"End IfEnd Sub

Die Instr-Funktion ist sehr nützlich, wenn Sie mit Textdaten in Excel VBA arbeiten. Es macht es einfach und schnell, Teilzeichenfolgen zu finden, die bei vielen Datenverarbeitungsaufgaben benötigt werden.