Used Range beschränken
24.11.2014 13:52:58
Sparrow
Ich möchte gerne dass dieser Code die Used Range untersucht - allerdings nur bis Spalte S! Geht das irgendwie?
Sub VerbundzellenAuflösen()
Dim Zelle As Range
Dim Wert As Variant
For Each Zelle In ActiveSheet.UsedRange
If Zelle.MergeCells = True Then
With Zelle.MergeArea
Wert = .Cells(1, 1).Value
.MergeCells = False
.Value = Wert
End With
End If
Next
End Sub
Beste Grüße
Sascha