Von Formular(Textfeld) nach Zelle (Zahlenfeld)
23.12.2003 16:57:21
Gert
habe folgendes Problem bei der Erstellung meines ersten grossen VBA-Projekts:
1. Im Formular gibt es ein Textfeld (txtJ1), in dem der Anwender Beträge eingeben soll.
2. Im Tabellenblatt gibt es ein Feld (4,2), dass diese Eingaben ausgeben soll.
An sich ganz normal, denke ich, aber wie kriege ich es hin, dass im Tabellenblatt die Zahl dargestellt wird wie 12.345.567,89 (rechtsbündig = Zahl) und nicht wie 1234567,89 (linksbündig = Text).
Nach dem Einfügen der Zahl erscheint immer wieder die Box mit "Text in Zahl umwandeln" und die autom. Summenbildung klappt nicht. Rechnen kann man aber schon mit der Zahl (z.B. multiplizieren)
Habe es versucht mit:
With Worksheets(1).Cells(4, 2)
.NumberFormat = "#,##0.00"
.HorizontalAlignment = xlRight
.Value = Me.txtJ1
End With
Anscheinend fehlt noch was...