Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.11.2025 16:13:59
AddIn erstellen und mit Passwort schützen
04.11.2025 15:31:37
Die Summendifferenz zwischen 01.01. und heute berechnen
04.11.2025 13:05:47
Frage Bed.Format mit Reihenfolge
04.11.2025 11:17:34
Datumsberechnung Konfirmation
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
1268to1272
1268to1272
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeichenkette aus Text extrahieren mit VBA

Forumthread: Zeichenkette aus Text extrahieren mit VBA

Zeichenkette aus Text extrahieren mit VBA
dave
Hallo zusammen,
ich bastel zwar noch selbst weiter und werde sicher auch eine - wenn auch vermutlich sehr umständliche - Lösung finden, aber vielleicht ist ja jemand von euch schneller. ;-)
Ich habe eine Zeichenkette wie zum Beispiel:
Schaltung einer Anzeigen in Zeitschriften/Zeitungen,usw. (keine Fachhandelsanzeigen)
In dieser möchte ich per VBA die Zeichenkette extrahieren, die einen Schrägstrich enthält, in diesem Fall also
Zeitschriften/Zeitungen
Hat da jemand eine einfache und praktikable Lösung?
Danke im Voraus.
Gruß
David
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zeichenkette aus Text extrahieren mit VBA
22.06.2012 14:22:25
Jürgen
Hallo David,
hier eine Idee, die davon ausgeht, dass innerhalb des gesuchten Textes keine Leerzeichen stehen:
Sub Test1() MsgBox Extrahieren("Schaltung einer Anzeigen in Zeitschriften/Zeitungen,usw. (keine _ Fachhandelsanzeigen)") End Sub 
Function Extrahieren(Text As String) As String
Dim TextAufbereitet As String
Dim ErsterTeil() As String
Dim ZweiterTeil() As String
TextAufbereitet = Replace(Text, ",", " ")
ErsterTeil = Split(Split(TextAufbereitet, "/")(0), " ")
ZweiterTeil = Split(Split(TextAufbereitet, "/")(1), " ")
Extrahieren = ErsterTeil(UBound(ErsterTeil)) & "/" & ZweiterTeil(0)
End Function

Gruß, Jürgen
Anzeige
AW: Zeichenkette aus Text extrahieren mit VBA
22.06.2012 14:25:52
dave
Hallo Jürgen
Leider schaffe ich das jetzt nicht mehr zu testen, da ich gleich weg muss und erst übernächste Woche wieder da bin.
Ich melde mich wieder...
Danke erst mal soweit.
Gruß
David
AW: Zeichenkette aus Text extrahieren mit VBA
22.06.2012 14:26:56
ransi
Hallo David
Wenn du diesen kleinen Code in ein Modul packst:
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Dim Regex As Object

Function machs(zelle) As String
    If Regex Is Nothing Then Set Regex = CreateObject("VbScript.regexp")
    With Regex
        .Pattern = "[\wöäüß]+/[\wäöüß]+"
        '\w Entspricht allen alphabetischen Zeichen einschließlich Unterstrich. Äquivalent zu "[A-Za-z0-9_]"
        .ignorecase = True
        If .test(zelle.Text) Then
            machs = .Execute(zelle.Text)(0)
        End If
    End With
End Function


Geht das Extrahieren eigentlich recht einfach:
Tabelle1

 AB
1Schaltung einer Anzeigen in Zeitschriften/Zeitungän,usw. (keine Fachhandelsanzeigen)Zeitschriften/Zeitungän
2  

Formeln der Tabelle
ZelleFormel
B1=machs(A1)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
ransi
Anzeige
AW: Zeichenkette aus Text extrahieren mit VBA
22.06.2012 14:28:41
dave
Sorry, falls ich mich unklar ausgedrückt habe. Ich brauche dies nicht als Funktion, sondern für die Verarbeitung einer String-Variablen in anderem Code. Aber der Kern sollte ja der Gleiche sein.
Danke und Gruß
David
;

Forumthreads zu verwandten Themen

Zeichen aus dem Text holen
Oskar

Hallo
Ich möchte aus einem Text immer 2 Zeichen holen. ZB das 3. un4. Zeichen.
Beispiel:
AABBCCDD Wenn ich das 5. und 6. Zeichen Will muss das Ergebnis so aussehen CC
Besten Dank für die Hilfe
14.10.2008 12:07:00
Thread-ID: 1016292
2 Beiträge
Leerzeichen links aus TextBox entfernen
Lenni

Moin Excellianer!
Wie kann man in einer TextBox (in einem UserForm) Leerzeichen links des ersten Wortes so rausfiltern, dass der TB-Eintrag wirklich mit einem Zeichen beginnt? ...und keinem Leerzeichen.
Vielen Dank für Eure Hilfe!
Viele Grüße aus dem hohen Norden!
Lenni
19.02.2009 21:58:00
Thread-ID: 1052293
5 Beiträge
gewisse sonderzeichen aus zelle entfernen
Tobias

Hallo allerseits,
Ich würde gerne ein gewisses sonderzeichen aus einer zelle entfernen
nämlich dieses: •
If ((cells(i,2) = ?) then ' wenn die zelle dieses zeichen enthält
cells(i,2) = ? ' entfernen
End if
Was muss ich in diesen code einb...
28.02.2009 15:56:56
Thread-ID: 1055091
8 Beiträge
Anzeige
Formel zum entfernen von Leerzeichen
Leerzeichen

Hallo zusammen,
ich habe folgendes Problem und es wäre toll wenn mir jemand helfen könnte:
Ich habe in Spalte C2 mehrere Werte (z.B. 3; 4; 5) die durch ";" getrennt sind. Zwischen dem ";" und den Werten ist jeweils ein Leerzeichen.
Nun hätte ich gerne in C3 die selben Werte, ebenfa...
16.04.2009 09:58:49
Thread-ID: 1068995
5 Beiträge
Die ersten 2 Zeichen entfernen
MikeM

Hallo,
ich suche nach einer Möglichkeit per FORMEL die ersten 2 Zeichen eines Textes zu löschen.
Z.B.:
ABCDE soll werden: CDE
ABCD soll werden: CD
Text in Spalten ist klar, will das aber per Formel machen.
Und um das ganze noch einfacher zu machen: Die ersten beiden Z...
20.04.2009 08:53:00
Thread-ID: 1069716
7 Beiträge
summewenn + Bedingg. "die ersten 5 linken Zeichen"
Matthias

Hallo zusammen,
ich möchte die ersten 5 linken Zeichen (Text) einer Zelle auswerten. Wenn ein Kriterium erfüllt ist, soll summiert werden.
Das Kriterium besteht aus Text. Die Länge kann variieren.
Für Anregungen für eine korrekte Formel bin ich dankbar :-).
TIA und Grüße
Mat...
01.07.2009 12:35:51
Thread-ID: 1085662
3 Beiträge
letzte zeichen entfernen
Frank

hallo,
wie muss der Code lautetn wenn ich in einer Textbox in einer Userform vom eingetragenem Text die letzen 2 Zeichen löschen möchte sobald 20 Zeichen erreicht sind?
meine idee dazu ist: Private Sub TextBox1_Change() If Len(TextBox1) > 20 Then TextBox1 = Left(TextBox1) - 1 UserFor...
07.08.2009 11:05:20
Thread-ID: 1094231
8 Beiträge
Zellinhalte ab erstem Leerzeichen löschen
Kai

Hi,
wie kann ich den per Makro eine Spalte H bearbeiten und dort alle Inhalte , die in einer Zelle ab dem ersten Leerzeichen kommen, löschen, Wenn der inhalt mit "A" beginnt
Beispiel:
aus "A blablabla" soll "A" werden
aus "Antwort 5" soll "Antwort" werden
Aber wie ges...
11.09.2009 13:03:11
Thread-ID: 1101999
10 Beiträge
Leerzeichen nach Text in Zelle löschen
Helmut

Liebe Forenuser,
ich habe noch eine Frage für heute:
Wie kann ich die Leerzeichen nach einem Text in allen Zellen in einem Tabellenblatt löschen?
Genauer:
Wenn ich z.B. in eine Zelle hineingehe, dann stehe ich oft nicht genau nach dem letzten Zeichen in der Zelle, sondern weiter...
07.05.2010 13:54:48
Thread-ID: 1156080
3 Beiträge
Leerzeichen in Zelle löschen
Helmut

Liebe Forenuser,
ich habe einen Code bekommen, der jeden Text in der Zelle auf seine Länge trimmt (Leerzeichen danach werden gelöscht). Dieser Code bezieht sich auf das komplette Tabellenblatt. Hier der Code:
Sub leerzeichen_loeschen() Dim c As Range Application.ScreenUpdating = False F...
28.06.2010 09:20:04
Thread-ID: 1164259
4 Beiträge
Anzeige
Leerzeichen in Zelle Löschen
Fatih

Hallo Ihr Lieben,
ich habe gerade eine Excel-Datei bekommen aus dem ich ein Serienbrief gestalten soll - gar kein Problem.
In einer Spalte sind die Adressen und Hausnummern jeweils mit vielen Leerzeichen getrennt.
Etwa so.
Musterstrasse _________ 6 a
Teststrasse _______44___...
12.10.2010 13:52:43
Thread-ID: 1181955
7 Beiträge
Sonderzeichen aus Spalte entfernen
Peter

Hallo,
ich möchte aus der Spalte B alle Sonderzeichen
wie z.B. _, (,),? usw. entfernen.
Mein Versuch funktioniert leider nicht.
Wer kann helfen?
Siehe Anlage
Danke
Peter
Sub SonderzDel() Dim a As Integer For a = 2 To 5 'Cells(65536, 2).End(xlUp).Row If Cells(a,...
03.03.2011 00:32:51
Thread-ID: 1203960
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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