Select Case-Anweisung HILFE

[Tom-ey]

Code: Alles auswählen

sub Notenwerte
Select Case iAntwort
Case "1+" "1" "1-" 
sText = "sehr gut"
Case "2+" "2" "2-" 
sText = "gut"
Case "3+" "3" "3-" 
sText = "befriedigend"
Case "4+" "4"  
sText = "ausreichend"
Case "5+" "5" "5-" 
sText = "mangelhaft"
Case "6+" "6" "6-" 
sText = "ungenuegend"
Case Else
sText = ""
End Select

End Sub

So schauts bisher unter OO BAsic in Calc aus...dies soll jedoch funktionieren für das Tabellenblatt "DATA" und die Felder B5:Z21

In den Feldern steht halt 4+ 6- 1 usw....wie mach ich es jedoch das da ausreichend ungenügend sehr gut steht? Geht das mit Case Anweisung? Und wenn ja wie?

Danke

[Toxitom]

Bitte nicht doppelt Posten!

Gleich Frage - und eine Antwort siehe hier: viewtopic.php?f=18&t=15587

Gruss
Thomas