[NM-Himself]

Hallo Thomas,

keine Eile ist immer gut

Ich zeig dir mal kurz, was ich im Programmcode habe:

Code:

Select Case Trim(Liste(2, 0) & "")
        Case "4B": sAR = "Wahlpflichtfächergruppe ---"
        Case "4M": sAR = "Wahlpflichtfächergruppe M"
        Case "4H": sAR = "Wahlpflichtfächergruppe H"
        Case "4": sAR = ""
        Case "3B": sAR = "Wahlpflichtfächergruppe ---"
        Case "3M": sAR = "Wahlpflichtfächergruppe M"
        Case "3H": sAR = "Wahlpflichtfächergruppe H"
        Case "3": sAR = ""
        Case "2": sAR = ""
        Case "2BK": sAR = ""
     End Select

 
Der Inhalt von "sAR" wird dann gedruckt. Die Einstellungen habe ich so von anderen WS übernommen. Schreib, was anders sein sollte und ich pflege das dann ein.

Gruß
Stephan