Schaltflächen werden nicht mehr angezeigt
Karsten
bei mir werden die Schaltflächen nicht mehr angezeigt bzw. aus der Formularleiste lassen sich auch keine neuen hinzufügen. Sie scheint deaktiviert zu sein. Ich weiß aber auch nicht, was ich verändert habe.
In DieseArbeitsmappe steht bei mir folgender code:
Private Sub Workbook_Open()
Call Spalte_A
Stundenplan
zu_Termine
ZeitInZelle
Dim objSheet As Worksheet
Dim objOLEObject As OLEObject
Dim lngIndex As Long
gblnInit = True
'For Each objSheet In ThisWorkbook.Worksheets
'For Each objOLEObject In objSheet.OLEObjects
' If TypeOf objOLEObject.Object Is MSForms.ComboBox Then
' With objOLEObject.Object
' .ListIndex = -1
' .Clear
' For lngIndex = 1 To 12
' .AddItem MonthName(lngIndex)
' Next
' End With
' End If
' Next
' Next
gblnInit = False
End Sub
Kann es damit zusammenhängen? Beim Öffnen der Mappe ist der Makro neuerdings bei:
'For Each objOLEObject In objSheet.OLEObjects
stehen geblieben.
Nun habe ich erst mal, wie oben zu sehen, einiges deaktiviert. Gibt es evt. da einen Zusammenhang?
Danke für eure Hilfe.
Gruß
Karsten
Anzeige