Hallo zusammen,

Habe eine Excel, in der in Zelle D6 ein Dropdownmenü eingefügt ist.

Nun wollte ich, dass die Zelleninhalte in den Zellen D9 und D10 gelöscht werden, sobald in D6 etwas anderes als "Freies Teil" steht. Also zum Beispiel eine beliebige Produktbezeichnung.

Hierfür habe ich folgenden Code geschrieben:

Private Sub Entfernen()
If Range("D6") <> "Freies Teil" Then
Range("D9,D10").Select
Selection.ClearContents
End If
End Sub

Allerdings bekomme ich beim Ausführen der Makro dann folgenden Fehler:

Laufzeitfehler '1004':

Anwendungs- oder objektdefinierter Fehler

Beim Debuggen erfolgt dann folgende Meldung:

Sub Entfernen()
'
' Entfernen Makro
'

'
    Range("D9").Select
    ActiveCell.FormulaR1C1 = "8" --> 
    Range("D10").Select
    ActiveCell.FormulaR1C1 = "9"
    Range("D8:G8").Select
End Sub

Bin leider ein totaler Anfänger und habe auch nach recherche nicht herausgefunden, wie man dieses "Problem" löst.

Vielen dank im Voraus!