Makro in Excel
18.11.2004 13:50:16
Manuel
Ich habe folgedes Problem. Vielleicht kann mir ja einer weiterhelfen?!
Mit dem am Ende stehenden Makro möchte ich zusätzliche Spalten in ein bestehendes Blatt einfügen. Jetzt baut mir das Makro die Spalten aber immer ab Spalte "O" ein. Ich hätte es aber gerne immer hinter die letzte benutzte Spalte.
Vielleicht kennt einer eine Lösung
Vielen Dank
Manuel
Sub Neue_Aktivität()
' Neue_Aktivität Makro
' Zeilen für eine neue Veranstaltung/Aktivität werden automatisch erzeugt
' Tastenkombination: Strg+j
Range("O2").Select
ActiveCell.FormulaR1C1 = "angemeldet"
Range("P2").Select
ActiveCell.FormulaR1C1 = "Geld"
Range("Q2").Select
ActiveCell.FormulaR1C1 = "geantwortet"
Range("O1:Q1").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.UnMerge
ActiveCell.FormulaR1C1 = "Aktivität"
Range("O1:Q1").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Columns("O:P").Select
Range("O2").Activate
Selection.Columns.Group
End Sub