in der Eingabezeile werden Werte aus einer fremden Excel Datei in zwei Zeilen dargestellt (Alt Return). Wie bekomme ich diese wieder in eine. Den Punkt bei Zeilenumbruch herrausnehmen habe ich schon versucht.
Gruß Mat
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
Gruß Hajo