Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zellen zeilenweise verbinden

Gruppe

Bereich

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