Function zweimal()
Application. Volatile
End Function
Sub zweimal_Makro()
Range ("C1") .Select
ActiveCell.FormulaR1C1 = "2x jährlich"
Rows ("2:2") .Select
Selection.Insert Shift:=xlDown
End Sub
Function zweimal()
Application. Volatile
End Function
Sub zweimal_Makro()
Range ("C1") .Select
ActiveCell.FormulaR1C1 = "2x jährlich"
Rows ("2:2") .Select
Selection.Insert Shift:=xlDown
End Sub