Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zellen verbinden, ohne dass Werte verlorengehen

Gruppe

Bereich

Problem

Die Zellen aus Spalte A und B sollen verbunden werden, ohne dass die Werte aus Spalte B verlorengehen.

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

StandardModule: basMain

Sub Verbinden()
   Dim iRow As Integer
   iRow = 1
   Do Until IsEmpty(Cells(iRow, 1))
      Cells(iRow, 1) = Cells(iRow, 1) & " - " & Cells(iRow, 2)
      Cells(iRow, 2).ClearContents
      Range(Cells(iRow, 1), Cells(iRow, 2)).Merge
      iRow = iRow + 1
   Loop
   Columns(1).AutoFit
End Sub