|
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!
|