Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Textinhalte zusammenfügen

Gruppe

Bearbeiten

Problem

Mit dem Shortcut Strg+a sollen die in Spalte A ausgewählen Zellinhalt in Zelle B1 durch ein Komma getrennt verkettet werden.

Lösung
Geben Sie den Code in ein Standardmodul ein und weisen Sie ihn einem ShortCut zu.

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