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

VBA: Ersetzen oder löschen von Zeichen

Forumthread: VBA: Ersetzen oder löschen von Zeichen

VBA: Ersetzen oder löschen von Zeichen
05.08.2017 19:27:15
Zeichen
Hi,
wie kann ich Zeichen oder Nummern am Ende eines Begriffes ersetzen bzw. löschen?
Darren.
Darren,
Darren!
Darren?
Darren2017
Nur Darren darf in der Variable noch übrig bleiben.
Funktion in VBA und wie funktioniert es?
Danke
Darren
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Ersetzen oder löschen von Zeichen
05.08.2017 19:30:44
Zeichen
warum VBA

Tabelle3
 EF
9Darren.Darren
10Darren,Darren
11Darren!Darren
12Darren?Darren
13Darren2017Darren

verwendete Formeln
Zelle Formel Bereich N/A
F9:F13=LINKS(E9;6)  
Excel-Inn.de
Hajo-Excel.de
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 25.12 einschl. 64 Bit


VBA ist left.

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben, mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
Anzeige
AW: VBA: Ersetzen oder löschen von Zeichen
05.08.2017 19:36:34
Zeichen
Es muss VBA sein, da es Teil meines Codes sein soll, wenn ich alles zusammen habe. Danke trotzdem
dann benutze doch eine Konstante ... owT
05.08.2017 19:58:57
Matthias
AW: VBA: Ersetzen oder löschen von Zeichen
06.08.2017 07:31:57
Zeichen
meine VBA Lösung hat also nicht gefallen.
Vielleicht hat jemand anders noch eine andere Lösung.
Ich bin dann raus, da beide Lösungen nicht die Zustimmung gefunden haben.
Gruß Hajo
Anzeige
Hier gab's keine VBA-Lösung von dir, ...
06.08.2017 12:53:36
dir,
…nur im anderen Thread, Hajo,
und die war rudimentär und die Fml hier trivial und offensichtlich nicht ausreichend. Also hättest du besser auf eine weitere AW verzichtet. So könnte man nämlich auch beginnende Demenz vermuten… ;->
Gruß, Luc :-?
Das kommt darauf an, was übrig bleiben soll, ...
05.08.2017 19:59:16
Luc:-?
…Darren;
hier wäre es einfach → zw = Left(qw, 6), würde aber voraussetzen, dass es sich immer um die ersten 6 Zeichen handeln würde. Ist das aber nicht der Fall (und eine feste ZeichenAnzahl am TextEnde scheint's ja auch nicht zu sein), wären andere Methoden erfor­derlich.
Feedback nicht unerwünscht! Gruß, Luc :-?
Besser informiert mit …
Anzeige
AW: Das kommt darauf an, was übrig bleiben soll, ...
05.08.2017 23:42:22
Darren
Darren soll in diesem Beispiel übrig bleiben und der "." weg sein. Natürlich ist das nur ein Beispiel, aber dsa Zeichen soll am Ende weg egal wie lang der Text ist.
Hier sind's ja mitunter auch mehrere Zeichen, ...
06.08.2017 02:33:54
Luc:-?
…Darren;
nur ein Zeichen wäre ja auch einfach, zB so: zw = Left(qw, Len(qw) - 1)
Sind es aber mehrere, müsste ggf gesplittet oder ein Filter eingesetzt wdn …
• Var1 - Splitten mit UDF:
  als ZellFml: =SplitVx(A1;{".".","."!"."?".2})
  bzw mit 2 UDF: =SplitVx(A1;VSplit(".,!?2";""))
  prozedurintern: zw = SplitVx(qw, Array(".", ",", "!". "?", 2))(0)
  bzw mit 2 UDF: zw = SplitVx(qw, VSplit(".,!?2", ""))(0)
• Var2 - Filtern nach Buchstaben mit UDF:
  als ZellFml: =MaskOn(A1;"alf")
  prozedurintern: zw = MaskOn(qw, "alf")
• Var3 - Filtern nach Buchstaben u.Splitten mit UDF (falls dem Trenner B'staben folgen):
  als ZellFml: =VSplit(MaskOn(A1;"alf"))
  prozedurintern: zw = Split(MaskOn(qw, "alf"))(0) (hier reicht vbFkt Split aus)
Falls die UDFs in einem (im allgemeinen Zugriff stehenden) AddIn untergebracht sind und in eine Prozedur eingebunden wdn sollen, muss im VBAProject der diese Prozedur enthaltenden Mappe ein Verweis auf das AddIn gesetzt wdn! Bei Einsatz in ZellFmln ist das nicht erforderlich und damit auch nicht die Speicherung als .xlsm/b falls keine weiteren Prozeduren oder XLM-Fktt in benannten Fmln in der anwendenden Mappe enthalten sind.
Links zu den UDFs:
MaskOn: https://www.herber.de/cgi-bin/callthread.pl?index=1344962#1345181
SplitVx: https://www.herber.de/cgi-bin/callthread.pl?index=1301785#1301987 (Thread)
            https://www.herber.de/bbs/user/84157.xls (BspDatei)
VSplit: https://www.herber.de/bbs/user/99024.xlsm (BspDatei)
Morrn, Luc :-?
Anzeige
AW: Hier sind's ja mitunter auch mehrere Zeichen, ...
06.08.2017 09:21:40
Darren
Sehr gut, ich probiere das mal aus und google mal nach UDF (was das ist?!).
Bald fallen mir weitere Fragen ein :-) damit ich mein VBA ausbauen kann.
AW: VBA: Ersetzen oder löschen von Zeichen
06.08.2017 10:20:07
Zeichen
Hi
das hier wäre eine Möglichkeit per VBA
die Prüfung geht davon aus, dass bei normalen Alphazeichen Groß- und Kleinschreibung unterschiedlich sind und bei allen Zeichen, bei denen abgebrochen werden soll, diese gleich sind.
(ausnahme das "ß" und ggf das Leerzeichen, wenn auch bei Leerzeichen der String beendet werden soll, musst du diesen Teil der Prüfung entfernen)
dim txt as string
dim T as string
dim i as long
txt = "Darren2017"
for i = 1 to len(txt)
T = Mid(txt, i, 1)
if Not (LCase(T)  UCase(T) or T  = "ß" or T = " ") then Exit for
Next
txt = Left(txt, i - 1)
Gruß Daniel
Anzeige
AW: VBA: Ersetzen oder löschen von Zeichen
06.08.2017 18:21:57
Zeichen
Danke Daniel, werde gleich mal testen. Gruß Darren
In dem Fall würden sich...
07.08.2017 06:48:41
Case
Hallo, :-)
... "reguläre Ausdrücke" anbieten: ;-)
RegEXP - Beispiel...
Servus
Case
Anzeige
;

Forumthreads zu verwandten Themen

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
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
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
Anzeige
Zeichen vor Namen entfernen
Michael

Hallo,
ich habe eine Datei mit etlichen Namen. Vor jedem Namen steht allerdings folgendes Zeichen:'
Also praktisch so 'Peter Müller
Die Zeichen sind in der Übersicht nicht zu sehen, wenn ich jedoch eine Zelle anklicke ist das Zeichen zu sehen. Kann mir jemand sagen, wie ich die Ding...
14.10.2009 15:07:15
Thread-ID: 1109601
6 Beiträge
letztes Zeichen löschen
Roger

Hallo zusammen,
mein Tabellenblatt enthält in einer Spalte Textstrings, die als letztes Zeichen ein " enthalten. Das möchte ich gerne löschen.
Mit
Cells.Replace What:="Zeichen_alt", Replacement:="Zeichen_neu", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=True ersetze ich z....
16.11.2009 16:00:48
Thread-ID: 1117654
4 Beiträge
VBA: String nach der letzten Ziffer abschneiden
joerg

Hallo,
bestimmt ganz einfach, wenn man weiss wie's geht: Ich habe eine Reihe von Strings, zB 'abc_0323BAII' - wie kann ich von diesen die letzten Stellen abschneiden, so dass alles bis zur letzten Ziffer übrigbleibt? (Also, manche der Strings haben am Ende auch nur einen oder zwei oder gar...
06.02.2010 10:38:56
Thread-ID: 1136335
12 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
Tab. nur nach letzten 2 Zeichen sortieren
Charly

Hallo,
was muss im Code eingefügt werden damit die Tabellen nur nach den letzten 2 Zeichen sortiert werden?
Sub SortSheets() Dim w%, x%, y%, z% z = ThisWorkbook.Sheets("INFO").Index + 1 w = ThisWorkbook.Sheets.Count For x = z To w For y = x To w If Worksheets(y).Name Danke vorab.
C...
25.08.2010 00:13:10
Thread-ID: 1174058
3 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
von rechts bis zum Komma löschen
rechts

Moin,
ich habe folgende Frage:
Ich habe folgenden Text in einer Zelle stehen:
Eichen-Gartenschwelle, 26x16 cm, gehobelt und gefast, liefern
Ich muss jetzt von links 40 Zeichen in eine andere Zelle kopieren. Das habe ich mit der Formel =LINKS(D22; 40) geschafft. Ergebnis ist dann...
03.03.2011 10:19:32
Thread-ID: 1203999
5 Beiträge
von links 4 Leerzeichen entfernen
links

Hallo Forum,
ich benötige Hilfe.
In den ersten 4 Stellen eines Strings kann
entweder 1 einzelnes Leerzeichen oder mehrere
aufeinander folgende Leerzeichen auftreten.
Ich möchte diese, jedoch nur im Bereich der 1.Stelle bis
zur 4.Stelle von links entfernen.
Als Ergeb...
06.03.2011 10:57:24
Thread-ID: 1204429
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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