Betrifft: Gruppierung
von: Tim
Geschrieben am: 16.10.2008 12:33:05
Mahlzeit zusammen!
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.
Betrifft: AW: Gruppierung
von: Rudi Maintaire
Geschrieben am: 16.10.2008 12:38:05
Hallo,
If Application.WorksheetFunction.Count(.Range(.Cells(Zeile, 9), _ .Cells(Zeile, 10))) <2 Then
Gruß
Rudi
Betrifft: AW: Gruppierung
von: Tim
Geschrieben am: 16.10.2008 12:44:34
Habe die zwei Zeilen ausgetauscht. Danach wird leider gar nicht mehr gruppiert.
Betrifft: AW: Gruppierung
von: Tim
Geschrieben am: 16.10.2008 14:03:59
Hmmm, also vielleicht ist die Fragestellung nicht deutlich genug.
Zum Beispiel Zeile 50 - Spalte I =10 und Spalte J = 5
Zum Beispiel Zeile 51 - Spalte I =0 und Spalte J = 5 - diese Zeile muss dann gruppiert werden
Zum Beispiel Zeile 52 - Spalte I =10 und Spalte J = 0 - diese Zeile muss dann gruppiert werden
Bitte um eure Hilfe. Danke