Gruppe
Allgemein
Problem
Spaltentexte aus C:D sollen zusammengefaßt und Spalte D neu belegt werden.
StandardModule: basMain
Sub Editieren()
Dim iRow As Integer, iRowL As Integer
Application.ScreenUpdating = False
iRowL = Cells(Rows.Count, 3).End(xlUp).Row
For iRow = 2 To iRowL
Cells(iRow, 3) = Cells(iRow, 3) & " - " & Cells(iRow, 4)
Next iRow
Range(Cells(2, 4), Cells(iRowL, 4)).Value = "489-610"
Columns.AutoFit
Application.ScreenUpdating = True
End Sub