Gruppierung
16.10.2008 12:33:00
Tim
Ich benötige eure Hilfe - ich habe folgendes Makro zur Gruppierung:
Sub gruppieren()
Dim Zeile As Long, ws As Worksheet
Set ws = ActiveSheet
On Error Resume Next
With ws
.Range(.Rows(50), Rows(120)).Ungroup
For Zeile = 50 To 120
If Application.WorksheetFunction.Sum(.Range(.Cells(Zeile, 9), _
.Cells(Zeile, 10))) = 0 Then
.Rows(Zeile).Group
End If
Next
End With
End Sub
Soweit so gut. Nun habe ich folgendes Problem. Es kann vorkommen, dass in 9 etwas steht und in 10 nicht oder umgekehrt. Wenn also nicht beide Spalten Angaben enthalten soll es wie jeweils 0 behandelt werden und enstprechend guppiert werden.
Wie muss das Makro dann umgeschrieben werden?
Danke.