01.08.2019, 16:40
Hallo Community,
wie bekomme ich alle Textumbrüche raus?
Leider funktioniert der Guide nicht:
https://www.tecchannel.de/a/feste-zeilen...en,3277799
Dieser Code klappt auch nicht:
Sub RemoveCarriage()
'Update 20131216
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
Rng.Value = Replace(Rng.Value, Chr(10), "")
Next
End Sub
hier mal eine Excel Datei zum testen.
Test.xlsx (Größe: 8,27 KB / Downloads: 10)
Es sind mehrere Datensätze, deshalb kann ich es nicht manuell entfernen.
wie bekomme ich alle Textumbrüche raus?
Leider funktioniert der Guide nicht:
https://www.tecchannel.de/a/feste-zeilen...en,3277799
Dieser Code klappt auch nicht:
Sub RemoveCarriage()
'Update 20131216
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
Rng.Value = Replace(Rng.Value, Chr(10), "")
Next
End Sub
hier mal eine Excel Datei zum testen.
Test.xlsx (Größe: 8,27 KB / Downloads: 10)
Es sind mehrere Datensätze, deshalb kann ich es nicht manuell entfernen.