Zellenverbund auflösen auf usedrange
18.11.2014 13:36:44
Sparrow
würdet ihr mich eben den Code so umschreiben dass dieser nicht nur Spalte A durchläuft sondern die UsedRange des Tabellenblatts?
sorry - stehe gerade auf dem Schlauch!
Sub fuellen1()
Dim i As Long
Dim anzahl As Long
Application.ScreenUpdating = False
For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row
Range("A" & i).Select
With Selection
anzahl = .Count - 1
.MergeCells = False
Range("A" & i & ":A" & i + anzahl).Value = ActiveCell.Value
End With
i = i + anzahl
Next
Application.ScreenUpdating = True
End Sub
Vielen Dank
Sascha