AW: Letzte Spalte einer Gruppierung ermitteln
10.11.2014 10:26:50
fcs
Hallo Marcus,
lege für die Zellen in Zeile 1, in deren Spalte das -/+ Symbol der Gliederung angezeigt wird, jeweils einen Namen fest.
Über den Namen der Zelle kann man die Einfügespalte ermitteln.
Gruß
Franz
Sub NachGruppe1()
Dim SpaCopy As Long, SpaLetzte As Long, intGroupLevel As Integer
Dim ZelleGruppe As Range
Set ZelleGruppe = ActiveSheet.Range("SumGruppe1") 'Zelle in Summenspalte der Gliederung
intGroupLevel = ZelleGruppe.EntireColumn.Offset(0, -1).OutlineLevel
SpaCopy = 14 'Spalte, die kopiert/ausgeschnitten werden soll
With ActiveSheet
.Columns(SpaCopy).Copy 'Spalte wird kopiert und der Gliederung hinzugefügt
' .Columns(SpaCopy).Cut 'Spalte wird ausgeschnitten und der Gliederung hinzugefügt
End With
ZelleGruppe.EntireColumn.Insert
Application.CutCopyMode = False
ZelleGruppe.EntireColumn.Offset(0, -1).OutlineLevel = intGroupLevel
End Sub