Wahlweise können Formeln oder manuelle Eingaben in einer Zelle stehen. Doch wenn Formeln durch Eingaben überschrieben werden, verschwindet die Formel und beim Löschen der Eingabe wird die Formel nicht automatisch neu gesetzt. Bis jetzt…

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
‚Andreas Thehos, 2014
Dim Zelle As Range
Dim a As Variant
Dim Zeilenzahl As Long
Zeilenzahl = WorksheetFunction.Max(ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row, _
ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row)

For Each Zelle In ActiveSheet.Range(„B2:B“ & Zeilenzahl)
a = Zelle.Offset(0, -1).Value
If a = „“ Or IsNumeric(a) = False Then
Zelle.Value = „“
Else
If Zelle.Value = „“ Then Zelle.Formula = „=RC[-1]*0.05“
End If

Next Zelle
End Sub

Link zum Video:
Videolink: http://youtu.be/ApnKNK1Lv7A