MergeIntoFirstCell: Unterschied zwischen den Versionen

Aus Thomas Wiki
Zur Navigation springen Zur Suche springen
(Erstellt)
 
K
 
Zeile 29: Zeile 29:
End Sub
End Sub
</pre>
</pre>
[[Kategorie:Excel]]
[[Kategorie:VBA]]

Aktuelle Version vom 25. April 2018, 12:41 Uhr

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