Meldung zu deaktiviertem CommandButton ausgeben

Hallo zusammen,
ich habe einem CommandButton ein Makro zugewiesen, welches beim Klicken Werte in einen anderen Bereich überträgt. Zudem soll der Button deaktiviert sein, falls bereits Werte in dem Bereich stehen - soweit so gut.
Nun stehe ich vor folgendem Problem: wenn der deaktivierte Button durch den Anwender erneut geklickt wird, poppt die Fehlermeldung "Laufzeitfehler 424: Objekt erforderlich" auf.
Wie kann ich diese Meldung unterdrücken? Viel lieber würde ich den Nutzer mit MsgBox darauf hinweisen, dass der Button deaktiviert ist.
Anbei mein Code:


Sub CommandButton1_Click()
If Worksheets("Test").Range("K4").Value And Worksheets("Test").Range("L4").Value  "" Then
MsgBox "Button deaktiviert"
CommandButton1.Enabled = False
Else
Worksheets("Test").Range("K4").Value = Worksheets("Test").Range("F4").Value
Worksheets("Test").Range("L4").Value = Worksheets("Test").Range("G4").Value
End If
End Sub

Vielen Dank im Voraus!
Gruß
Arni

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub CommandButton1_Click() If Range("K4").Value = "" And Range("L4").Value = "" Then Range("K4").Value = Range("F4").Value Range("L4").Value = Range("G4").Value CommandButton1.Enabled = False Else MsgBox "Button deaktiviert" End If End Sub

Besten Dank für die schnellen Reaktionen!
@Armin: Worksheets("") habe ich provisorisch eingebunden, da später die Werte in verschiedenen Tabellen stehen werden. Dennoch danke für den Hinweis.
Mit deinem vorgeschlagenen Code erhalte ich nun dieselbe Fehlermeldung wenn der Button erstmalig geklickt wird - hat das etwas damit zu tun, dass ich noch eine Bedingung für den aktiven Zustand definieren muss?
Zur Erläuterung wie ich es mir vorstelle:
Der Button soll beim Klicken die Werte in einen anderen Bereich übertragen. Ein erneutes Klicken soll verhindert werden und mit einer Meldung darauf hingewiesen werden, damit der Zielbereich nicht überschrieben wird. Ist der Zielbereich jedoch leer (der Nutzer kann diesen in einer anderen Funktion zurücksetzen), kann der Button erneut geklickt werden.
Gruß Arni

Sub CommandButton1_Click() If Range("K4").Value = "" And Range("L4").Value = "" Then Range("K4").Value = Range("F4").Value Range("L4").Value = Range("G4").Value Else MsgBox "Button deaktiviert" End If End Sub

Beliebteste Forumthreads (12 Monate)

Meldung zu deaktiviertem CommandButton ausgeben

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Meldung zu deaktiviertem CommandButton ausgeben

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread