In hoffnungsvoller Erwartung oscar
Option Explicit
Sub KopieInEineZelle()
Dim rng As Range, strT As String
For Each rng In Range("Test")
strT = strT & rng ' ohne Leerzeichen dazwischen
' strT = strT & IIf(strT = "", "", " ") & rng ' mit Leerzeichen dazwischen
Next rng
ActiveCell = strT
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Sub test()
With Sheets("Tabelle1")
Sheets("Tabelle1").Range("A1:D1").Copy
ActiveCell.Insert
End With
Application.CutCopyMode = False
ActiveCell.Select
End Sub
Gruß
Chaos