Gruppe
Allgemein
Problem
Mit dem Shortcut Strg+a sollen die in Spalte A ausgewählen Zellinhalt in Zelle B1 durch ein Komma getrennt verkettet werden.
StandardModule: Modul1
Sub Verbinden()
Dim rng As Range
Dim sTxt As String
If ActiveCell.Column <> 1 Then Exit Sub
For Each rng In Selection
If sTxt = "" Then
sTxt = rng.Value
Else
sTxt = sTxt & "," & rng.Value
End If
Next rng
Range("B1").Value = sTxt
End Sub