Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1140to1144
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
1140to1144
1140to1144
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
Anzeige
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
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
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
Anzeige

96 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
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
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
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
5
4
7
13
3
6
5
1
2
5
2
4
3
2
4
10
14
5
15
4
5
11
56
9