Hallo Leute,
ich habe dieses funktionierende Löschen-Makro

Option Explicit

Sub Löschen()
Dim strAntwort As String

strAntwort = MsgBox("Achtung: Das gesamte Tabellenblatt wird zurückgesetzt!", _
vbExclamation + vbOKCancel, "Hinweis")
If strAntwort = vbCancel Then Exit Sub 'Bei "Abbrechen" abbrechen.

With Application
.ScreenUpdating = False 'Bildschirmaktualisierung abschalten.
.EnableEvents = False 'Ereignissprozeduren deaktivieren.
.Calculation = xlCalculationManual
End With

With ActiveSheet
' .Unprotect
.Range("C5:H35").ClearContents
' .Range("K39").ClearContents
' .Range("K40").ClearContents
.Range("J5:J35").FormulaLocal = _
"=WENN(ISTNV(INDEX($R$8:$S$41;VERGLEICH($B5;$R$8:$R$41;0);2));"""";INDEX($R$8:$S$41;VERGLEICH($B5;$R$8:$R$41;0);2))"
' .Range("O40:P42").ClearContents
.Range("D37").FormulaLocal = _
"=WENN($L$37=$O$1;$L$37;$O$1)"
.Range("C5").Select
.Protect
End With
End Sub

In Spalte L steht folgende Formel: In L5 => =K5*24 in L6 => =K6*24 . . . usw. bis L35 => =K35*24.
Wenn ich jetzt den durch die Formel angezeigten Wert in L5 verändere, z.B. um 0,1, heißt dann die abgeänderte Formel in L5 => =K5*24 +0,01.
Starte ich nun das Löschen-Makro, bleibt immer noch der manuell hinzugefügte Wert stehen.

Wie könnte man das Makro ändern, dass auch diese der Formel hinzugefügten Werte gelöschten werden und nur die Formel stehen bleibt?

Gruß
mike49