Gliederungsebenen
15.12.2016 09:56:09
Julia
habe unten stehenden Code, welcher mir zwar wunderbar funktioniert , aber die Gruppierungen auf Ebene 3 legen soll (da ich auf Ebene 2 schon die Wochen habe)
Excel vermischt mir alles auf Ebene 2 auch wenn ich die Makros getrennt voneinander ablaufen lasse!!!
Kann mir da jemand helfen?
Sub MonateGRUPPIEREN()
'Gruppieren innerhalb Spalten L-NN orientiert an Zeile 15, zwecks Ansichtssteuerung:
Dim Rnk As Range, rnk2 As Range, k As Range
Dim stkBegriff As Long
'Monate gruppieren
Set Rnk = Range("L15:NN15")
For stkBegriff = 1 To 12
If WorksheetFunction.CountIf(Rnk, stkBegriff) = 0 Then
Beep
MsgBox "Suchbegriff wurde nicht gefunden!"
Else
For Each k In Rnk.Cells
If k = stkBegriff Then
k.EntireColumn.Group
End If
Next k
End If
Next stkBegriff
End Sub