Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1268to1272
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

324 Forumthreads zu ähnlichen 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
Anzeige
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
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
VBA die letzten 4 Zeichen in einem String löschen
andreas

Hallo zusammen,
ich lese die Zelle "k12" als Variable ein und möchte dabei immer die letzten 4 Zeichen löschen
Modellname = Left(("k12"), Len("k12") - 4)
was ist falsch geschrieben?
Danke für die Hilfe
19.02.2010 11:58:31
Thread-ID: 1139731
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
3
4
7
4
6
2
7
9
3
2
3
6
9
1
2
2
4
3
11
4
2
2
10
14