Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Gruppierung | Herbers Excel-Forum


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!