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

vba - Zeichen vor Text löschen

Forumthread: vba - Zeichen vor Text löschen

vba - Zeichen vor Text löschen
18.05.2017 16:39:39
bassi2008
Hallo in die Runde,
ich würde gern alle Zeichen die in einem String vor dem erstem Buchstaben stehen löschen.
Alle nachfolgenden Zeichen / Sonderzeichen sollen erhalten bleiben.
Bsp.:
#/ :-Text ab hier/125 usw
müsste dann so aussehen:
Text ab hier/125 usw
Kann man das irgendwie realisieren?
Viele Grüße
bassi
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: vba - Zeichen vor Text löschen
18.05.2017 16:47:39
Hajo_Zi
das siehst Du Falsch "'/" das ist auch Text. mir wäre das Neu das dies Zahl ist.

AW:Hajo, es wäre mir neu,...
18.05.2017 17:07:18
Daniel
... das "/" ein Buchstabe ist.
btw, Ziffern sind auch Texte, aber keine Buchstaben.
Gruß Daniel
AW: AW:Hajo, es wäre mir neu,...
18.05.2017 18:05:27
bassi2008
oh... ok... kann man gezielt "/" und "-" und " " und "_" und "+" und "*" vor einem Text entfernen? (Im Text selbst soll das aber wie gesagt weiter bestand haben)
Gruß bassi
Anzeige
AW: vba - Zeichen vor Text löschen
18.05.2017 16:52:54
Daniel
HI
vielleicht so 
dim txt as string
dim i as Long
txt = "#/ :-Text ab hier/125 usw"
for i = 1 to len(txt)
if lcase(mid(txt, i, 1)) like "[a-zäöüß]" then Exit for
next
txt = mid(txt, i + 1)

im Like-Operator kannst zu zwischen den Klammern alle Zeichen angeben, bei denen der Text beginnen soll. das "a-z" steht für alle Buchstaben zwischen "a" und "z", weitere können einzeln aufgeführt werden.
Gruß Daniel
Anzeige
AW: vba - Zeichen vor Text löschen
18.05.2017 18:07:30
bassi2008
oha... ich teste... das sieht doch schon gut aus :-)
AW: vba - Zeichen vor Text löschen
18.05.2017 18:18:30
bassi2008
... hust....sorry...
ich hab vergessen zu sagen, dass das für eine ganze Spalte funktionieren müsste.
Bzw Spalte B, Zelle 2-5000
Ich bin aber zu unintelligent das so hinzustricken, dass der Code die Spalte durchackert :-(
Kannst du mir nochmal unter die Arme greifen?
Gruß bassi
Anzeige
AW: vba - Zeichen vor Text löschen
18.05.2017 22:16:57
CitizenX
Hi,
kopiere den Code in ein allgemeines Modul: 
Option Explicit
Public Sub replaceString()
Dim regex As Object: Set regex = CreateObject("vbscript.regexp")
Dim objSel As Object
With regex
.Pattern = "(\W+)(\w.*?$)"
For Each objSel In Selection
objSel.Value = .Replace(objSel.Text, "$2")
Next
End With
End Sub

markiere deine Zellen und führe ihn aus....
VG
Steffen
Anzeige
Jawollja - perfekt :-)
19.05.2017 16:17:20
bassi2008
Hallo Steffen,
funktioniert tadellos.
Herzlichen Dank.
Viele Grüße
bassi
AW: vba - Zeichen vor Text löschen
19.05.2017 08:51:33
Daniel
HI 

dim Zelle as Range
dim txt as string
dim i as Long
For each Zelle in Range("B:B").SpecialCells(xlcelltypeconstants, 2)
txt = Zelle.Value
for i = 1 to len(txt)
if lcase(mid(txt, i, 1)) like "[a-zäöüß]" then Exit for
next
Zelle.Value = mid(txt, i + 1)
Next
gruß Daniel
Anzeige
herzlichen Dank :-)
19.05.2017 16:18:44
bassi2008
Hallo Daniel,
besten Dank für Deine Hilfe.
Dein Code funktioniert -fast- korrekt. Er entfernt zuverlässig alles was vor einem Text steht.
Aber auch dazu noch den ersten Buchstaben vom ersten Wort :-D
Viele Grüße
bassi
AW: herzlichen Dank :-)
19.05.2017 22:38:56
Daniel
stimmt, das +1 ist zu viel
Gruß Daniel
;

Forumthreads zu verwandten Themen

Zahlen aus Zelle auslesen
Timo

Hallo liebes Forum,
gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:
'123456 BLA --> 123456
Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?
Vielen Dank für die Unterstützung!
Timo
14.08.2008 11:16:00
Thread-ID: 1001770
7 Beiträge
Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Formel, rechts #### bis leer Zeichen
mehmet

Hallo Forum,
in Zelle B2 habe ich z.B. "ABC 314 " stehen.
Nun möchte ich in Zelle D2 folgende String darstellen:
zähle von links vier Strings nach rechts "ABC "
mache aus "314 " nun eine vierstellige Zahl "0314 "
entferne die zwei Leerzeichen nach der Zahl "0314 ", so da...
16.09.2008 10:46:00
Thread-ID: 1009991
8 Beiträge
Anzeige
Alle Leerzeichen bis rechts von Ziffer löschen
Ziffer

Hallo Freaks,
ich habe in der Spalte B 1700 Zeilen, die mit Artikelbezeichnungen folgenden Musters befüllt sind:

Mein Ziel ist es, alle Leerzeichen bis auf zwei nach der letzten Ziffer und dem ersten Buchstaben zu löschen. Also ab der 11 Stelle bis zur 16 Stelle alle Leerzeichen bi...
13.12.2008 21:41:36
Thread-ID: 1032708
3 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
Zahl aus best. Zelle auslesen
klaus

Hallo!
Folgende Tabelle soll dargestellt werden:
Tabelle1

 AB1Spalte 1nur 90 (für Anzahl Werte >2 und 210019,12,15,70,70,8,90,9013100160410009,10016,10019,10021,12,16,19,2,24,70,77,8,9,9015 0610009,77,99,88,10019,10021,12,16,19,2,24,70,77,8,9,900

Excel Tabel...
02.03.2009 15:51:14
Thread-ID: 1055623
6 Beiträge
Datum aus Zelle auslesen im Dateinamen übernehmen
Ralf

Hallo Zusammen,
hab' ein kleines Problem:
Wie kann man ein in einer Zelle hinterlegtes Datum im Dateinamen übernehmen.
Gruß Ralf
13.03.2009 16:49:57
Thread-ID: 1059943
4 Beiträge
Anzeige
Daten aus Zelle per CSV nur bedingt auslesen
Heiko

Hallöchen,
ich habe eine Datendatei in CSV mit Simikolon getrennt ohne Umbrüche.
Diese Lade ich auf eine Seite hoch, die mir die jeweiligen Zellen innerhalb einer Datenbank ausfüllt.
Meine Frage wäre jetzt, ob es eine Möglichkeit gibt, durch eingaben innerhalb der CSV-Datei den Text...
13.06.2009 20:14:31
Thread-ID: 1081318
4 Beiträge
Steuerzeichen aus "leeren" ("") Zellen löschen
Christoph

Hallo zusammen,
ich habe ein Tabellenblatt mit jeder Menge (fast) leerer Zellen. Diese werden erzeugt, indem im vorhergehenden Blatt WENN-Funktionen a la
WENN(a1=b1;"x";"")
verwendet werden. Kummer macht mir dies zum Beispiel beim Sortieren und bei Abfragen ob die Zellen leer si...
25.06.2009 10:41:14
Thread-ID: 1084263
5 Beiträge
Macro gesucht Text teilen ab Zeichen "-"
Tom

Liebes Forum,
ich suche ein Macro welches mir alle Zeichen links vom "-" (Minus) in eine neue Spalte B und alle Zeichen rechts vom Minus in die neue Spalte C kopiert. Das "-" (Minus) kann ggf. öfter vor kommen, ich möchte es nur auf das erste von links beziehen.
Konkret
Textxyz 79.x...
06.07.2009 12:18:48
Thread-ID: 1086596
2 Beiträge
Macro gesucht Text teilen ab Zeichen "-"
Tom

Liebes Forum,
ich suche ein Macro welches mir alle Zeichen links vom "-" (Minus) in eine neue Spalte B und alle Zeichen rechts vom Minus in die neue Spalte C kopiert. Das "-" (Minus) kann ggf. öfter vor kommen, ich möchte es nur auf das erste von links beziehen.
Konkret
Textxyz 79.x...
06.07.2009 12:19:17
Thread-ID: 1086598
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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