Sub neuundbesser()
Dim IngLz As Long, IngZ As Long, IngSpalter As Long
IngSpalte = 1
IngZ = Cells(Rows.Count, IngSpalte).End(x1Up).Row
For IngZ = 1 To IngLz
If Cells(IngZ, IngSpalte).Value <> "" Then
Cells(IngZ, IngSpalte).Value = "|" & Cells(IngZ, IngSpalte).Text
End If
Next
End Sub
-----------------------------------------------------------------------------------------------------------------------
Sub Zusammenfassen()
Dim Text As String
Dim Zelle As Range
Dim TrennZ As String
TrennZ = Chr(10)
For Each Zelle In Selection
Text = Text & Zelle.Value & TrennZ
Next
Set Zelle = Nothing
On Error Resume Next
Set Zelle = Application.InputBox(Prompt:="Zielzelle auswählen", Type:=8)
On Error GoTo 0
If Not Zelle Is Nothing Then Zelle.Value = Left(Text, Len(Text) - 1)
End Sub
------------------------------------------------------------------------------------------------------------------------
Sub RoutingAnpassung()
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
For Each Zelle In Selection.Cells
If Left(Zelle.Value, 1) <> "|" Then Zelle.Value = "|" & Zelle.Value
Next
End Sub