Thema: Textlänge in einer Spalte auf 40 Zeichen begrenzen

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 Feature und Gültigkeit