Office: (Office 365) VBA Zahlen als Währung einfügen

Hallo Zusammen, brauche eure Hilfe

Habe eine Datei im Anhang, habe ein wenig schon angefangen mit VBA weiss leider nicht mehr weiter.

Ich möchte das wenn ich auf einfügen drücke das die werte als Währung eingefügt werden in den entsprechenden Zellen.

Range("B5") = KücheZahl
Range("B6") = PizzaZahl
Range("B7") = KaffeZahl
Range("B8") = MineralZahl
Range("B9") = BierZahl
Range("B10") = WeinZahl
Range("B11") = SpirituosenZahl

Term. 1 und Term 2 soll die beide Addieren und in zelle C16 einfügen
Term. 1 Post und Term. 2 Post auch Addieren und in Zelle C17 einfügen.

Soory aber habe sehr wenig Erfahrung mit VBA.

Vielen dank im voraus

 

Hallo,

so baut man das nicht auf. Wenn man mit EDV arbeiten möchte, sollte man nicht "in Papier" denken. Daten erfasst man in einer Datenliste, dann kann man immer noch eine Datenausgabe aufbauen, die so aussieht, wie deine "Liste".

 

Hallo,

dazu musst du den Inhalt deiner Textfelder umwandeln in Währungsbeträge, zB. wie folgt:
Range("B5") = CCur(KücheZahl)
Range("B6") = CCur(PizzaZahl)
Range("B7") = CCur(KaffeZahl)
Range("B8") = CCur(MineralZahl)
Range("B9") = CCur(BierZahl)
Range("B10") = CCur(WeinZahl)
Range("B11") = CCur(SpirituosenZahl)
usw.
wobei die einzelnen Zeilen eigentlich die Kurzschreibweise zB. von
ActiveSheet.Range("B5").Value= CCur(KücheZahl.Value)
usw. sind.

 

Halle Exl121150

Super funktioniert danke dir, hast du die Datei angeschaut jetzt habe ich ja noch
das mit

Term. 1 und Term 2 soll die beide Addieren und in zelle C16 einfügen und
Term. 1 Post und Term. 2 Post auch Addieren und in Zelle C17 einfügen.

Lieben Dank im Voraus

 

Hallo,

sollte das etwa ein Problem sein? Ich habe dir jetzt die 2 Extrazeilen angefügt:
Range("B5") = CCur(KücheZahl)
Range("B6") = CCur(PizzaZahl)
Range("B7") = CCur(KaffeZahl)
Range("B8") = CCur(MineralZahl)
Range("B9") = CCur(BierZahl)
Range("B10") = CCur(WeinZahl)
Range("B11") = CCur(SpirituosenZahl)
'
Range("C16") = CCur(TextBox5) + CCur(TextBox7)
Range("C17") = CCur(TextBox6) + CCur(TextBox8)

Hinweisen möchte ich, dass du in den Zellen C16 und C17 das benutzerdefinierte Format
"Fr." #.##0,00
gespeichert hast und entsprechend wird der ermittelte Betrag mit einem führenden "Fr." angezeigt.

 

Super Danke danke

So noch eine letzte frage:

Wenn Ich jetzt auf dem UserForm noch das Resultat live haben will von den
B5+B6+B7+B8+B9+B10+B11 auf einem neuen Box (SummeZahl)
ist das noch machbar


danke im voraus

 

Hallo,

ich habe jetzt die Felder der Userform direkt an die Zellen '1'!B4:B11 gebunden.
Ferner habe ich wunschgemäß ein Feld "SummeZahl" in die Userform eingefügt, in die vorgenannte Zellen summiert werden.

Datei liegt bei als "*.xlsm"-Datei.

 

Hallo Exl121150

Super viel Lieben Dank für deine Hilfe.

Hab ausprobiert funktioniert einwandfrei.
Habe noch ein paar kleine sachen hinzugefügt aber TIP TOP

freundliche Grüsse