Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Werte von jeweils zwei Zeilen verbinden
Gruppe
Zelle
Problem
Wie kann ich die Werte von zwei aufeinanderfolgenden Zeile zu einem neuen, gemeinsamen Wert verbinden?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain Sub ZellenVerbinden() Dim iRow As Integer, iCounter As Integer, iRowL As Integer Application.ScreenUpdating = False iRowL = Cells(Rows.Count, 1).End(xlUp).Row For iCounter = 1 To iRowL Step 2 iRow = iRow + 1 Cells(iRow, 2) = Cells(iCounter, 1) & _ " - " & Cells(iCounter + 1, 1) Next iCounter Columns(1).Delete Columns(1).AutoFit End Sub