Public Sub Formel_eintragen(Faktor As Single)
Dim Z As Range
For Each Z In Selection
If Z.Column = 12 Is Nothing Then '12te Spalte ist "L"
Z.FormulaR1C1 = "=RC18 * " & Faktor '18 ist "R", RC18 bedeutet in diese Zeile (R:Row) die 18te Spalte (C:Column)
End If
Next
Cells(Selection.SpecialCells(xlCellTypeLastCell).Row, "L").Select 'nächste Zelle nach selection
End Sub
Public Sub Formel_NullProzent()
'Im Arbeitsblatt, Alt+F8, Makro auswählen und bei "optionen..." Tastenkürzel legen
Formel_eintragen 1
End Sub
Public Sub Formel_10Prozent()
'Im Arbeitsblatt, Alt+F8, Makro auswählen und bei "optionen..." Tastenkürzel legen
Formel_eintragen 1.1
End Sub
Public Sub Formel_2einhalbProzent()
'Im Arbeitsblatt, Alt+F8, Makro auswählen und bei "optionen..." Tastenkürzel legen
Formel_eintragen 1.025
End Sub
VG
Public Sub Formel_eintragen(Faktor As Single)
Dim Z As Range
Dim R As Range
For Each Z In Selection.Cells
If Z.Column = 12 Then '12te Spalte ist "L"
Z.FormulaR1C1 = "=RC18 * " & Application.Text(Faktor, "[$-en-US]0.0000") '18 ist "R", RC18 bedeutet in diese Zeile (R:Row) die 18te Spalte (C:Column)
End If
Set R = Z
Next
If R.Column = 12 Then R.Offset(1, 0).Select 'nächste Zelle nach selection
End Sub
VG