Sub Main()
Dim oDoc As AssemblyDocument
oDoc = ThisApplication.ActiveDocument
Dim compDef As ComponentDefinition
compDef = oDoc.ComponentDefinition
Dim rep As LevelOfDetailRepresentation
If Anzahl_Schubladen = 1 Then
rep = compDef.RepresentationsManager.LevelOfDetailRepresentations.Item("Schublade_02_03_supressed")
rep.Activate(True)
Else If Anzahl_Schubladen = 2 Then
rep = compDef.RepresentationsManager.LevelOfDetailRepresentations.Item("Schublade_03_supressed")
rep.Activate(True)
Else If Anzahl_Schubladen = 3 Then
rep = compDef.RepresentationsManager.LevelOfDetailRepresentations.Item("NothingSuppressed")
rep.Activate(True)
End If
End Sub