Hallo liebe excel-freaks,
ich habe ein einfaches makro geschrieben. Es soll an einer TabellenPosition vier Zeilen einfügen, diese dann in einer bestimmten Zelle mit einem Buchstaben ausfüllen und am Ende der Tabelle wieder vier Zeilen löschen. Das war bis hier hin alles kein Problem! Geschrieben hatte ich es für die Zelle B1. Nun möchte ich aber, dass das Makro an einer beliebigen Stelle innerhalb der Tabelle, die durch die aktuelle Cursorposition definiert ist, ausgeführt wird. Hat jemand eine Idee, wie diese variablen Positionen im Makro zu benennen sind.
Sub vierZeilen()
'
' vierZeilen Makro
' Fügt vier Zeilen ein, füllt in Spalte B in den neuen Zeilen "r" aus und löscht am Ende der Tabelle vier Zeilen.
'
' Tastenkombination: Strg+Umschalt+V
'
Range("A4:AG7").Select
Selection.Copy
Selection.Insert Shift:=xlDown
Range("B4").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "r"
Range("B5").Select
ActiveCell.FormulaR1C1 = "r"
Range("B6").Select
ActiveCell.FormulaR1C1 = "r"
Range("B7").Select
ActiveCell.FormulaR1C1 = "r"
Range("A6:A7").Select
Selection.AutoFill Destination:=Range("A6:A106"), Type:=xlFillDefault
Range("A6:A106").Select
Rows("103:106").Select
Selection.Delete Shift:=xlUp
Range("B4").Select
End Sub••••ˇˇˇˇ
Danke und liebe Grüße aus Stuttgart
Thomas