Für Spezialisten
18.09.2003 11:15:11
Stefan
wenn jetzt a1 bis a10 alles 1er sind werden diese markiert und gruppiert.
und jetzt kommt das problem! wie kann ich nun das makro an der stelle weitermachen lassen an der es aufgehört hat? in meinem fall fängt es wieder bei A1 an
danke für die hilfe
Sub ZeilenMarkierenUndGruppieren()
Dim rng As Range
Dim iRow As Integer, iRowL As Integer
iRowL = Cells.Find(what:="1", after:=Range("A1"), _
searchorder:=xlByRows, searchdirection:=xlPrevious).Row
For iRow = 1 To iRowL
If WorksheetFunction.CountA(Rows(iRow)) > 0 Then
If rng Is Nothing Then
Set rng = Rows(iRow)
Else
Set rng = Union(rng, Rows(iRow))
End If
End If
Next iRow
rng.Select
Selection.Rows.Group
iRowL = Cells.Find(what:="2", after:=Range("A1"), _
searchorder:=xlByRows, searchdirection:=xlPrevious).Row
For iRow = 1 To iRowL
If WorksheetFunction.CountA(Rows(iRow)) > 0 Then
If rng Is Nothing Then
Set rng = Rows(iRow)
Else
Set rng = Union(rng, Rows(iRow))
End If
End If
Next iRow
rng.Select
Selection.Rows.Group
End Sub