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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen