Betrifft: Gruppierung
von: Tim
Geschrieben am: 19.10.2008 08:56:21
Hallo.
Ich habe ein Problem bei der Gruppierung und mein Makro müsste umgeschrieben werden.
Wenn in Spalte 9 oder 10 jeweils eine Wert = 0 ist, dann soll diese ganze Zeile wie eine 0 Zeile behandelt werden. Ein Bsp. anbei.
https://www.herber.de/bbs/user/56107.xls
Vielen Dank für eure Hilfe.
Tim
Betrifft: AW: Gruppierung
von: Gerd L
Geschrieben am: 19.10.2008 10:03:27
Hallo Tim,
so?
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 .Cells(Zeile, 9) * Cells(Zeile, 10) = 0 Then .Rows(Zeile).Group End If Next End With End Sub
Gruß Gerd
Betrifft: AW: Gruppierung - Korrektur
von: Gerd L
Geschrieben am: 19.10.2008 10:11:02
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 .Cells(Zeile, 9) * .Cells(Zeile, 10) = 0 Then .Rows(Zeile).Group End If Next End With End Sub
Hallo Tim,
ein paar Dubbe (".") haben gefehlt, auch wenn dies beim ActiveSheet keine Auswirkung hätte.
Gruß Gerd
Betrifft: AW: Gruppierung - Korrektur
von: Tim
Geschrieben am: 19.10.2008 10:39:23
Hallo Gerd.
Ja, super. Genauso sollte es sein. Vielen Dank!