VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zellinhalte über VBA verbinden

Gruppe

Allgemein

Bereich

Zelle

Thema

Zellinhalte über VBA verbinden

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Zelle