Makro erweitern
29.07.2008 13:47:00
Holger
Hab vom Kollegen ein Makro bekommen, welches noch erweitert werden soll. Wie kann ich das am besten machen? Danke schon mal.
Sub gruppieren()
Dim Zeile As Long, ws As Worksheet
Set ws = ActiveSheet
On Error Resume Next
With ws
.Range(.Rows(1), Rows(275)).Ungroup
For Zeile = 1 To 275
If Application.WorksheetFunction.Sum(.Range(.Cells(Zeile, 12), _
.Cells(Zeile, 12))) = 0 Then
.Rows(Zeile).Group
End If
Next
End With
End Sub
Dieser Teil läuft wunderbar - ergänzt werden solltes es nun um den Bereich:
.Range(.Rows(300), Rows(400)).Ungroup
For Zeile = 300 To 400
If Application.WorksheetFunction.Sum(.Range(.Cells(Zeile, 16), _
.Cells(Zeile, 16))) = 0 Then
.Rows(Zeile).Group