Gruppierungsebene feststellen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Holger, hallo Uwe,
zunächst Danke für Eure Antworten die zeigen, dass ich nicht genug Infos geliefert habe.
Also konkret habe ich eine Tabelle mit vier Gliederungsebenenen innerhalb der Zeilen bei 2 Spalten.
Bsp. Zeile 1: Hauptebene
Zeile 2: Oberebene
Zeile 3: mittlere Ebene
Zeile 4: Detailebene
Zeile 4 kommt dann n mal vor, bis wieder eine neue mittlere Ebene erscheint ...
Nur für die Detailebene sollen in Spalte 2 Werte eingegeben werden.
Da diese Werte mit einem Makro gefüllt werden sollen, möchte ich im Makro eine Schleife einbauen, wobei bei jeder Zeile gefragt wird, ob die Zeile zur Detailebene gehört. Nur dann wird dort ein Wert eingetragen.
Ich hatte an eine Syntax in der Art: If "Grouplevel" = 4 then
wobei ich eben den Befehl zur Abfrage der Gruppierungstiefe nicht kenne (vielleicht gibt es ihn auch nicht (?)).
Falls Ihr mir helfen könnt, wäre ich sehr dankbar.
Gruss aus Köln
erwin

Hallo, Erwin,
Deine Ergänzungen deuten schon ein Mal an, wohin die Rechnung gehen soll. Jedoch wäre es weeiter hilfreich, wenn Du die Ar der Datenquelle bzw. wie die Daten an die Prozedur übergeben werden, mitgeteilt hättest - vielleicht an Hand einer kleinen Beispieldatei.
So bleibt mir im ersten Anlauf nur Versuch, in dem ich annehme, dass die Daten sequentiell aus einem Datenvektor gelesen werden. Simuliert habe ich diesen Fall durch die Vorbelegung des eindimensionalen Datenfeldes inData, welches ich im ersten Teil der Prozedur fülle.


Sub FillRecords()
Dim inData() As String
Dim maxRecs As Integer, Level As Integer
Dim r As Long
maxRecs = 20 * 4 ' je Datensatz 4 Ebenen
ReDim inData(maxRecs)
'Datenfeldvorbelegung
'enthält "portionierte" Indexberechnung index = 4 * (rec - 1) + i
For rec = 1 To maxRecs / 4
For Level = 1 To 4
inData(4 * (rec - 1) + Level) = "Data(Rec=" & Mid(Str(rec), 2) & ";DE" & Level & ")"
Next Level
Next rec
Columns("B:C").Clear
'Berechnung der Zeile aus dem DatenFeldIndex rec
' r = RowInSheet = 4 + ((Int(rec / 4))) * 5 + Level-1
For rec = 1 To maxRecs
r = 3 + ((Int(rec / 4))) * 5
For Level = 1 To 4
Cells(r + Level, 2) = inData(rec - 1 + Level)
Next
rec = rec + 3
Next
'Berechnung der Zeile aus dem 'Level'
For rec = 1 To maxRecs
Level = rec - 4 * Int((rec - 1) / 4)
RecNr = Int((rec - 1) / 4) + 1
r = 3 + (RecNr - 1) * 5 + Level
Cells(r, 3) = inData(rec)
Next
'Levelbereichnung aus der zufällig gewählten Zelle-Zeile
Randomize
r = Int(Rnd * r)
Cells(r, 1).Select
r = ActiveCell.Row
Level = (r - 3) - 5 * Int((r - 3) / 5)
If Level < 1 Then
MsgBox "Keine Detailebene"
Else
MsgBox "DetailEbene Level" & Level
End If
End Sub

Ob Du hier etwas findest, was Du in Dein Projekt einbauen kannst, vermag ich nicht zu sagen, da es bestimmt auch noch andere Gesichtspunkte geben kann.
Gruß,
Uwe

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread