Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1516to1520
1516to1520
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Teilstring mit Platzhaltern suchen

Forumthread: Teilstring mit Platzhaltern suchen

Teilstring mit Platzhaltern suchen
10.10.2016 14:01:22
Joni
Hallo,
ich stehe mal wieder vor einer Herausforderung. Ich möchte aus einem String einen Teilstring, der Platzhalter enthält, finden und diesen Teilstring dann ausgeben. Ob der String überhaupt vorhanden ist lässt sich mir like prüfen, aber wie kann ich den gefundenen String ausgeben?
Beispiel
String AABBCCDD11223344
Suchstring B*DD*2 ergibt BBCCDD112 (1. B und 1. 2er)
Statt des Strings kann ich auch mit dem Beginnzeichen und der Länge leben. Es soll immer das erste Vorkommen zurückgegeben werden (wie bei instr). Wie könnte ich das anstellen? Danke für eure Hilfe.
Gruß Joni
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Teilstring mit Platzhaltern suchen
10.10.2016 14:47:41
Daniel
Hi
im Zweifelsfall durch eine entsprechende Programmierung: 

Sub test()
Dim Txt As String
Dim Such As String
Dim Ergebnis As String
Dim i As Long, L As Long
Txt = "AABBCCDD11223344"
Such = "B*DD*2"
If Txt Like "*" & Such & "*" Then
For i = 1 To Len(Txt)
If Mid(Txt, i) Like Such & "*" Then Exit For
Next
For L = Len(Txt) - i To 1 Step -1
If Mid(Txt, i, L) Like Such Then Exit For
Next
Ergebnis = Mid(Txt, i, L)
End If
MsgBox Txt & vbLf & Such & vbLf & Ergebnis & vbLf & "Start: " & i & ", Länge: " & L
End Sub

Anzeige
Merci die Erste
10.10.2016 15:29:44
Joni
Hallo Daniel,
klappt wunderbar. Ein kleine Anpassung war noch erforderlich, da ich ansonsten beim Rückwärtszählen den ersten Treffer und nicht den letzten erhalten hätte.
If Mid(Txt, i, L) Like Such And Not Mid(Txt, i, L - 1) Like Such Then Exit For
Danke und Gruß Joni
AW: Teilstring mit Platzhaltern suchen
10.10.2016 14:49:08
Uwe
Hallo Joni,
z.B. so: 

Sub aaa()
Dim lngA As Long, lngE As Long, lngZ As Long
Dim strE As String, strS As String, strT As String
strS = "B*DD*2"
strT = "AABBCCDD11223344"
lngA = Application.WorksheetFunction.Search(strS, strT)
lngE = Len(strT)
Do Until Mid(strT, lngA, lngE) Like strS
lngE = lngE - 1
Loop
strE = Mid(strT, lngA, lngE) ' ergibt BBCCDD112
Debug.Print strE
End Sub
Gruß Uwe
Anzeige
Merci die Zweite
10.10.2016 15:30:55
Joni
Hallo Uwe,
auch das klappt. Es ist die gleiche Anpassung wie bei Daniel erforderlich.
Do Until Mid(strT, lngA, lngE) Like strS And Not Mid(strT, lngA, lngE - 1) Like strS
Danke und Gruß
Joni
AW: Regenechse
10.10.2016 14:57:27
Fennek
Hallo,
passt folgender Code?

Sub test()
Tx = "AABBCCDD11223344"
'Suchstring B*DD*2 ergibt BBCCDD112 (1. B und 1. 2er)
With CreateObject("vbscript.regexp")
.Global = True
.Pattern = "B.*DD.*?2"
Debug.Print .Execute(Tx)(0)
End With
End Sub
mfg
Anzeige
Merci die Dritte
10.10.2016 15:34:32
Joni
Hallo Fennek,
der Code hat auf anhieb funktioniert :-). Was mir nicht so gefällt ist, dass ich das Suchpattern für regexp anpassen muss. Da es immer anders aussehen kann müsste ich hierfür eine Logik bauen. Auf Grund der Alternativen werde ich darauf verzichten ;-).
Danke und Gruß
Joni
Anzeige
;

Forumthreads zu verwandten Themen

VBA-Code in einem String erzeugen und dann ausführ
Dirk

Hallo!
Gibt es eine Möglichkeit, VBA-Code auszuführen, der in einer String-Variablen vorliegt, die zuvor dynamisch erzeugt wurde? Sprich: Ich möchte VBA-Code dynamisch erzeugen und anschließend ausführen. Geht das irgendwie?
Ich hoffe, das ist so verständlich.
Vielen Dank,
Dirk<...
20.01.2009 20:08:36
Thread-ID: 1041981
4 Beiträge
Per VBA , in . ändern in ersten 7-String-Zeichen
TommiH

Moin,
gibt es eine einfache Möglichkeit (einfacher als per left/mid/instr. oder split) um in den ersten 7 Zeichen einer Zelle die Kommas in Punkte zu ändern? Und das per VBA-Code?
Tommi
04.07.2011 15:34:05
Thread-ID: 1220870
3 Beiträge
VBA ein String vergleichen mit OR Operation
Kai

testString = "e" If testString = "a" Or "e" Or "i" Or "u" Or "o" Then 'Do something... Else 'Do something else... End If Leider bekomme ich immer bei Ausführung einen Type Mismatch Fehler.
Warum? Oder anders gefragt, wie kann ich diesen VBA code richtig schreiben?
Meines Erachtens kan...
24.04.2013 16:12:37
Thread-ID: 1310234
5 Beiträge
Anzeige
Suchen und ersetzen mit Platzhaltern
Christian
Hallo,
bin gerade dabei eine etwas größere Excel Datei zu erstellen. Dazu müsste ich Viele Zellen kopieren. Da Excel mir dabei immer die Felder in den Formeln anpasst, wollte ich diese mit dem $ versehen.
Habe daher versucht mit Suchen und ersetzen so etwas hinzubekommen: Suche nach $?4 un...
28.08.2015 13:44:56
Thread-ID: 1444876
3 Beiträge
Excel VBA erkennt vermeintlichen String immer als
SeamanX

Hallo,
versuche aus einer Excel-Datei einen String auszulesen, der leider immer als Zahl interpretiert wird.
Code: Sub auslesen() Workbooks.Open Filename:="C:\...\test.xls" Debug.Print Format(ActiveWorkbook.Worksheets(1).Cells(1, 1).Value, "&") Debug.Print CStr(ActiveWorkbook.Works...
11.01.2016 14:09:50
Thread-ID: 1468182
8 Beiträge
VBA Zeichen in String
Lukas

Hallo!
Mit InStr() prüfe ich ob mein Text in der Zelle enthalten ist. Wenn ja, möchte ich das Zeichen vor und die beiden Zeichen nach dem Text wissen!
Vielen Dank für eure Hilfe schon im Voraus!
25.06.2016 17:21:48
Thread-ID: 1500958
7 Beiträge
String finden, Zeilen kopieren VBA
Robert

Hallo Leute,
ich habe folgende Problem (siehe https://www.herber.de/bbs/user/118819.xlsm)
Ich habe zwei Reiter in einer Excel. Der zweite ("MA") beinhaltet Daten über Mitarbeiter (Spalten A:L).
Im zweiten Reiter "Übersicht" soll man in Zelle B1 ein Stichwort eingetragen können und...
09.01.2018 18:04:22
Thread-ID: 1601170
2 Beiträge
6-Stellige Zahl in String finden VBA
Hendrik

Hallo zusammen,
leider habe ich im Web nichts passendes gefunden, daher stell ich die Frage mal hier rein.
Ich suche nach einer VBA-Lösung, welche die Spalte A-F nach 6-stelligen Zahlen durchsucht und diese in einer Zelle ausgibt.
Beispiel: String = "test 123 test 56 test 123456...
12.10.2018 11:15:01
Thread-ID: 1650910
9 Beiträge
teilstring in vba
Susan
Hallo,

da ich mich noch nicht so sehr mit vba auskenne, brauche ich nun mal Hilfe.
In meinem Programm wird durch eine Inputbox die Variable strMitarbeitername in der Form "Name, Vorname" vom benutzer festgelegt.
Die Tabellenblätter des Workbooks sind nach Nachnamen benannt, und ich möc...
10.11.2003 14:23:11
Thread-ID: 335880
4 Beiträge
suchen mit platzhalter (*) möglich ?
daniel
hallo !
ich wollte mal was testen.
in a1 steht "konrad".
nun habe ich in b1 geschrieben =WENN(A1="*r*";1;0)
zweck war, dass ich schauen wollte, ob in a1 ein "r" vorkommt.
leider klappt das mit den * nicht so ganz.
jetzt steht in b1 nur dann eine 1, wenn in a1 exakt "*r*" steht.<...
18.02.2004 12:50:52
Thread-ID: 384535
3 Beiträge
Zahl zu String in VBA
HERMOS

Hallo
kann mir jemand helfen.
Bekomme Meldung Typen unverträglich (vorletzte Zeile).
Wie kann ich die Variable wert in einen String wandeln?
Dim letzteZeile, wert, Text2 As Variant
Selection.SpecialCells(xlCellTypeLastCell).Select
letzteZeile = ActiveCell.Row
For wert...
17.06.2004 17:24:18
Thread-ID: 442671
3 Beiträge
Probleme mit SQL-String in VBA
rolfi

Hallo,
Habe folgendes Problem:
Ich baue mir für eine odbc-Abfrage den SQL-String in einer Variablen (strSqlCmd) zusammen.
Die Abfrage wird dann folgendermassen ausgeführt:
With Selection.QueryTable
.Connection = "ODBC;DSN=XXXXXXX;"
.CommandText = Array(st...
19.05.2005 11:00:06
Thread-ID: 613420
4 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Teilstring mit Platzhaltern suchen in Excel

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und gehe in die VBA-Entwicklungsumgebung (ALT + F11).

  2. Erstelle ein neues Modul: Klicke im Menü auf "Einfügen" und wähle "Modul".

  3. Füge den folgenden Code ein:

    Sub SucheMitPlatzhaltern()
   Dim Txt As String
   Dim Such As String
   Dim Ergebnis As String
   Dim i As Long, L As Long

   Txt = "AABBCCDD11223344"
   Such = "B*DD*2"

   If Txt Like "*" & Such & "*" Then
       For i = 1 To Len(Txt)
           If Mid(Txt, i) Like Such & "*" Then Exit For
       Next
       For L = Len(Txt) - i To 1 Step -1
           If Mid(Txt, i, L) Like Such Then Exit For
       Next
       Ergebnis = Mid(Txt, i, L)
   End If

   MsgBox "Gefundener Teilstring: " & Ergebnis
End Sub

  4. Passe den Suchstring an deine Bedürfnisse an. Hier kannst du Platzhalter wie * verwenden, um Teilstrings zu suchen.

  5. Führe den Code aus: Drücke F5 oder klicke auf "Ausführen".

Häufige Fehler und Lösungen

  • Fehler: Kein Ergebnis wird zurückgegeben.

    • Lösung: Überprüfe, ob der Suchstring korrekt formatiert ist und ob der Platzhalter * an den richtigen Stellen steht.

  • Fehler: Laufzeitfehler 9 - Index außerhalb des gültigen Bereichs.

    • Lösung: Stelle sicher, dass der Suchstring und der Textstring nicht leer sind.

  • Fehler: Der Teilstring wird nicht korrekt gefunden.

    • Lösung: Achte darauf, dass du die Logik für das Rückwärtszählen anpasst, wie in den Beiträgen von Joni und Uwe erwähnt.

Alternative Methoden

Eine alternative Methode zur Suche mit Platzhaltern ist die Verwendung von Regulären Ausdrücken. Hier ein Beispiel:

Sub SucheMitRegEx()
    Dim Tx As String
    Tx = "AABBCCDD11223344"

    With CreateObject("vbscript.regexp")
        .Global = True
        .Pattern = "B.*DD.*?2"
        Debug.Print .Execute(Tx)(0)
    End With
End Sub

Diese Methode erfordert jedoch, dass du ein wenig mehr über reguläre Ausdrücke weißt.

Praktische Beispiele

  • Beispiel 1: Verwende den Code von Uwe, um einen Teilstring zu finden, der auf eine andere Weise formuliert ist:

    Sub BeispielUwe()
   Dim lngA As Long, lngE As Long
   Dim strS As String, strT As String
   strS = "B*DD*2"
   strT = "AABBCCDD11223344"
   lngA = Application.WorksheetFunction.Search(strS, strT)
   lngE = Len(strT)

   Do Until Mid(strT, lngA, lngE) Like strS
       lngE = lngE - 1
   Loop
   Debug.Print Mid(strT, lngA, lngE)
End Sub

  • Beispiel 2: Verwende die Like-Anweisung in einer einfachen Excel-Formel. Zum Beispiel, um zu prüfen, ob ein Wert in einer Liste von Werten vorhanden ist.

Tipps für Profis

  • Nutze Wildcard-Zeichen wie * und ? effektiv, um flexiblere Suchanfragen zu erstellen.
  • Setze Reguläre Ausdrücke ein, wenn du komplexe Suchmuster benötigst.
  • Vermeide es, den Code unnötig zu komplizieren. Halte die Logik klar und einfach.

FAQ: Häufige Fragen

1. Wie kann ich Platzhalter in einer Excel-Formel verwenden?
Du kannst Platzhalter wie * in der WENN-Funktion oder SUMMEWENN-Formel verwenden, um nach Teilstrings zu suchen.

2. Was sind die Unterschiede zwischen Like und RegExp in VBA?
Like ist einfacher zu verwenden und eignet sich für grundlegende Suchen, während RegExp komplexere Muster unterstützt, jedoch mehr Kenntnisse erfordert.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige