Dim Marke As String
 
  Select Case Preisgruppe
 
    Case "a"
      Marke = "MarkeX"
 
    Case "b"
      Marke = "MarkeY"
 
    Case "c"
      Marke = "MarkeZ"
 
    ' usw.
    ' ...
 
  End Select
 
  MsgBox Marke

Gruss,

Zardoz