Optionsfelder in Verbindung mit "case"
Otmar
da meine VBA-Kenntnisse getrost als nicht vorhanden eingestuft werden können, bitte ich um Hilfestellung bei folgendem Problem:
Über 4 Optionsfelder in einem Tabellenblatt mit dem Namen Eingabe möchte ich auswählen können, dass die Zahlen der Zellen E5 bis E20 desselben Tabellenblattes entweder mit 0, 1, 2, oder 3 Nachkommastellen dargestellt werden.
Möglicherweise sieht das Makro dann in etwa wie folgt aus:
Sub Nachkommastellen()
Select Case True
Case OptionButton1.Value: Range("E5:E20").Select
Selection.NumberFormat = "#,##0"
Case OptionButton2.Value: Range("E5:E20").Select
Selection.NumberFormat = "#,##0.0"
Case OptionButton3.Value: Range("E5:E20").Select
Selection.NumberFormat = "#,##0.00"
Case OptionButton4.Value: Range("E5:E20").Select
Selection.NumberFormat = "#,##0.000"
Case Else: MsgBox Fehler
End Select
End Sub
Leider läuft es in dieser Form nicht. Ich vermute mal, dass entweder irgendeine Definition vorab fehlt oder die Terminologie fehlerhaft ist.
Weiß jemand Rat ?