Office: wechsel aus dem Entwurfsmodus nicht mehr möglich

Hallo ich habe drei buttons kreeirt die ich über VBA ansteuere und jeder was anderes tun soll. Mein Problem ist nun das seit Neuerstem (ich hab nichts an der Excel wissentlich geändert ausser Daten eingeben und das mach ich schon seit Monaten) nicht mehr auf die Buttons klicken kann weil dann folgende Fehlermeldung kommt:

"wechsel aus dem Entwurfsmodus nicht möglich, da das Steuerelement ' CommandButton1 ' nicht erstellt werden kann

Verstehe die Fehlermeldung nicht da die ja schon erstellt sind, übrigens wenn ich auf ein einen anderen Button klicken will dann kommt die gleiche Meldung nur mit 'CommandButton2' etc..

meine Frage ist nun.. gibt es eine möglichkeit eine andere "klick" Methode zu nehmen oder woran liegt es das das jetzt auf einmal nicht mehr funktioniert?

Hier die Drei Codes der Buttons:


Private Sub CommandButton1_Click()
Dim lngErste As Long
With Worksheets("Münzen1")
lngErste = IIf(IsEmpty(.Cells(.Rows.Count, 2)), .Cells(.Rows.Count, 2).End(xlUp).Row, .Rows.Count) + 1
.Cells(lngErste, 1) = Worksheets("Münzen").Range("H4").Value
.Cells(lngErste, 2) = Worksheets("Münzen").Range("E5").Value
.Cells(lngErste, 3) = Worksheets("Münzen").Range("H5").Value
.Cells(lngErste, 4) = Worksheets("Münzen").Range("I5").Value
.Cells(lngErste, 5) = Worksheets("Münzen").Range("K5").Value
End With
End Sub

Private Sub CommandButton2_Click()
ActiveWorkbook.RefreshAll
End Sub


Private Sub CommandButton3_Click()
Dim lngErste As Long
lngErste = Columns(1).Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
If lngErste < 20 Then lngErste = 20
Range("A4").Copy
Cells(lngErste, 1).PasteSpecial Paste:=xlValues
Range("D7").Copy
Cells(lngErste, 2).PasteSpecial Paste:=xlValues
Range("D9").Copy
Cells(lngErste, 3).PasteSpecial Paste:=xlValues
Range("D11").Copy
Cells(lngErste, 4).PasteSpecial Paste:=xlValues
Range("D10").Copy
Cells(lngErste, 6).PasteSpecial Paste:=xlValues
Range("A3").Copy
Cells(lngErste, 5).PasteSpecial Paste:=xlValues




Application.CutCopyMode = False


Range("A1").Select




End Sub


-------------------------------------------------------
edit:

hab folgendes geändert und nun nur noch ein problem:


hab neue schaltflächen eingebaut und bin nun nicht mehr auf commandbutton sondern schaltflächen ohne active x umgestiegen
code sieht so aus

Sub Schaltfläche1_Klicken()

ActiveWorkbook.RefreshAll

End Sub
Sub Schaltfläche2_Klicken()
Dim lngErste As Long
lngErste = Columns(1).Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
If lngErste < 20 Then lngErste = 20
Range("A4").Copy
Cells(lngErste, 1).PasteSpecial Paste:=xlValues
Range("D7").Copy
Cells(lngErste, 2).PasteSpecial Paste:=xlValues
Range("D9").Copy
Cells(lngErste, 3).PasteSpecial Paste:=xlValues
Range("D11").Copy
Cells(lngErste, 4).PasteSpecial Paste:=xlValues
Range("D10").Copy
Cells(lngErste, 6).PasteSpecial Paste:=xlValues
Range("A3").Copy
Cells(lngErste, 5).PasteSpecial Paste:=xlValues




Application.CutCopyMode = False


Range("A1").Select

End Sub


das funktioniert nun auch

was leider nicht funktioniert ist wenn ich eine Schaltfläche in Tabelle 3 erstelle (sie heisst in dem Fall Schaltfläche 186)


Sub Schaltfläche186_Klicken()
Dim lngErste As Long
With Worksheets("Münzen1")
lngErste = IIf(IsEmpty(.Cells(.Rows.Count, 2)), .Cells(.Rows.Count, 2).End(xlUp).Row, .Rows.Count) + 1
.Cells(lngErste, 1) = Worksheets("Münzen").Range("H4").Value
.Cells(lngErste, 2) = Worksheets("Münzen").Range("E5").Value
.Cells(lngErste, 3) = Worksheets("Münzen").Range("H5").Value
.Cells(lngErste, 4) = Worksheets("Münzen").Range("I5").Value
.Cells(lngErste, 5) = Worksheets("Münzen").Range("K5").Value
End With
End Sub

wenn ich nun diese schalftfläche betätige bekomme ich einen debugging fehler in der ersten .cells Zeile?! weis wer warum? hab am code nichts geändert und der hat vorher auch funktioniert. Weiters is die frage ob es einen Unterschied macht ob die Codes in einem modul "gespeichert" werden oder ob sie direkt in der tabelle sein müssen (beides funktioniert bei letzter Schaltfläche nicht)

Danke für eure Hilfe

:)

 

Hallo,

in Januar scheint ein MS Office Patch einiges zerhauen zu haben.

Habe ebenfalls die gleiche Fehlermeldung, jedoch bisher keinen richtigen Lösungsansatz gefunden.

Wir haben verschieden Rechnern, an dem die hier ( http://www.borncity.com/blog/2014/12...-excel-makros/) beschriebe Lösung hilft. Insofern, dass die Makros sich ausführen lassen - die oben beschrieben FM kommt nicht.

Haben aber ebenso einige Rechnern, an dem die obige FM aufkommt.

Lösungsvorschläge sind herzlichst willkommen! Danke!

 

Schau mal unter
http://www.ms-office-forum.net/forum...=317080&page=3
Meinen Hinweis #45.

Das sollte helfen