Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1768to1772
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
1768to1772
1768to1772
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Leerzeichen und Chr(160) löschen

Leerzeichen und Chr(160) löschen
13.07.2020 10:17:45
Matthias
Hallo zusammen
Ich habe eine Liste mit 50'000 Zeilen und etwa 30 Spalten ... und Excel liegt bei dieser Formel ab:
wsC.UsedRange.Select
For Each C In Selection
C.Value = Trim(LTrim(C.Value))
C.Replace Chr(160), "", xlPart
Next
Geht das irgendwie "schneller"? Oder ist das die einzige Möglichkeit so?
Wünsche allen einen tollen Tag!
LG Matthias

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

Betreff
Datum
Anwender
Anzeige
AW: Leerzeichen und Chr(160) löschen
13.07.2020 11:07:23
Daniel
HI
beispielsweise so, mit einem zweiten leeren Tabellenblatt (wsD).
Da fügt man dann eine entsprechende Formel ein, kopiert diese und schreibt sie wieder zurück.
das geht recht schnell, weil man hier alle Zellen gemeinsam in einem Schritt bearbeiten kann.
with wsD.Range(wsC.UsedRange.Address)
.FormulaR1C1 = "=TRIM(SUBSTITUTE('" & wsC.Name & "'!RC,CHAR(160),""""))"
.Copy
.wsC.Usedrange.PasteSpecial xlpastevalues
.ClearContents
End with
Voraussetzung ist, dass man mit Excel-Glätten anstelle des TRIM leben kann (Trim entfernt nur die Leerzeichen am Anfang und Ende, Glätten auch die mehrfach hintereinander vorkommenden Leerzeichen innerhalb)
die andere alterenative wäre: 
dim arr
dim z as Long, s as Long
with wsC.UsedRange
arr = .value
for z = 1 to Ubound(arr, 1)
for s = 1 to ubound(arr, 2)
arr(z, s) = Trim(arr(z, s)
arr(z, s) = Replace(arr(z, s), chr(160), "")
next
next
.value = arr
end with

Gruß Daniel
Anzeige
AW: Leerzeichen und Chr(160) löschen
13.07.2020 12:48:15
Matthias
Sehr cool! Vielen herzlichen Dank Daniel! Die zweite Variante hat super geklappt!
und die erste?
13.07.2020 12:51:15
Daniel
hast du die auch mal ausprobiert?
Gruß Daniel
AW: und die erste?
13.07.2020 13:01:35
Matthias
Hey Daniel, nein die erste Variante habe ich nicht ausprobiert. Ich fand die zweite einfacher sympatischer, auch wenn ich da weniger verstanden habe, haha :-)
AW: und die erste?
13.07.2020 13:09:07
Daniel
Dann probier sie mal.
Mir sind Codes, die ich nicht verstehe , eher unsympathisch.
Gruß Daniel
AW: und die erste?
13.07.2020 13:09:09
Daniel
Dann probier sie mal.
Mir sind Codes, die ich nicht verstehe , eher unsympathisch.
Gruß Daniel
AW: und die erste?
13.07.2020 19:05:16
Matthias
Hi Daniel, ja da hast du recht. Aber als "Nicht-Programmierer" kann ich diesen Anspruch leider nicht haben, alles zu verstehen. Selbst wenn ich nach dem ubound suche, ist mir das nicht klar. Die andere Formel verstehe ich. Sie gibt allerdings einen Fehler aus:
Markierte Zeile: wsC.UsedRange.PasteSpecial xlPasteValues
Fehlerausgabe:
Laufzeitfehler 438
Objekt unterstützt diese Eigenschaft oder Methode nicht
Für mich passt aber die erste Variante wirklich! Herzlichen Dank nochmals!
Anzeige
AW: und die erste?
13.07.2020 20:29:53
Daniel
Dann prüf mal, ob du alles richtig geschrieben hast.
Auch als Nichtprogrammierer sollte man wissen, was man tut.
Die erste Methode ist gerade für Nichtprogrammierer mit vorhandenen Excelkenntnissen interessant, weil die damit trotzemen schnelle effektive Makros schreiben können.
Gruß Daniel

300 Forumthreads zu ähnlichen Themen

Wenn in Zelle folgende Zeichen, dann
mehmet

Hallo Forum,
in Spalte G4:G92 sind folge Codes:
in G4= TAF LSZH 090600Z 090716 VRB03KT 0200 FG VV001 BECMG 0709 CAVOK=
in G5= TAF DTTA 090600Z 090716 VRB03KT 0700 FG BKN013 BECMG 1012 07010KT 8000 SCT026=
in G6= TAF EPKT 090500Z 090615 24002KT 0500 FG NSC BECMG 0608 26005KT 9999...
09.09.2008 09:39:00
Thread-ID: 1008320
6 Beiträge
Anzeige
zahlen in zeichenkette suchen und wert zurück gebe
gatewax

Hallo,
ich habe einen Spaltenbereich xy der verschiedene Werte aus Zahlen und Texten enthält. (Bsp Asdf0001, B/123_sdf, usw.)
nun habe ich in einer weiteren spalte z zahlen stehen welche in dem spaltenbereich xy (unabhängig ob alleinstehen oder in Textkombination) vorkommen.
ich suc...
27.11.2008 08:22:20
Thread-ID: 1028208
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
Anzeige
Wenn feste Zeichenfolge in Textbox, dann...
Lenni

Moin Excellianer!
Im Archiv finde ich leider nichts Vergleichbares und mit der InStr-Funktion setze ich mich auch schon bezüglich meiner Fragestellung auseinander. Komme aber leider zu keinen Ergebnissen.
In einem UserForm1 steht in der Textbox1 ein beliebiger Text von beliebiger Länge....
27.04.2009 22:31:44
Thread-ID: 1071497
3 Beiträge
suchen und bestimmte Zelle löschen
Peter

Hallo
ich würde gerne nach bestimmten Begriffen suchen und falls der Begriff gefunden wird,
das dann die übernächste Zelle nach unten gelöscht wird.
Beispiel: Falls Begiff gefunden in B3 dann lösche Wert in B5, Begriff gefunden in E30 dann lösche Wert in E32 usw.
Wer weiß wie ic...
19.06.2009 20:22:11
Thread-ID: 1083023
2 Beiträge
Alle Leerzeichen vorne und hinten löschen?
Selma

Hallo Leute,
wie kann ich per VBA für die markierten Zellen alle Leerzeichen des Zellinhalts vorne und hinten löschen?
Viele Grüße,
Selma
04.08.2009 10:23:57
Thread-ID: 1093411
3 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
zeichen finden und löschen
patrick

hi,
ich bräuchte wieder mal die geschätzte hilfe dieses forums.
ich hab ein rießen excelfile in dem telefonnummern drinstehen. (spalte D)
und bräuchte eine möglichkeit um dort invalide datensätze rauszulöschen.
ich will dort wirklich nur die reinen zahlen drin stehen haben. oh...
30.09.2009 14:25:13
Thread-ID: 1106441
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
5
7
2
4
4
2
1
2
7
3
5
9
3
5
5
2
4
3
2
12
2
9
3
9
4