Gruppe
Allgemein
Bereich
Bereich
Thema
Zellen zeilenweise verbinden
Problem
Ausgewählte Zellen sollen Zeile für Zeile horizontal verbunden werden.
Lösung
Geben Sie den Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1
Sub Verbinden()
Dim iRow As Integer, iCol As Integer, iColL As Integer
If Selection.Columns.Count = 1 Then
Beep
MsgBox "Bitte mehr als eine Spalte auswählen!"
Exit Sub
End If
iCol = Selection.Column
iColL = Selection.Column + Selection.Columns.Count - 1
For iRow = Selection.Row To Selection.Row + Selection.Rows.Count - 1
Range(Cells(iRow, iCol), Cells(iRow, iColL)).Merge
Next iRow
End Sub