Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Sub Verbinden()
   Dim rng As Range
   Dim var As Variant
   Dim iCounter As Integer
   Select Case ActiveSheet.Buttons(Application.Caller).Caption
      Case "Verbinden mit Zeilenumbruch"
         var = vbLf
      Case "Verbinden mit Leerzeichen"
         var = " "
      Case "Verbinden mit Komma"
         var = ","
   End Select
   For Each rng In Range("A1").CurrentRegion.Columns(1).Cells
      rng.Value = rng.Value & var & _
         rng.Offset(0, 1).Value & var & _
         rng.Offset(0, 2).Value
      rng.WrapText = True
      Application.DisplayAlerts = False
      Range(rng, rng.Offset(0, 2)).Merge
      Application.DisplayAlerts = True
   Next rng
End Sub

    

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