Automatisches Gruppieren - VBA
15.08.2016 14:40:48
Micha
ich benutze dieses Forum zum ersten Mal, deswegen bitte ich höflichst darum Fehler in der Handhabung zu verzeihen.
Ich habe einen sehr großen Excel-Datensatz mit Einträgen für Kalenderwochen
Bsp. von 116 (1. KW 2016) - 5216. Die KW's stehen in Spalte S
Da die Werte wie 116 mehrfach auftauchen, möchte ich alle Einträge der jeweiligen KW per VBA gruppieren.
Dazu habe ich angefangen nachfolgendes Programm zu schreiben.
Sub Gruppieren()
Dim Zelle As Range, wks As Worksheet
Dim x As Integer
Dim y As Integer
Set wks = ActiveSheet
For x = 1 To 52 Step 1
With wks
For Each Zelle In .Range(.Cells(2, 19), .Cells(.Rows.Count, 19).End(xlUp))
If Zelle.Value = x & 16 Then
Zelle.Rows.Group
End If
Next
End With
Next x
End Sub
Die Schleifenfunktion ist aber nicht korrekt. Das Programm gruppiert nun alle Einträge von 116 - 5216.Im nächsten Schritt würde ich gerne die 16 durch eine weitere Laufvariable ersetzen, die dann z.B. von 14 bis 16 zählt um das Prozedere für mehrere Jahre machen zu können.
Ich hoffe ihr/Sie könnt mir weiterhelfen und bedanke mich im Voraus.
Grüße