Gruppe
Allgemein
Problem
Wie kann ich die Werte von zwei aufeinanderfolgenden Zeile zu einem neuen, gemeinsamen Wert verbinden?
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