AW: Drück mal Alt+F11 ...
27.03.2009 08:29:38
Jan_E
Sub Bestellref()
' Bestellref Makro
' Makro am 25.03.2009 aufgezeichnet
Cells.Select
With Selection.Font
.Name = "Arial"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
End With
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
Cells.EntireColumn.AutoFit
Columns("C:C").Select
Selection.EntireColumn.Hidden = True
Columns("F:K").Select
Selection.EntireColumn.Hidden = True
Range("L1").Select
ActiveCell.FormulaR1C1 = "Kommen"
Range("M1").Select
ActiveCell.FormulaR1C1 = "Kommten"
Range("L1").Select
ActiveCell.FormulaR1C1 = "Kommt Datum"
Range("N1").Select
ActiveCell.FormulaR1C1 = "Geht Datum"
Range("O1").Select
ActiveCell.FormulaR1C1 = "Gehen"
Columns("L:O").Select
Columns("L:O").EntireColumn.AutoFit
Columns("Q:R").Select
Selection.EntireColumn.Hidden = True
Columns("S:S").EntireColumn.AutoFit
Columns("S:S").EntireColumn.AutoFit
Columns("T:T").EntireColumn.AutoFit
Columns("U:V").Select
Selection.EntireColumn.Hidden = True
Cells.Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("L2") _
, Order2:=xlAscending, Key3:=Range("M2"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("M1").Select
ActiveCell.FormulaR1C1 = "Kommen"
Cells.Select
Selection.Sort Key1:=Range("D2"), Order1:=xlAscending, Key2:=Range("A2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
Cells.Select
Selection.Subtotal GroupBy:=4, Function:=xlSum, TotalList:=Array(16), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Range("A1").Select
ActiveSheet.Outline.ShowLevels RowLevels:=2
End Sub
Hier ist dein Makro..musste nur Alt+F11 drücken^.
Mfg
Jan_E