Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1840to1844
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
1840to1844
1840to1844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Umbrüche aus Zelle entfernen

Umbrüche aus Zelle entfernen
03.08.2021 17:18:58
Lisa
Hallo zusammen,
ich würde gerne aus der Spalte E alle Umbrüche Chr(10) entfernen.
Folgenden Code habe ich geschrieben:

Sub Umbruchentfernen()
Columns("E:E").Select
Selection.Replace What:="" & Chr(10) & "" & Chr(10) & "", Replacement:=" "
End Sub
Das Problem ist, dass der Code nur funktioniert, nachdem ich in die Zelle klicke und einmal Enter drücke, ansonsten passiert nichts.
Wie kann ich das umgehen?
Vielen Dank schon Mal und viele Grüße
Lisa

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Umbrüche aus Zelle entfernen
03.08.2021 17:39:55
Lisa
Hallo nochmal,
ich habe das Problem folgendermaßen behoben:

Public Sub Umbrueche_loeschen()
Dim lZeile  As Long
With ThisWorkbook.Worksheets("1")
For lZeile = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
.Cells(lZeile, 1) = Replace(.Cells(lZeile, 1), Chr(10), " ")
Next lZeile
End With
End Sub
Wieso das funktioniert und der erste Code nicht, kann ich mir aber nicht erklären.
Ich lasse den Beitrag mal drinnen, falls jemand das gleiche Problem haben sollte, wie ich, wenn unerwünscht bitte eben bescheid geben.
Liebe Grüße
Lisa
AW: Umbrüche aus Zelle entfernen
03.08.2021 17:44:23
Daniel
Hi
erstmal enthält der Code viel unnötiges.
warum fügst du Leerstrings ("") zu einem Text hinzu? WARUM?
Wo hast du das gelernt? Nichts muss man nicht hinzufügen. Das ist ungefähr so sinnvoll wie 0 zu einer Zahl hinzu zu addieren.
desweiteren hast du im Code 2x das Zeichen(10) zum Ersetzen drin.
Dieser Code wird also.

Text1
Text2
so belassen wie er ist da hier nur ein Zeichen(10) steht und lediglich Texte mit Zwischen-Leerzeile wie

Text1
Text2
in 

Text1 Text2
umwandeln.
naja und das man Zellbereiche nicht selektieren muss bevor man einen VBA-Befehl auf sie anwendet, sollte sich mittlerweile auch rumgesprochen haben (ja der Recorder macht es, aber nur weil er muss, nicht weil es sinnvoll oder notwendig ist)
also reicht im Prinzip:

Sub Umbruchentfernen()
Columns("E:E").Replace What:=Chr(10), Replacement:=" ", lookat:=xlpart
End Sub
die Angabe, ob nur ganze Zellen ersetzt werden sollen oder auch Teile des Inhalts, sollte man hier schon machen.
Ansonsten übernimmt Excel die Einstellung des zuletzt gemachten Suchen- oder Ersetzen-Vorganges und die muss nicht die richtige sein.
Chr(10) kann man auch durch die Systemkonstante vbLF ersetzen (steht für "vb" = Systemkonstante von Visual Basic, "LF" = Line Feed)
Gruß Daniel
Anzeige
AW: Umbrüche aus Zelle entfernen
03.08.2021 17:59:00
Lisa
Hallo Daniel,
danke für die Erklärungen, nur so kann man was lernen.
"Warum fügst du Leerstrings ("") zu einem Text hinzu? WARUM?
Wo hast du das gelernt? Nichts muss man nicht hinzufügen. Das ist ungefähr so sinnvoll wie 0 zu einer Zahl hinzu zu addieren."
Wenn man den VBA Code der Zellen ausliest steht das so dort drin:
"Text" & Chr(10) & "" & Chr(10) & "Text"
Daher logischerweise auch der Versuch. Wenn man nicht weiter weiß, kann man sich als Anfänger eben nur an dem orientieren, was Excel einem vorgibt.
Liebe Grüße
Lisa
AW: Umbrüche aus Zelle entfernen
03.08.2021 18:18:45
Daniel
Stimmt, der Recorder zeichnet so auf.
Aber nicht alles, was der Recorder aufzeichnet, ist im Makrocode dann sinnvoll oder notwendig.
Vieles, was aufgezeichnet wird, ist auch der Methode geschuldet, wie wir als Anwender mit dem Computer arbeiten (z.B. das Selection und Select, weil wir nur ein Eingabegrät haben und daher zuerst den Zellbereich, der bearbeitet werden soll auswählen müssen und danach mit der gleichen Maus den Befehl auswählen)
Daher sollte RecorderCode immer überarbeitet werden, bevor man ihn ins Makro übernimmt.
Gruß Daniel
Anzeige

321 Forumthreads zu ähnlichen Themen

Zahlen aus aus Text extrahieren und addieren
Bernd

Hallo,
ich würde gerne aus einer Zelle, die sowohl Zahlen, aber auch Text enthält, die Zahlen "extrahieren" und miteinander addieren. Der Inhalt der Zelle B2 z.B. würde so aussehen:
'+15 Autos;-10 Waschmaschinen;-3 Schränke
Nun möchte ich in Zelle C2 das Ergebnis sehen: 2
Wie kö...
11.09.2008 16:20:36
Thread-ID: 1009173
10 Beiträge
Anzeige
Nur Zahlen in Zelle zulassen
Richard


Hallo an alle,
vielleicht kann mir jemand weiterhelfen.
In einem früheren Beispiel habe ich mal folgenden Code auf eine Textbox angewendet. Ich wollte damit erreichen, dass nur Zahlen, das "X", das "M" und das "L" für die Eingabe zugelassen sind. Dabei spielte es keine Rolle, ob...
29.01.2009 14:10:41
Thread-ID: 1045007
2 Beiträge
Zahlen aus TextBoxen addieren
A.Franz

Hallo..kann mir jemand helfen?
Ich habe in einer UserForm mit 10-TextBoxen und verschieden Zahlen wie z.B 10..23,90..121,17 usw.Weiterhin eine 11-TextBox in der ich die Summe aller Werte aus den 10-TextBoxen addiert haben möchte wenn ich z.B einen CommandButton drücke, oder die sich jedesma...
31.01.2009 23:41:28
Thread-ID: 1045790
3 Beiträge
Anzeige
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
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
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
Währungszeichen aus Zelle holen
joerg

Hallo,
ich hab hier eine Liste mit Abrechnungen, in dieser Liste kommt gelegentlich eine Fremdwährung vor, also CHF, GBP, SEK, DKK, ...
Ich würde nun gern oben in der Liste ein Feld machen, in dem man dieses Währungskennzeichen eingeben kann, dann sollen die Werte in der Spalte, in die...
29.07.2009 09:54:29
Thread-ID: 1092130
10 Beiträge
VBA - nur zahlen zulassen
steffen

Hallo in die Runde,
ich möchte per VBA prüfen lassen, ob in den Zellen ausschließliche zahlen drin sind.
Bsp:
012876
0049987272727
9876236262
Sobald aber ein Buchstabe oder Sonderzeichen drin ist, muss das erkannt werden (einfärben).
Ich habe es so versucht, doch das...
13.08.2009 08:57:13
Thread-ID: 1095486
10 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
9
3
1
2
4
7
4
4
9
9
9
8
5
3
10
2
12
8
6
6
8
2
2
9
1