Textboxen Währung, zwei Nachkomma und tausenderpun
20.01.2018 15:03:52
S.
bin absolute VBA Anfängerin schlage mich Dank euren Beiträgen irgendwie durch und konnte mir insbesondere über dieses Forum etwas Hintergrundwissen aneignen. Nun habe ich ein Problem. Ich glaube es lässt sich ganz einfach lösen. Habe alles mögliche probiert, aber es funktioniert einfach nicht wie ich es gerne hätte. Für euch bestimmt mit Links erledigt.
In meinem Exceldokument habe ich einen Autofilter eingebaut.
In Spalte N sind die Einzelpreise des ersten Lieferanten-Angebots gelistet.
In Spalte T die Einzelpreise des zweiten Lieferanten-Angebots usw.
1. ich filtere meine Tabelle also nach einem bestimmten Suchbegriff/Produkt/Produktgruppe
2. Daraufhin klicke ich auf einen CommandButton
3. Es öffnet sich eine Userform mit mehreren Textboxen
In den ersten 8 Textboxen (links) werden die Lieferanten-Namen ausgelesen.
Rechtsdaneben in den Textboxen 9-16 wird die dazugehörigen Summe der gefilterten Daten aus Spalte N, T usw.)
Dazu verwende ich folgenden Befehl:
Private Sub UserForm_Initialize()
Dim vret As Variant
vret = Application.Subtotal(9, Range("N5:N4000"))
TextBox9.Text = vret
vret = Application.Subtotal(9, Range("T5:T4000"))
TextBox10.Text = vret
End Sub
Nun werden aber entweder ganze Zahlen (ohne Nachkommastelle) oder je nach Ergebnis mit zwei oder drei Nachkomastellen angezeigt.
Ich hätte gerne grundsätzlich immer zwei Nachkomastellen, auch wenn dies im Ergebniss ,00 Euro ist.
Und dann hätte ich gerne unbedingt den Tausenderpunkt und das -Währungszeichen.
Ich habe wirklich ALLES mögliche versucht aber es funzt einfach nicht.
Was mache ich da bloß nur falsch?
Ich wäre euch sehr dankbar, wenn mir jemand weiterhelfen könnte.
Ganz liebe Grüße
Sebi