Ist es möglich mit einem Makro 5 Zellen zu markieren und den Inhalt in eine Zelle zu kopieren?
Danke.
Range("A6") = Range("A1") & Range("A2") & Range("A3") & Range("A4") & Range("A5")
Mit je einem Leerzeichen dazwischen so:
Range("A6") = Range("A1") & " " & Range("A2") & " " & Range("A3") & " " & Range("A4") & " " & Range("A5")
Bei einer größeren Anzahl zu verknüpfender Zellen kann man das allerdings besser lösen (z.B. mit einer Schleife)
Sub xxx()
Dim C As Range, S As String
For Each C In Selection
S = S & C.Text
Next C
Application.InputBox("Zielzelle", "Ziel", Type:=8).Value = S
End Sub