Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 23:30:16
Anzahl Jahre Zählen aus Datumreihe
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1660to1664
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
1660to1664
1660to1664
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text vor bestimmtem Zeichen löschen

Text vor bestimmtem Zeichen löschen
13.12.2018 08:52:41
Matthias
Guten Morgen zusammen,
folgendes Problem:
Ich versuche den Text vor einem bestimmten Zeichen zu löschen. Es geht sich um Telefonlisten. Nummern sind wie folgt aufgebaut:
+49 (0000) 0000 - 00
Nun möchte ich alles vor dem "-" löschen, und nur die Durchwahl stehen lassen.
Folgendes Makro habe ich gebaut: Application.ScreenUpdating = False start = 3 letzte = ActiveSheet.Range("E65536").End(xlUp).Row For lngZ = letzte To start Step -1 strW = Cells(lngZ, 5).Value If InStr(2, strW, "-", vbTextCompare) > 0 Then Cells(lngZ, 5) = Right(strW, InStr(2, strW, "-", vbTextCompare) - 1) End If Next Application.ScreenUpdating = True
Es klappt teilweise. Es nimmt das erste Zeichen, was es findet. und nicht das "-". Kann mir jemand verraten, wo der Fehler liegt?
Vielen Dank im voraus und liebe Grüße,
Matthias K.

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text vor bestimmtem Zeichen löschen
13.12.2018 08:57:44
PeterK
Hallo
RIGHT verlangt als 2. Parameter die Anzahl der Zeichen! Also "len(strW) - InStr(..."
AW: Text vor bestimmtem Zeichen löschen
13.12.2018 09:00:35
Daniel
Hi
bei RIGHT musst du als 2. Parameter folgendes angeben: 
Right(strW, Len(strW) - Instr(strW, "-"))
einfacher wäre hier die MID-Funktion: 
Mid(strW, Instr(strW, "-")+1)
noch einfacher geht's aber mit der ERSETZEN-Funktion, wenn du "*-" durch nichts ersetzt:
dein komplettes Makro lässt sich dann mit einer Programmzeile ausführen: 
Columns(5).Replace "*-", "", xlpart
Gruß Daniel
Anzeige
AW: Text vor bestimmtem Zeichen löschen
13.12.2018 09:13:06
Matthias
Hallo Daniel,
Vielen Dank, Funktioniert prima!
Achtung Falle: Wandlung Text in Zahl vermeiden
13.12.2018 09:33:09
Daniel
du musst hier u.U. beachten, dass wenn beim Entfernen der Vorwahl-Nummern nur Ziffern stehen bleiben, Excel dies in Zahlen wandelt und dann aus "xxx-01" nur "1" machst und die 0 verschwindet.
damit das nicht passiert musst du Excel mitteilen, dass die Werte wie Text behandelt werden sollen und nicht als Zahl. Hierzu musst du das Hochkomma voranstellen:
Replace "*-", "'", xpart
das solltest du auch tun, wenn du bei deiner Schleifenlösung bleibst: 
Cells(lngZ, 5) = "'" & Mid(strW, InStr(strW, "-") + 1)
dann gäbe es noch eine dritte Lösungsvariante
wende auf die Spalte die Funktion DATEN - DATENTOOLS - TEXT IN SPALTEN an
wähle "-" als Trennzeichen
klicke im Schritt 3
- auf die erste Spalte und wähle "nicht importieren"
- auf die zweite Spalte und wähle "Text"
sieht als Code dann so aus: 
Columns("E:E").TextToColumns Destination:=Range("E1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
Tab:=False, Semicolon:=False, Comma:=False, Space:=False, _
Other:=True, OtherChar:="-", _
FieldInfo:=Array(Array(1, 9), Array(2, 2))
Gruß Daniel
Anzeige
AW: Achtung Falle: Wandlung Text in Zahl vermeiden
13.12.2018 10:03:34
Matthias
Hallo Daniel,
Vielen Dank für die Info, aber die Formatierung ist kein Problem, ich habe eine Hilfszeile für die Formatierung der Zellen, diese wird auch per Schleife rüberkopiert.
Range("A3:G4").Select
Selection.AutoFill Destination:=Range("A3:G55"), Type:=xlFillFormats
Range("A1").Select

AW: Text vor bestimmtem Zeichen löschen
13.12.2018 09:01:10
Matthias
Hallo
Geht auch mit Formeln
Tabelle1

 AB
1 +49 (0000) 0000 - 0000
2 +49 (0000) 0000 - 0101
3 +49 (0000) 0000 - 0202
4 +49 (0000) 0000 - 0303
5 +49 (0000) 0000 - 0404
6 +49 (0000) 0000 - 0505
7 +49 (0000) 0000 - 0606
8 +49 (0000) 0000 - 0707
9 +49 (0000) 0000 - 0808
10 +49 (0000) 0000 - 0909
11 +49 (0000) 0000 - 1010
12 +49 (0000) 0000 - 1111
13 +49 (0000) 0000 - 1212
14 +49 (0000) 0000 - 1313

Formeln der Tabelle
ZelleFormel
B1=WENNFEHLER(GLÄTTEN(TEIL(A1;FINDEN("-";A1)+1;9^9));"")
B2=WENNFEHLER(GLÄTTEN(TEIL(A2;FINDEN("-";A2)+1;9^9));"")
B3=WENNFEHLER(GLÄTTEN(TEIL(A3;FINDEN("-";A3)+1;9^9));"")
B4=WENNFEHLER(GLÄTTEN(TEIL(A4;FINDEN("-";A4)+1;9^9));"")
B5=WENNFEHLER(GLÄTTEN(TEIL(A5;FINDEN("-";A5)+1;9^9));"")
B6=WENNFEHLER(GLÄTTEN(TEIL(A6;FINDEN("-";A6)+1;9^9));"")
B7=WENNFEHLER(GLÄTTEN(TEIL(A7;FINDEN("-";A7)+1;9^9));"")
B8=WENNFEHLER(GLÄTTEN(TEIL(A8;FINDEN("-";A8)+1;9^9));"")
B9=WENNFEHLER(GLÄTTEN(TEIL(A9;FINDEN("-";A9)+1;9^9));"")
B10=WENNFEHLER(GLÄTTEN(TEIL(A10;FINDEN("-";A10)+1;9^9));"")
B11=WENNFEHLER(GLÄTTEN(TEIL(A11;FINDEN("-";A11)+1;9^9));"")
B12=WENNFEHLER(GLÄTTEN(TEIL(A12;FINDEN("-";A12)+1;9^9));"")
B13=WENNFEHLER(GLÄTTEN(TEIL(A13;FINDEN("-";A13)+1;9^9));"")
B14=WENNFEHLER(GLÄTTEN(TEIL(A14;FINDEN("-";A14)+1;9^9));"")


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Gruß Matthias
Anzeige
AW: Text vor bestimmtem Zeichen löschen
13.12.2018 09:14:38
Matthias
Hallo Matthias,
Vielen Dank, aber ich muss das in VBA lösen, habs jetzt dank Daniel :) Danke euch vielmals!

29 Forumthreads zu ähnlichen 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
bestimmte Zeichen löschen
Karsten

Hallo...
in folgendem Beispiel möchte ich bestimmte Zeichen löschen. D.h: die, die keine "richtigen Buchstaben" sind.
https://www.herber.de/bbs/user/69042.xls
Kann mir jemand mit einer entsprechenden Methode weiterhelfen?
Gruß
Karsten
13.04.2010 11:50:16
Thread-ID: 1151400
13 Beiträge
Text in Zelle bis Zeichen ; vertauschen
Helmut

Hallo User,
eine kurze Frage:
Wie kann ich in einer Zelle Einen gewissen Text bis zum Zeichen ; nehmen und an den weiteren Text hintanhängen?
z.B:
Text in Zelle lautet:
L=7050;DN=50
Gewünschtes Resultat in der Zelle soll sein:
DN=50;L=7050
Kann mir hier wer helfe...
04.05.2010 16:16:19
Thread-ID: 1155393
3 Beiträge
Anzeige
Löschen von 2 bestimmten Zeichen
2

Hallo alle zusammen,
habe hier folgende Formel:
=HYPERLINK(getlink(C1); WENN(ISTZAHL(FINDEN("...";C1)); LINKS(C1;FINDEN("...";C1)-1); C1))
Getlink-Funktion
Option Explicit Public Function getLink(ByRef Target As Range) As String If Target.Hyperlinks.Count > 0 Then getLink = T...
18.08.2011 14:04:48
Thread-ID: 1226612
4 Beiträge
Text bis zu bestimmten zeichen
Christian

Hi Leute
Ich habe zum beispiel folgenden Text:
Spalte A
abc_def_ghi
jkl_mno_pqrs
...
Ich will jetzt in die Zelle daneben nur die rechten Werte stehen haben
Quasi dann in Spalte B
ghi
pqrs
...
nur mit der funktion rechts funktioniert es nicht.
Habe...
14.09.2011 18:54:01
Thread-ID: 1229885
5 Beiträge
Zeichen bis zum ersten Buchsaben löschen
Karsten

Hallo,
ich möchte per VBA Zeichen bis zum ersten Buchsaben löschen (Akt. Zelle).
z.B. aus:
-Filiale zu Filiale
( ungenau- zu ungenau-
Kann mir jemand dabei helfen? Danke.
Gruß
Karsten
19.12.2011 15:01:05
Thread-ID: 1242850
5 Beiträge
Bestimmtes Zeichen am Anfang löschen?
Selma

Hallo Leute,
wenn in Zellen der Spalte A (soll gelten ab Zeile 9 bis letzte verwendete Zelle der Spalte A) erstes Zeichen "|" ist, dann soll dieses Zeichen gelöscht werden. Wie mache ich das bitte per VBA?
Danke und Gruß,
Selma
24.12.2013 14:38:49
Thread-ID: 1343459
6 Beiträge
bestimmte Zeichen löschen
Christian

Hallo alle zusammen,
wäre für einen Rat sehr dankbar.
Wie bekomme ich möglichst einfach in 28.000 Zellen das letzte Zeichen gelöscht, wenn dieses entweder das Zeichen 32 oder das Zeichen 160 ist?
Kann mir da jemand bitte einen Tipp geben?
Die Suchen und Ersetzen Funktion weiß ic...
26.02.2014 19:08:16
Thread-ID: 1351348
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
4
4
12
2
1
3
4
4
5
3
10
4
2
2
11
3
1
5
5
3
3
15
3
3
1