Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zellinhalte vor dem Verbinden der Zellen zusammenfassen

Gruppe

Zeichenfolge

Problem

Wenn ich Zellen verbinde, gehen die Zellinhalte der Folgezellen verloren. Wie kann ich das verhindern?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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