Formatierung nach Messagebox mit Komma Zeichen
04.09.2008 09:51:38
Heiderer
Folgende Ausgangssituation: Beim Öffnen meines Excel-Sheets soll eine Messagebox aufscheinen, wo ich einen Betrag heineinschreibe, welcher ein Komma enthält (z.B. 500,58). Dieser Betrag soll nach Betätigen der Enter-Taste in eine bestimme Zelle hineingeschrieben werden (mit Euro-Zeichen). An und für sich tut er mir das auch. Nur muss ich statt dem Komma (ich tippe rechts auf meiner Tastur beim Tastaturblock) immer einen Punkt (links auf der Tastatur) tippen, sonst übernimmt er statt 500,58 nur 500,58. Die Formatierung danach haut einfach nicht hin. Hier mein VBA-Code:
Private Sub Workbook_Open()
Dim gewinn As Variant
Dim prozent As Variant
Dim messagebox As Byte
Dim wert As Variant
wert = InputBox("Bitte neuen Wert eingeben:", "Eingabeaufforderung © by Biggi & Tommy" _
_
_
_
)
If wert = "" Then
Exit Sub
End If
Range("d3").Value = wert
gewinn = Range("d5").Value
prozent = Range("f5").Value
If gewinn > Range("d8").Value Then
messagebox = MsgBox("Neuer höchster Gewinn, Tommy!", vbInformation, "Achtung! _
_
_
_
© by Biggi")
Range("d8").Value = gewinn
Range("d10").Value = "am " & Date
End If
If prozent > Range("f8").Value Then
messagebox = MsgBox("Neuer höchster Prozentwert, Tommy!", vbInformation, "Achtung! _
_
_
_
© by Biggi")
Range("f8").Value = prozent
Range("f10").Value = "am " & Date
End If
End Sub
Ich hoffe, dass mir jemand weiterhelfen kann.
Anzeige