UserForm.Show
Heinz
Habe unteren Code, in den Sheets Jänner bis Dezember.
Es geht darum das bei einem PC in der Firma das "UserForm8.Show" nicht funktioniert.
Es öffnet sich also die UserForm8 nicht.
Haben überall die selbe Office Version raufgespielt.
Woran könnte es bitte liegen ?
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
UserForm8.Show
Me.ScrollArea = "$A$1:$AH$204"
Call SetZoom
If SchtPlNeu = True Then
Exit Sub
Else
ActiveSheet.Unprotect Password:="test"
Range("AH1").ColumnWidth = 31.57
Range("A1:AI183").Columns.AutoFit
ActiveWindow.ScrollRow = 1
ActiveSheet.Protect Password:="test"
End If
Application.ScreenUpdating = True
End Sub
GrußHeinz