HERBERS Excel-Forum - die Dialoge

Thema: Formatierung gemäß Optionsfeld

Home
Abbildung - Vor dem Eintrag
Vor dem Eintrag Abbildung - Nach dem Eintrag
Nach dem Eintrag
  • Prozedur: cmdEintragen_Click
  • Art: Ereignis
  • Modul: Klassenmodul der UserForm
  • Zweck: Formatierung gemäß Optionsfeld
  • Ablaufbeschreibung:
    • Variablendeklaration
    • Wenn 1. Optionsfeld aktiviert...
    • Zelle als Währung (gem. Systemsteuerung) mit 2 Nachkommastellen und Tausendertrennzeichen formatieren
    • Wenn 2. Optionsfeld aktiviert...
    • Zelle als Zahl mit 2 Nachkommastellen und Tausendertrennzeichen formatieren
    • Wenn 3. Optionsfeld aktiviert...
    • Zelle als Zahl ohn Nachkommastellen formatieren
    • Sonst...
    • Zelle als Prozent mit zwei Nachkommastellen formatieren
    • Den zu Double konvertierten TextBox-Wert an eine Variable übergeben
    • Wurde als Formatierung Prozent gewählt, den Variablenwert durch 100 dividieren
    • Variable in Zelle eintragen
  • Code:

    
    Private Sub cmdEintragen_Click()
      Dim dValue As Double
      If optWaehrung.Value = True Then
        Range("A1").NumberFormat = "#,##0.00 $"
      ElseIf optKolonne.Value = True Then
        Range("A1").NumberFormat = "#,##0.00"
      ElseIf optSingle.Value = True Then
        Range("A1").NumberFormat = "0"
      Else
        Range("A1").NumberFormat = "0.00%"
      End If
      dValue = CDbl(txtWert.Text)
      If optProzent.Value = True Then dValue = dValue / 100
      Range("A1") = dValue
    End Sub