Ich habe folgendes Problem. In einer Zelle D6 will ich einen beliebigen Zahlenwert eingeben sollte einen bestimmten CommandButton löschen. Leider funktioniert es nicht, wenn ich in der Zelle einen Wert z.b. 1234 eingebe.
Folgenden Code habe ich unter Arbeitsmappe hinterlegt.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$6" Then
If Len(Target) > 0 Then
On Error Resume Next
CommandButton1.Delete
End If
End If
End Sub
https://www.herber.de/bbs/user/64961.xls
Wer kann mir weiterhelfen. Ich jetzt schon für die Hilfe und Bemühungen.
Freundliche Grüsse
René Hürzeler