automatisches gruppieren
14.01.2008 11:57:18
Emma
ich hole mit Daten dynamisch aus einer Datenbank und möchte diese nun automtisch gruppieren
mein Code sieht im Moment so aus:
Sub gruppe()
Dim i1 As Integer, i2 As Integer
Application.ScreenUpdating = False
For i1 = 2 To 250
For i2 = i1 + 1 To 250
If Cells(i1, 1) = Cells(i2, 1) Then
Range("i1:i2").Select
End If
Next
Selection.Rows.Group
Next
End Sub
Leider funtioniert er nicht und ich finde einfach nicht den Fehler .
Danke schon im voraus
(ich weiß es gibt die doppelte Datensätze löschen Funktion aber da habe ich nicht diese 'Ausklappbalken an der Seite' und eine Pivottabelle möchte ich auch ungern verwenden)