MergeIntoFirstCell

Aus Thomas Wiki
Zur Navigation springen Zur Suche springen

Das Makro verkettet alle Texte einer Auswahl und schreibt die Verkettung in die erste Zelle der Auswahl.

Sub MergeIntoFirstCell()
'
' 1. Zusammenführen des Textinhaltes einer Auswahl in der ersten Zelle der Auswahl.
' 2. Löschen aller anderen Zellen
'

  Dim CFirst As Object
  Dim tmpMergedStr As String

  Set CFirst = Selection.Cells(1, 1)

  tmpMergedStr = ""
  For Each C In Selection
        tmpMergedStr = tmpMergedStr + C.Text
          C.Value = ""
  Next

  CFirst.Value = "'" + tmpMergedStr

  With CFirst
        .HorizontalAlignment = xlGeneral
        .WrapText = False
        .ShrinkToFit = False
  End With

End Sub