ich habe eine Frage bezüglich der Anwendung vom Befehls ClearContents.
Es soll geprüft werden, ob in bestimmten Zellen ein Inhalt vorhanden ist. Ist das der Fall, so soll VBA den Befehl ClearContents ausführen.
Sind diese Zellen jedoch leer, so soll eine MsgBox eine Fehlermeldung ausgeben.
Ich habe es mit folgendem Code probiert:
---------------------------------
Sub ClearContent_Click()
If Worksheets("Data Input").Range("C4:C6, C8:C10, B22, C23,C27:C31, B18:M18") = "" Then
MsgBox "Nothing to delete"
Else: Worksheets("Data Input").Range("C4:C6, C8:C10, B22, C23,C27:C31, B18:M18").ClearContents
End If
----------------------
Leider bekomme ich hier nur die Fehlermeldung "Laufzeitfehler '13' Typen unverträglichkeit.
Wer kann mir sagen, wo der Fehler liegt?