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

Teilstring aus String entfernen

Forumthread: Teilstring aus String entfernen

Teilstring aus String entfernen
skaddy
Hallo zusammen
Folgendes Problem: Ich habe einen String in einer Excel Zelle, den ich auf ein weiteres Tabellenblat kopieren möchte, jedoch wenn in dem String ein "$" als erstes Zeichen steht folgt an unbestimmerter Stelle ein ";" dann wieder Text, und dann wieder ein ";" und dann wieder Text. Die verschiedenen Texte in den Zellen sind unterschiedlich lang. Hier ein Beispiel: "$Hallo ;Das hier muss ich löschen; Welt"
Meine Frage nun: Wie kann ich das erste Zeichen auf "$" prüfen und dann weiter den Teilstring zwischen ; und ; herauslöschen? So Schleifen und kopieren in VBA bekomm ich hin, nur das herausschneiden des Teilstrings weiss ich nicht wie ich das angehen könnte, im Archiv habe ich so nichts gefunden...
Bin um jeden Tipp oder Codeschnipsel dankbar...
Besten Dank für eure Hilfe
skaddy
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Vbscript.Regexp
27.02.2010 21:32:54
ransi
HAllo
Hier mal ein erster Versuch:
Diesen Code in ein Modul:
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Function Test(zelle)
Dim Regex
If Left(zelle.Text, 1) = "$" Then
    Set Regex = CreateObject("Vbscript.Regexp")
    With Regex
        .Pattern = ";.+;"
        Test = .Replace(zelle.Text, "")
    End With
End If
End Function


Der Aufruf geht dann so:
Tabelle1

 AB
1$Hallo ;Das hier muss ich löschen; Welt$Hallo  Welt

Formeln der Tabelle
ZelleFormel
B1=test(A1)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
ransi
Anzeige
AW: Vbscript.Regexp
27.02.2010 21:56:24
skaddy
Hallo ransi
danke für die schnelle Antwort
Habs versucht, bekommen ein "Object not found" bei Set Regex
Was muss ich da noch einbinden?
Besten Dank und Gruss
skaddy
AW: Teilstring aus String entfernen
27.02.2010 21:44:03
Gerd
Hallo skaddy,
teste mal.
strText="$Hallo ;Das hier muss ich löschen; Welt"
if Left$(strText, 1)= "$" then
strLöschen=Split("$Hallo ;Das hier muss ich löschen; Welt", ";")(1)
strText= Replace(strText, strLöschen,"")
End If
Gruß Gerd
Anzeige
AW: Teilstring aus String entfernen
27.02.2010 22:00:21
skaddy
Hallo Gerd
Besten Dank, klappt schon ganz gut.
Das Ergebnis sieht dann so aus '$Hallo ;; Welt'. Wie kann ich nun noch das $, ein Leerzeichen und die ; entfernen so dass ich als Ergebnis 'Hallo Welt' bekomme?
Danke und Gruss
skaddy
per Formel: siehe oben
27.02.2010 22:11:45
WF
war doppelt - hab ich nicht gesehen.
WF
AW: Teilstring aus String entfernen
27.02.2010 22:28:22
Gerd
Hallo skaddy,
für dein Muster mit "Hallo":
strText= Replace(Mid$(strText,2), ";" & strLöschen & ";","")
Gruß Gerd
Anzeige
AW: Teilstring aus String entfernen
27.02.2010 22:49:01
skaddy
Hallo Gerd
Super!
Nur noch eine Frage, nun sind noch zwei Leerzeichen zwischen Hallo und Welt, also "Hallo Welt", wie bekomme ich da noch eins raus das nur noch "Hallo Welt" drin steht?
Hab das versucht in deinem Beispiel zu realisiern, geht aber irgendwie nicht... hmm
Merci
skaddy
Anzeige
AW: Teilstring aus String entfernen
27.02.2010 23:09:21
Gerd
Hallo skaddy,
meinst Du so?
strText= Replace(Replace(Mid$(strText,2), ";" & strLöschen & ";",""), " ", " ")
Gruß Gerd
;

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
Teile eines Strings auslesen
Joachim

Hi,
wie kann ich denn einen Teil eines Strings auf dem Sheet "data" in der Zelle B10 auslesen. und zwar folgender massen:
Die Einträge könnten so aussehen:
GBm123456
ATU12478
GM123587
Dabei interessieren mich aber nur die Buchstaben, ABER der wahrscheinlich Hauptproblem:...
05.12.2008 09:10:18
Thread-ID: 1030353
6 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
Anzeige
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
Userform soll Teil eines Strings in Spalte suchen
Jaffi

Hallo liebe Mitstreiter,
nun habe ich mal wieder ein Problem welches ich nicht alleine lösen kann :(
Ich möchte mithilfe einer UserFom und einer For-Schleife 3 Buchstaben bzw, Zahlen oder beides in einer Spalte suchen. Ich gebe also 3 Zeichen in die Textbox ein und die Prozedur soll nun...
11.11.2009 08:39:13
Thread-ID: 1116052
14 Beiträge
nicht gültige Zeichen aus String filtern
heinzs

Hallo Excelfreunde,
in VBA möchte ich aus einem String nicht erlaubte Zeichen entfernen:
gn_erlaubte_zeichen = "1234567890HIN"
gn_string_original = "abc123HIN"
gn_string_resultat = "123HIN"
Da ich sehr viele Strings zu kontrollieren habe, würde ich ungern mit einer for-Next...
29.12.2010 11:42:18
Thread-ID: 1193168
7 Beiträge
Länge eines gesuchten Teil eines Strings bestimmen
Holger,

Hallo liebes Forum,
langer Titel für mein Problem.
In meinem string SOMMER;HERBST;WINTER kann es auch ein Others geben
z.B SOMMER;HERBST;;WINTER oder SOMMER;HERBST;Others,WINTER.
Others kann s also in verschiedenen Schreibweisen geben (aber es kommt nur einmal vor), daher habe i...
14.02.2011 15:39:42
Thread-ID: 1200725
6 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
%-Zeichen aus Hyperlink entfernen
Stefan


Hallo zusammen,
ich habe ein Problem mit meiner Tabelle, in denen Fotos zu Namen per Hyperlink hinterlegt sind.
Warum auch immer, stehen auf einmal in allen Hyperlinkadressen '%20' mit drin, also so:
Name,%20Vorname%20200800022991%20opg%202%20.jpg
Richtig heißt die Datei (u...
30.03.2011 20:26:02
Thread-ID: 1208245
3 Beiträge
VBA - Leerzeichen löschen
WalterK

Hallo,
mit diesem Teil meines Codes lösche u.a. die Leerzeichen aus der Tabelle:
With ActiveSheet
With Range(Cells(1, 1), Cells(lngA, LCol))
.EntireColumn.NumberFormat = "General"
.Replace What:=" ", Replacement:=""
.Replace What:="FALSCH", Replacement:=""
End With
06.05.2011 07:44:28
Thread-ID: 1213288
6 Beiträge
Anzeige
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
Bereich markieren u. Zeichen daraus entfernen
Wolfgang

Guten Abend, liebe Excel-Gemeinde !
Irgendwie stehe ich auf dem Schlauch. Hoffentlich kann mir jemand helfen...
Ich bekomme aus unterschiedlichen Quellen Materialnummern im Excelformat
für die Erstellung von Versandaufträgen zugeschickt.
Mal haut der Absender Leerzeichen dazwis...
26.09.2011 19:42:13
Thread-ID: 1231545
4 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Teilstring aus String entfernen in Excel

Schritt-für-Schritt-Anleitung

Um ein Teilstring aus einem String in Excel zu entfernen, kannst du VBA verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne den VBA-Editor: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu: Klicke im Projekt-Explorer mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsm)" und wähle Einfügen > Modul.

  3. Füge den folgenden Code ein:

    Option Explicit

Public Function Test(zelle As Range) As String
   Dim Regex As Object
   If Left(zelle.Text, 1) = "$" Then
       Set Regex = CreateObject("Vbscript.Regexp")
       With Regex
           .Pattern = ";.+;"
           Test = .Replace(zelle.Text, "")
       End With
   End If
End Function

  4. Verwende die Funktion in Excel: Gehe zurück zu Excel und verwende die Funktion in einer Zelle, z.B. =Test(A1).

Häufige Fehler und Lösungen

  • Fehler: "Object not found" bei Set Regex

    • Lösung: Stelle sicher, dass du die VBA-Referenz für Microsoft VBScript Regular Expressions aktiviert hast. Gehe zu Extras > Verweise im VBA-Editor und aktiviere die entsprechende Option.

  • Problem mit Leerzeichen

    • Lösung: Nutze die Trim-Funktion, um überflüssige Leerzeichen zu entfernen. Beispiel: Test = Trim(.Replace(zelle.Text, "")).

Alternative Methoden

Falls du keine VBA-Lösungen verwenden möchtest, kannst du auch einfache Excel-Formeln nutzen:

  • Erstes Zeichen löschen: Verwende die Formel =RECHTS(A1;LÄNGE(A1)-1) um das erste Zeichen zu entfernen.
  • Text zwischen Semikolons entfernen: Kombiniere die FINDEN und LINKS Funktionen, um Teile eines Strings zu extrahieren.

Praktische Beispiele

Angenommen, du hast den folgenden Text in Zelle A1: "$Hallo ;Das hier muss ich löschen; Welt".

  • Um das erste Zeichen und den Teilstring zu entfernen, kannst du die VBA-Funktion wie folgt aufrufen:

    =Test(A1)

  • Das Ergebnis wird dann "$ ;; Welt" sein. Um das $ und die überflüssigen Semikolons zu entfernen, kann folgende Zeile hinzugefügt werden:

    strText = Replace(Replace(Mid$(strText, 2), ";" & strLöschen & ";", ""), "  ", " ")

Tipps für Profis

  • Verwende die Replace-Funktion effizient, um mehrere Zeichen gleichzeitig zu entfernen. Du kannst mehrere Replace-Aufrufe schachteln.

  • Nutze RegEx für komplexere Muster, um spezifische Zeichen oder Teilstrings dynamisch zu entfernen.

  • Für häufige Aufgaben kannst du benutzerdefinierte Funktionen erstellen, die du mehrmals in verschiedenen Projekten verwenden kannst.

FAQ: Häufige Fragen

1. Wie kann ich das erste Zeichen in Excel löschen? Um das erste Zeichen zu entfernen, kannst du die Funktion =RECHTS(A1;LÄNGE(A1)-1) verwenden.

2. Wie entferne ich mehrere Zeichen aus einem String? Verwende die Replace-Funktion in VBA, um gezielt Zeichen oder Teilstrings zu ersetzen oder zu löschen. Ein Beispiel wäre strText = Replace(strText, "Zeichen", "").

Beliebteste Forumthreads (12 Monate)

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