Gruppe
Feature
Bereich
Gültigkeit
Thema
Textlänge in einer Spalte auf 40 Zeichen begrenzen
Problem
Die Textlänge in Spalte A ist über Menü DATEN / GÜLTIGKEIT auf 40 Zeichen begrenzt worden.
Lösung
Darstellung nur anhand einer Beispielarbeitsmappe möglich.
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