Gruppe
Allgemein
Problem
Wenn ich Zellen verbinde, gehen die Zellinhalte der Folgezellen verloren. Wie kann ich das verhindern?
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