suchen und ersetzen von Zeilenschaltung in Excel 2002

Question

Hallo zusammen,

ich möchte in Excel aus den einzelnen Zellen die Zeilenschaltungen mit Suchen und Ersetzen herauslöschen. Wie geht das?

Grüße
Lupine

Answer 1

für Spalte A

Option Explicit

Sub mat()
Dim LoLetzte As Long
Dim LoI As Long
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _
Count)
For LoI = 1 To LoLetzte
Cells(LoI, 1) = Application.Substitute(Cells(LoI, 1), Chr(10), "")
Next LoI
End Sub

Answer 2

Hallo Lupine,

gib unter "Suchen" die Tastenkombination [Strg+Enter] ein, unter "Ersetzen" gibst Du nichts ein.

Gruss
Rainer

Answer 3

@Rainer

Vielen Dank, das war es.

Grüße
Lupine