Office: Zeilenumbruch finden und erste Zeile mit Zeilenumbruch löschen

anton100 · 2. Juni 2012

Hallo Forum,

ich möchte in einer Spalte die Zellen finden, in denen sich ein oder mehrere Zeilenumbrüche befinden.
Dann soll die erste Zeile + Zeilenumbruch gelöscht werden. Somit werden die nachfolgenden Zeilen um eine Zeile noch oben gerückt.

Alternativ kann auch die oberste Zeile duchgestrichen sein.

anbei ein Beispiel.

Habt Ihr eine Idee?

Gruß Anton

:)

EarlFred · 4. Juni 2012

Hallo Anton,

Habt Ihr eine Idee?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ja.

Code:

Option Explicit

Sub test()
Dim rng As Range
On Error GoTo errExit
For Each rng In ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, xlTextValues)
'anstelle Cells den Bereich eingrenzen, z. B. Columns(2)
If InStr(rng.Value, Chr(10)) Then
rng.Value = Replace(rng.Value, Split(rng.Value, Chr(10))(0) & Chr(10), vbNullString, , 1)
End If
Next rng
Exit Sub

errExit:
'Hinweis: Fehler 1004 tritt auf, wenn keine Zellen gefunden wurden.
MsgBox "Abbruch wegen Fehler " & Err.Number
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße
EarlFred

Hasso · 4. Juni 2012

Hallo Anton,

das geht so:

Code:

Option Explicit

Sub ZeilenumbruecheEntfernen()
Dim zelle As Range
Dim umbruchposition As Integer

For Each zelle In ActiveSheet.UsedRange
If InStr(zelle, Chr(10)) Then
For umbruchposition = 1 To Len(zelle.Text)
If Mid(zelle.Text, umbruchposition, 1) = Chr(10) Then
zelle = Mid(zelle.Text, umbruchposition + 1, Len(zelle.Text) - umbruchposition)
Exit For
End If
Next
End If
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ob die Zeile durchgestrichen ist oder nicht, ist egal.

anton100 · 4. Juni 2012

Vielen Dank für Eure Hilfe. Das hat beides super geklappt

Gruß
Anton

Office: Zeilenumbruch finden und erste Zeile mit Zeilenumbruch löschen

Zeilenumbruch finden und erste Zeile mit Zeilenumbruch löschen

Zeilenumbruch finden und erste Zeile mit Zeilenumbruch löschen

Zeilenumbruch finden und erste Zeile mit Zeilenumbruch löschen

Zeilenumbruch finden und erste Zeile mit Zeilenumbruch löschen - Similar Threads - Zeilenumbruch Zeile Zeilenumbruch

Zeilenumbruch im Serientext

Word nach TXT exportieren und manuelle Zeilenumbrüche erhalten?

Aus 1 Spalte 2 machen beim Zeilenumbruch

Bei Textmarke aktualisieren automatischer Zeilenumbruch

Serienbrief Excel Datenquelle

Zeilen in Spalten umformatieren

Zeilenumbruch in einfacher Tabelle