AW: Inhalte Zellbereich in eine Zelle kopieren
04.09.2012 21:37:40
fcs
Hallo Andy,
hier meine Lösung.
Den Trenntext zwischen den Zelltexten muss du im Code anpassen.
Gruß
Franz
Sub Copy_A1A10_nach_B1B10()
On Error GoTo Beenden
With ActiveSheet
Call Copy_merged_text(rngZellen:=.Range("A1:A10"), _
rngTarget:=.Range("B1:B10"), _
strSep:=Chr(10), bolLeer:=True) 'Chr(10) = Zeilenschaltung als Trenntext
End With
Beenden:
End Sub
Sub Copy_merged_text(rngZellen As Range, rngTarget As Range, _
Optional strSep As String = "", _
Optional bolLeer As Boolean)
'Text in den Zellen des Zellbereichs wird in die Zielzelle eingefügt
'rngZellen = Zellbereich mit den Texten, die zusammengefast werden sollen
'rngTarget = Zelle in die zusammengefasster Text eingefügt werden soll
'strSep = optionaler Trenntext zwischen den Zellinhalten - Vorgabe = Leerstring
'bolLeer = Option wie Zellen mit Leerstring behandelt werden sollen, _
bei True werden Leerstrings in Text übernommen
Dim strText As String
Dim rngZelle As Range
For Each rngZelle In rngZellen.Cells
With rngZelle
If .Text "" Or (.Text = "" And bolLeer = True) Then
strText = strText & IIf(strText = "", "", strSep) & .Text
End If
End With
Next rngZelle
rngTarget.Range("A1").Value = strText
End Sub