Zeilen selektieren und danach gruppieren via VBA

07/10/2009 - 13:34 von Volker Schmitt | Report spam
Hallo zusammen,

kenne mich leider nicht so sehr aus und bràchte wahrscheinlich nur
einen kleinen Tipp.
ich würde gerne bestimmte Zeilen selektieren und spàter gruppieren.
Durch eine Sortierung muss ich nur noch schauen von welcher Zeile bis
zu welcher Zeile in einer Spalte der Wert "1A" steht. Diese Zeilen
möchte ich dann Gruppieren... und das für das ganze Tabellenblatt.

Mein Code wàre dazu folgender:

Sub Gruppierung_erstellen2()

i = 1
While i < 65000
While Cells(i, 7) = "1A"
If Start = 1 Then
Anfang = Val(i)
Start = 2
End If
i = i + 1
Wend
Ende = Val(i)
Rows("Anfang" & ":" & "Ende").Select
Selection.Rows.Group
i = i + 1
Start = 1
Wend

End Sub

Ich bekomme aber immer die Fehlermeldung, das ich den falschen
Datentyp in der Zeile:
Rows("Anfang" & ":" & "Ende").Select
verwende.
Wo liegt denn der Fehler? Sind doch alles ganze Zahlen, oder?

Danke
Volker
 

Lesen sie die antworten

#1 Alexander Wolff
07/10/2009 - 14:14 | Warnen spam
Als <news:
ließ
Volker Schmitt verlautbaren, evtl. nachfolgend zitiert:

Rows("Anfang" & ":" & "Ende").Select


ist Unsinn. Was Du möchtest, ist

Rows(Anfang & ":" & Ende).Select
also ohne Anführungsstriche, die Deine Variablen zu Strings machten.

Rest nicht überprüft. Die Nicht-Verwendung von .Select nicht angeregt.
Moin+Gruss Alexander - MVP for MS Excel - www.xxcl.de - mso2000sp3 --7-2

Ähnliche fragen