Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zellinhalte über VBA verbinden

Gruppe

Zelle

Problem

Wie kann ich in Spalte A markierte Zellinhalte mit den jeweils rechts davon liegenden Zellinhalten vereinen?

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

StandardModule: modMain

Sub Vereinen()
  Dim Rng As Range
  For Each Rng In Selection
    Rng.Offset(0, 2) = Rng & ";" & Rng.Offset(0, 1)
  Next Rng
  Columns("A:B").Delete
  Columns("A").AutoFit
End Sub