Gruppe
Allgemein
Bereich
Zeichenfolge
Thema
Zellinhalte vor dem Verbinden der Zellen zusammenfassen
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