VBA rundet ungewollt
08.05.2007 10:44:02
Sabine
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