Ich habe in der Recherche ein Makro gefunden, dass den Inhalt mehrerer untereinanderliegender Zellen in eine zusammenfasst, klasse. Jetzt mein "Wunsch":
Ich muss immer wieder Zellen (zwischen 2 und 6) in 3 neben einander liegenden Spalten in eine Zeile zusammen führen. Ich habe aber keine Ahnung, wie ich das Makro erweitern kann? Siehe beigefügte Mappe.
schon mal vielen Dank für's drüberschauen
Gruß Herbert
Sub Zusammenfassen()
' Tastenkombination: Strg+y
Dim Text As String
Dim Zelle As Range
Dim TrennZ As String
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
https://www.herber.de/bbs/user/89373.xls