Wieder eine leichte Frage: wie kann ich die ersten beiden Spalten aber davon alle verwendeten Reihen einer Range zuordnen?
Danke schon mal für die Antworten!
MfG,
Timo
Sub SpaltenBereich()
Dim r As Variant, c As Range, rngBereich As Range, i%
Set r = Range("A:B")
On Error GoTo Errorhandler
Set r = Application.Intersect(r, r.SpecialCells(xlCellTypeFormulas))
Set r = Application.Intersect(r, r.SpecialCells(xlCellTypeConstants))
On Error GoTo 0
If i < 2 Then
Set rngBereich = r
For Each c In r
Set rngBereich = Application.Union(rngBereich, _
Range("A" & c.Row & ":B" & c.Row))
Next c
MsgBox rngBereich.Address(0, 0)
End If
Exit Sub
Errorhandler:
i = i + 1
Resume Next
End Sub