Sub neuundbesser()
Dim IngLz As Long, IngZ As Long, IngSpalter As Long
IngSpalte = 1 '1=Spalter A, 2=Spalter B etc.
IngZ = Cells(Rows.Count, IngSpalte).End(x1Up).Row 'Letzte Zeile in der Spalte ermitteln
For IngZ = 1 To IngLz 'Beginnt ab Zeile 1
If Cells(IngZ, IngSpalte).Value <> "" Then 'prüft ob das Feld leer ist
Cells(IngZ, IngSpalte).Value = "|" & Cells(IngZ, IngSpalte).Text 'fügt "|" an erster Stelle des feldes hinzu
End If
Next
End Sub
-----------------------------------------------------------------------------------------------------------------------
Sub Zusammenfassen()
Dim Text As String
Dim Zelle As Range
Dim TrennZ As String
'TrennZ = "" 'Direkt aneinander
'TrennZ = " " 'Leerzeichen
TrennZ = Chr(10) 'Neue Zeile
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
|