Gruppieren mit VBA
25.02.2004 17:07:10
christo
Ich möchte mittels einer VBA Funktion Zeilen Gruppieren!
Sub gruppieren (byval bereich1 as Range, byval bereich2 as Range )
'mit bereich2 soll immer die actuelle Zeile makiert werden
Dim i as Integer, iCount as Integer, rCount as Integer, aRow as Integer
iCount = bereich1.count
rCount = 0
aRow = bereich2.row
For i=aRow to iCount
if bereich1.item(i, 1) <> "Marke" then
'gruppiere von Zeile aRow bis i
i = iCount
else
if bereich2.item(i,1) <> "" then
rCount = rCount + 1
else
endif
endif
Next i
end
Sub
Also so in die Richtung soll es gehen, das soll aber nur ein Bespielcode sein um mein Anliegen ein wenig zuverdeutlichen. Ich habe bis jetzt noch nichts im Netz gefunden, vielleicht hat ja jmd eine schlaue Idee.
Danke
Gruß Christo