Anzeige
Archiv - Navigation
868to872
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
868to872
868to872
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA rundet ungewollt

VBA rundet ungewollt
08.05.2007 10:44:02
Sabine
Hallo VBA-Experten,
ich habe ein Rundungsproblem.
Es werden alle Beträge richtig angezeigt, bis auf die Überstundenvergütung, die wird gerundet.
z. B.
Steht in Zelle S19 11,76 dann gibt er in der Userform 12,00 aus.
Die Stundenvergütung 10,23, die in R19 steht gibt er aber richtig aus, nämlich mit 10,23.
Dim w As Integer
Dim MGehaltK As Variant
Dim MStdGehaltK As Variant
Dim MUEStdGehaltK As Variant
Select Case ComboBox1
Case "K1": w = 18
Case "K2": w = 19
Case "K3": w = 20
Case "K4": w = 21
Case "K5": w = 22
Case "K6": w = 23
Case "K7": w = 24
Case "K8": w = 25
End Select
Label7.Visible = False
Label8.Visible = False
'Wenn eine Vergütungsgruppe K? eingestellt ist
Select Case ComboBox1.ListIndex > 2 And ComboBox1.ListIndex < 27
'Gehalt nach Stufe ermitteln
Case ComboBox2.ListIndex > -1: MGehaltK = Sheets("Gehaltstabelle").Cells(w, (CInt(Right(ComboBox2, 2))) + 2) And _
ComboBox2.ListIndex > -1: MUEStdGehaltK = Sheets("Gehaltstabelle").Cells(w, 19) And _
ComboBox2.ListIndex > -1: MStdGehaltK = Sheets("Gehaltstabelle").Cells(w, 18)
'Monatsgehalt
Label10.Caption = Format(MGehaltK / 40 * TextBox5.Value, "##,##0.00")
'Jahresgehalt
Label12.Caption = Format(Label10.Caption * 12, "##,##0.00")
'Stundenvergütung = Zelle(w = Zeile siehe oben, Spalte 18 = R)
Label40.Caption = Format(MStdGehaltK, "##,##0.00")
'Überstundenvergütung = Zelle(w = Zeile siehe oben, Spalte 19 = O)
Label39.Caption = Format(MUEStdGehaltK, "##,##0.00")
Case ComboBox2.ListIndex = -1: MsgBox "Sie haben vergessen die Stufe auszuwählen"
End Select
End Sub
Kann mir jemand helfen?
Vielen Dank im Voraus
Sabine

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
  • 08.05.2007 13:12:00
    Sabine
Anzeige
gelöst
08.05.2007 13:12:00
Sabine
Hab ein wenig noch rumgespielt und es doch noch alleine hinbekommen. Es muss heißen:
'Gehalt nach Stufe ermitteln
Case ComboBox2.ListIndex > -1: MGehaltK = Sheets("Gehaltstabelle").Cells(w, (CInt(Right(ComboBox2, 2))) + 2)
MUEStdGehaltK = Sheets("Gehaltstabelle").Cells(w, 19)
MStdGehaltK = Sheets("Gehaltstabelle").Cells(w, 18)
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige