Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1256to1260
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
1256to1260
1256to1260
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bitte um Hilfe: Zeilenumbrüche ersetzen

Bitte um Hilfe: Zeilenumbrüche ersetzen
Frank
Hallo,
ich möchte per VBA evt. vorhandene Zeilenumbrüche innerhalb von Zellen entfernen, d.h. durch "" ersetzen.
Bislang verwende ich dafür folgenden Befehl, der bei wenig Text in der Zelle auch gut funktioniert, habe ich jedoch mehrere manuelle Zeilenumbrüche innerhalb einer Zelle, erhalte ich hier jedoch immer einen Run-time Fehler und der Debug-Modus springt an.
Kann mir jemand sagen, was ich ändern muss, damit dieser Code auch bei bis zu 5 manuellen Umbrüchen innerhalb einer Zelle funktioniert ?
strFile = Replace(Replace(strFile, vbLf, ""), vbCrLf, "")
Vielen Dank im Voraus.
Gruß,
Frank
AW: Bitte um Hilfe: Zeilenumbrüche ersetzen
17.04.2012 21:22:20
Peter
Hallo Frank,
warum nicht ganz einfach so: 
Public Sub Umbrueche_loeschen()
Dim lZeile  As Long
With ThisWorkbook.Worksheets("Tabelle1")
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

Gruß Peter
AW: Bitte um Hilfe: Zeilenumbrüche ersetzen
17.04.2012 22:22:45
Frank
Hallo Peter,
vielen Dank für Deine Mitteilung !
Die Lösung von Jochen hat bei mir in diesem Fall letztendlich am besten funktioniert, da ich hier die Umbrüche nur vorübergehend entfernen muss, um sie mit einem Bildnamen zu vergleichen.
Ich werde mir Deinen Code aber auf jeden Fall auch aufheben und bestimmt auch bald an anderer Stelle verwenden können ! :-)
VG und vielen Dank nochmal - einen schönen Abend noch,
Frank
Anzeige
AW: Bitte um Hilfe: Zeilenumbrüche ersetzen
17.04.2012 21:22:44
Josef

Hallo Frank,
Sub removeLineBreaks()
  Dim rng
  
  Set rng = Selection 'oder andere Bereichsangabe!
  
  With rng
    .Replace What:=vbLf, Replacement:=" "
    .Replace What:=vbCrLf, Replacement:=" "
    .Rows.AutoFit
  End With
  
  Set rng = Nothing
End Sub



« Gruß Sepp »

Anzeige
AW: Bitte um Hilfe: Zeilenumbrüche ersetzen
17.04.2012 22:20:29
Frank
Hallo Sepp,
vielen Dank für Deine Mitteilung !
Die Lösung von Jochen hat bei mir in diesem letztendlich am besten funktioniert.
Ich habe aber schon eine Verwendungsmöglichkeit für Deinen Code gefunden und werde damit auf jeden Fall auch arbeiten ! :-)
VG und vielen Dank nochmal für Deine Hilfe - einen schönen Abend noch,
Frank
AW: Bitte um Hilfe: Zeilenumbrüche ersetzen
17.04.2012 21:25:15
JoWe
Hallo Frank,
so vllt:: 
strFile = Replace(strFile, vbLf," ", 1, 99)

wenn mehr als 99 x vbLf vorkommt, musst Du erhöhen.
oder auch so: 
Sub changer(strFile)
Dim c As Long
For c = 1 To Len(strFile)
If Mid(strFile, c, 1) = Chr(10) Then
Mid(strFile, c, 1) = " "
End If
Next
MsgBox strFile
End Sub

toi - toi - toi
Gruß
Jochen
Anzeige
AW: Bitte um Hilfe: Zeilenumbrüche ersetzen
17.04.2012 22:17:57
Frank
Hallo Jochen,
ein ganz dickes Danke dafür - die erste Möglichkeit ist genau, wonach ich gesucht hatte und funktioniert wunderbar ! :-)
Das hat mich heute echt gerettet und selbst wäre ich da wohl nie drauf gekommen.
VG und einen schönen Abend noch,
Frank
AW: Bitte um Hilfe: Zeilenumbrüche ersetzen
17.04.2012 23:16:40
Frank
Hallo Jochen,
nachdem mir Dein Code schon so geholfen hat, habe ich nun doch noch eine kleine Frage - die hat sich jetzt erst beim Arbeiten damit ergeben: :-)
In Formeln kann kann sagen ersetze x* durch y, wodurch es egal ist, was nach einem bestimmten Wert kommt, da der Stern hier als Platzhalter funktioniert.
Geht so etwas ähnliches auch in VBA, bezogen auf Deinen ersten Code ?
Ich habe einige Zellen, bei denen nur die erste Zeile innerhalb der Zelle, d.h. alles VOR dem ersten Umbruch relevant ist.
Könnte man hier anstatt den Umbruch durch ein Leerzeichen zu ersetzen, auch sagen, ersetze den Umbruch und alles danach durch ein Leerzeichen ?
VG und nochmals danke,
Frank
Anzeige

299 Forumthreads zu ähnlichen Themen

Zeilenumbruch bei verbundenen Zellen
oblivion

Hallo, ich habe mal eine Frage zum Zeilenumbruch. Wenn ich eine einzelne Zelle habe und über die Eigenschaften den Zeilenumbruch einstelle, dann wird automatisch die Zelle größer (nach unten) je mehr ich reinschreibe.
Wenn ich jetzt aber zwei oder mehr Zellen verbinde und die gleichen Einst...
22.08.2008 12:42:00
Thread-ID: 1003815
4 Beiträge
Anzeige
Zeilenumbruch im ScreenTip
Hans

Hallo,
kann mir jemand mitteilen wie ich im xml-Code einen Zeilenumbruch in dem Text für den Screentip erzwingen kann?
Danke
Hans
08.09.2008 15:14:29
Thread-ID: 1008174
5 Beiträge
VBA-Editor Zeilenumbruch
David

Hi Leute,
jetzt hab ich schon so viele Makros geschrieben, aber eins hab ich bisher nicht rausbekommen:
Wie erzeuge ich eigentlich MANUELL die Zeilenumbrüche im Editor? Wenn ich das Zeichen _ eingebe und anschließend Enter drücke, gehts jedenfalls nicht.
Ich hab auch noch nicht raus...
15.09.2008 18:03:53
Thread-ID: 1009867
4 Beiträge
Anzeige
ComboBox Zeilenumbruch
Steffen

Hallo zusammen,
hab mal ne kleine Frage zu ner ComboBox. innerhalb der Combobox sollen 2Bemerkungen eingetragen werden können. Im Moment schreibt "er" mir diese Bemerkungen immer nur in eine lange zusammenhängende Zeile. Ich will aber eine Art Zeilenumbruch haben so dass der Text flüssig d...
25.09.2008 10:26:00
Thread-ID: 1012249
2 Beiträge
ComboBox Zeilenumbruch
Steffen

Hallo zusammen,
hab mal ne kleine Frage zu ner ComboBox. innerhalb der Combobox sollen 2Bemerkungen eingetragen werden können. Im Moment schreibt "er" mir diese Bemerkungen immer nur in eine lange zusammenhängende Zeile. Ich will aber eine Art Zeilenumbruch haben so dass der Text flüssig d...
25.09.2008 10:26:00
Thread-ID: 1012250
2 Beiträge
erzwungener zeilenumbruch in Zelle
Lars

Hallo,
obwohl ich schon viel mit Excel gemacht habe, tauchen doch immer wieder Fragen auf:
Gibt es eine Möglichkeit, in einer Zelle einen Zeilenumbruch manuell einzufügen, ohne dass man bereits am Zellenende ist?
Ich denke, dass ist eine eher dumme Frage, aber ich habe derzeit keine...
02.10.2008 15:40:00
Thread-ID: 1013906
4 Beiträge
Zeilenumbruch in TextBox
Thomas

Hallo Forum,
hab da mal ne Frage:
Ich hab in einer User Form eine Textbox... ist es möglich diese Textbox mit einem Zeilenumbruch zu versehen? Und wenn ja, wie?
Schon mal Danke im voraus
Thomas
22.10.2008 16:54:11
Thread-ID: 1018407
3 Beiträge
Zeilenumbruch in TextBox
Thomas

Hallo Forum,
hab da mal ne Frage:
Ich hab in einer User Form eine Textbox... ist es möglich diese Textbox mit einem Zeilenumbruch zu versehen? Und wenn ja, wie?
Schon mal Danke im voraus
Thomas
22.10.2008 16:54:19
Thread-ID: 1018408
3 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
3
3
4
3
2
1
1
3
2
2
4
2
3
2
1
3
11
1
5
3
6
3
3
5
3