for each mit select case ersetzen - fehler

Hallo,
per VBA sollen bei ca. 600 Zeilen in 16 Gruppen gruppiert werde.
1 Gruppe = z.b. alle Felder mit "1." vorne oder "2.".
Ich denke mal per Select Case ist die Laufzeit deutlich kürzer als mit for each...
oder dauert gruppieren allg. so lange?
Code:

Sub gruppieren()
Dim rngZelle As Range
For Each rngZelle In Worksheets("PM").UsedRange
If Left(rngZelle.Value, 2) = "1." Then
rngZelle.Select
Selection.Rows.Group
Selection.Rows.Hidden = True
ElseIf Left(rngZelle.Value, 2) = "2." Then
rngZelle.Select
Selection.Rows.Group
Selection.Rows.Hidden = True
ElseIf Left(rngZelle.Value, 2) = "3." Then
rngZelle.Select
Selection.Rows.Group
Selection.Rows.Hidden = True
ElseIf Left(rngZelle.Value, 2) = "4." Then
rngZelle.Select
Selection.Rows.Group
Selection.Rows.Hidden = True
end if
next rngzelle

Warum funktioniert folgender Code nicht?
Fehler an der Stelle: Selection.Rows.Group - Die Groupmethode konnte nicht ausgeführt werden

For Each rngZelle In Worksheets("PM").UsedRange
Select Case rngZelle.Value
Case Left(rngZelle.Value, 2) = "1."
rngZelle.Select
Selection.Rows.Group
Selection.Rows.Hidden = True
Case Left(rngZelle.Value, 2) = "2."
rngZelle.Select
Selection.Rows.Group
Selection.Rows.Hidden = True
Case Left(rngZelle.Value, 2) = "3."
rngZelle.Select
Selection.Rows.Group
Selection.Rows.Hidden = True
Case Left(rngZelle.Value, 2) = "4."
rngZelle.Select
Selection.Rows.Group
Selection.Rows.Hidden = True
Case Else
End Select
Next rngZelle
End Sub

Danke für Hilfe!
Gruß Alex

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub gruppieren() Dim rngZelle As Range For Each rngZelle In Worksheets("PM").UsedRange If Left(rngZelle.Value, 2) = "1." Or _ Left(rngZelle.Value, 2) = "2." Or _ Left(rngZelle.Value, 2) = "3." Or _ Left(rngZelle.Value, 2) = "4." Then rngZelle.Rows.Hidden = True End If Next rngZelle

Hi
Select Case ist nicht schneller als IF THEN, nur je nach Bedinungsfall übersichtlicher zu programmieren.
in deinem Fall bietet sich das Select Case gerade zu an:

For Each rngZelle In Worksheets("PM").UsedRange
Select Case Left(rngZelle, 2).Value
Case "1.", "2.", "3.", "4.", "5."
rngZelle.Rows.Group
rngZelle.EntireRow.Hidden = True
Case Else
End Select
Next

die Frage ist obs wirklich notwendig ist die Zelle Schleife über alle Zellen des benutzten Bereichs laufen zu lassen.
normalerweise stehen solche Grupperungsrelevanten Daten in einer Spalte so dass es wahrscheinlich ausreichen würde, die Schleife über diese Spalte laufen zu lassen.
Wenn du schon Gruppierst, dann brauchst du nicht jede Zelle gruppierte Zelle einzeln auszublenden, es reicht aus, wenn du dir am Schluss nur die oberste Ebene der Gruppierung anzeigen lässt, dann werden alle gruppierten Zeilen unsichtbar.
das machst du dann mit diesem Code:

ActiveSheet.Outline.ShowLevels RowLevels:=1

Gruß Daniel

Beliebteste Forumthreads (12 Monate)

for each mit select case ersetzen - fehler

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread