Habe eine komische Sache. In der Firma wurde gestern ein Windows Update eingespielt.
Nun bekomme ich den Fehler 424 "Objekt erforderlich"
Hier kommt nun bei CB_UF8.Visible = True den Fehler.
Komisch ist, ich habe noch KEIN Windows Update gemacht, auf meinen PC läuft das Programm Fehlerlos.
Hätte jemand eine Ahnung woran es liegen könnte?
Denke an den Einstellungen?
Gruß,Heinz
If ActiveWorkbook.Name ThisWorkbook.Name Then Exit Sub
'Call Auswertung2(ActiveSheet.Name)
Application.ScreenUpdating = False
If UserForm8.UserformActive("UserForm8") = True Then
If UserForm8.Visible = False Then
CB_UF8.Visible = True
CB_UF8.Activate
Else
CB_UF8.Visible = False
End If
Else
CB_UF8.Visible = False
Call GetUF8
End If
Call SetZoom
Call ColUnLock 'Formatierung aufheben
If SchtPlNeu = True Then
Exit Sub
Else
ActiveSheet.Unprotect Password:="vetro"
Range("C:AG").ColumnWidth = 5#
ActiveWindow.ScrollRow = 1
End If
ActiveSheet.Protect Password:="vetro", DrawingObjects:=False, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True
Application.ScreenUpdating = True
End Sub