VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Textinhalte zusammenfügen

Gruppe

Allgemein

Bereich

Bearbeiten

Thema

Textinhalte zusammenfügen

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Bearbeiten