Bestimmte Zeilen mit Loop Gruppieren

Sub ZeilenGruppieren() Dim s As String Dim e As String Dim n As Integer n = ActiveSheet.UsedRange.Rows.Count Range("A:A").Select Selection.Find(What:="*1. Erlöse aus Pflegesatz").Select Do Until ActiveCell.Value = "" <---- muss hier was mit n passieren? ActiveCell.Offset(1, 0).Select s = ActiveCell.Address Do Until ActiveCell.Value = "" And ActiveCell.Interior.ColorIndex = 55 ActiveCell.Offset(1, 0).Select Loop <---- oder muss hier was mit n passieren? e = ActiveCell.Offset(-1, 0).Address Range(s, e).Rows.Group Range(e).Offset(1, 0).Select Loop End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Chrizzi,
dir ist klar, dass n bisher nicht benutzt wird und die Schleifen solange durchlaufen wdn until(=bis) die aktuell ausgewählte Zelle leer ist und mit Farbe lt Index55 gefüllt ist (innere Schleife)?! Wenn dann die Folgezeilenzelle ebenfalls leer ist, wird auch die äußere Schleife verlassen. Das Ganze sollte eigentlich mit den Zeilen des UsedRange korrespondieren!? Anderenfalls könnte die äußere Schleife auch als For laufvariable To n ... Next laufvariable -Schleife geschrieben wdn oder ein Zeilenzähler läuft in der äußeren Schleife mit und wird in der Bedingung abgefragt. Außerdem gäbe es noch eine Möglichkeit ohne n:

For Each z in ActiveSheet.UsedRange.Cells(1,1)

Dabei muss z als Range deklariert und in der äußeren Schleife anstelle von ActiveCell benutzt wdn. Gruß Luc :-?

Hi Luc,
wenn auch verspätet bedanke ich mich für Deine Unterstützung. Meine Lösung für die o.g. Aufgabenstellung habe ich prinzipiell anders gelöst; konnte Deinen Tipp jedoch aufgreifen. Das ganze sieht nun so aus, die ausführende Aktion bezieht sich dabei auf das Summieren - ist aber für das Gruppieren genauso anwendbar:


Sub ZeilenSummieren()
Application.Screenupdating = False
Dim s As Variant
Dim e As Variant
Dim iMax As Integer
Dim jMax As Integer
iMax = ActiveSheet.UsedRange.Rows.Count - 6
jMax = ActiveSheet.UsedRange.Columns.Count
For j = 3 To jMax
If j = jMax Then
'Call ErrorLog
For i = 15 To iMax
s = Cells(i, j).Address
Do Until Cells(i, j).Interior.ColorIndex = 17 Or Cells(i, j).Interior.ColorIndex = 55
i = i + 1
Loop
e = Cells(i - 1, 3).Address
Cells(i, j).Formula = "=Sum(" & s & ":" & e & ")"
Next i
Next j
'Call ErrorLog()
'Dies wir die Korrekturschleife, da Zirkelbezüge infolge von 2 und 3
'aufeinanderfolgenden grauen Zellen vorkommen
'Dazu benötige ich die Summen aus den Variablen der anderen Syntax
Application.Screenupdating = True
End Sub

Sobald ich das Problem der Gruppierung in eine Syntax gegossen habe, schicke ich Dir die funktionierende Syntax zu. Momentan ist das für mich nicht so dringend. Entschuldige bitte die verspätete Antwort. Viele Grüsse und nochmals vielen Dank.
Chrizzi

Beliebteste Forumthreads (12 Monate)

Bestimmte Zeilen mit Loop Gruppieren

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread