Gruppe
Ereignis
Problem
Bei Eingabe eines "x" in Spalte B sollen die Abmessungen des jeweiligen Produkts aus dem Blatt Daten ausgelesen werden.
ClassModule: DieseArbeitsmappe
Private Sub Workbook_Open()
Select Case Application.StandardFontSize
Case 8, 9: ActiveWindow.Zoom = 120
Case 10, 11: ActiveWindow.Zoom = 100
Case 12, 14: ActiveWindow.Zoom = 80
End Select
End Sub