Makro seit heute defekt
20.02.2017 12:32:28
Alex
ich erstelle per Command Button eine neues Worksheet.
Auf dieser Seite wird direkt mittels VBA-Code ein Command Button eingebaut und mit Code hinterlegt.
Hat bis heute super geklappt.
Seit heute morgen wird der Command Button zwar angelegt, aber ohne entsprechenden Code im Arbeitsblatt...
Einer Idee, woran es liegt?
Sub Button_erzeugen()
Dim oCB As Object
Dim WS As Worksheet
Dim sCode As String
On Error GoTo errExit
Set WS = Worksheets("Druckseite")
Set oCB = WS.OLEObjects.Add("Forms.CommandButton.1")
With oCB
.PrintObject = False
.Object.Caption = "Drucken"
.Object.FontBold = True
.Object.Font.Size = 16
.Top = 30
.Left = 650
.Height = 60
.Width = 130
End With
sCode = "Private Sub CommandButton1_Click()" & vbCrLf & _
"MSgbox ""Bitte wählen Sie nur den Drucker aus und verändern Sie keine Eintellungen!"", _
vbexclamation, ""Drucken"" " & vbCrLf & _
"Call VBADrucken" & vbCrLf & _
"End Sub"
ThisWorkbook.VBProject.VBComponents(WS.CodeName).CodeModule.AddFromString sCode
MsgBox "Bitte benutzen Sie den Druck-Button um zu drucken!", vbExclamation, "Drucken"
Exit Sub
errExit:
If Err.Number = 1004 Then
MsgBox ("Bitte aktivieren Sie den Zugriff auf das VBA Pojektmodell unter: Datei -> Optionen -> _
Trust Center -> Einstellungen für das Trust Center -> Makroeinstellungen -> Zugriff auf das VBA Projektmodell vertrauen")
Application.Goto reference:=Worksheets("PM").Range("A2")
Application.DisplayAlerts = False
ActiveWorkbook.Unprotect Password:=PassKey
Worksheets("Druckseite").Delete
ActiveWorkbook.Protect Password:=PassKey
Application.DisplayAlerts = True
End If
End Sub
Besten Dank und Gruß,Alex