Private Sub Worksheet_Activate()
Dim Versions As Variant
Dim Typen As Variant
Dim ScaleI As Variant
Dim Unit As Variant
Dim Weight As Variant
Versions = Array("OIML R51 1996 (Old EU)", "OIML R51 2006 (New EU)", "NMIA (AU)", "NIST (US)")
Typen = Array("Post Scale", "Scale")
ScaleI = Array("Single", "Multi")
Unit = Array("g", "kg", "Lb")
Weight = Array(1000, 10000, 15000, 20000, 30000, 35000, 40000, 45000, 50000)
With Me.VersionBox
.Clear
.List = Versions
End With
With Me.TypeBox
.Clear
.List = Typen
End With
' If ScaleIntervalBox = "OIML R51 1996 (Old EU)" And TypeBox = "Y(a)" Then
' With Me.ScaleIntervalBox
' .Clear
' .List = ScaleI(1, 1)
' End With
With Me.UnitBox
.Clear
.List = Unit
End With
With Me.WeightBox
.Clear
.List = Weight
End With
End Sub