Office: Text Box

Hallo Leute
Habe in der Tabelle die Zahl 0.70 in der User Form Textbox wird aber nur 0.7 angegeben möchte aber das die Zahl 0.70 erscheint.
Meine Formel:
Private Sub TextBox5_Change()
Cells(1, 1).Value = Val(TextBox5.Value)
End Sub
Vieln Dank
Hene

 

Hallo Hene,

0,70 ist von der Mathematik her betrachtet, falsch. Da gibt es keine führenden oder abschließenden Nullen, wozu auch? Weil es schöner aussieht?

 

Hallo Hene,

falscher code
Ich vermute
TextBox5.Value=Cells(1, 1).Text

 

Hi Hene,

in deinem Beitag widersprichst du dir: du schreibst, dass du den Wert in der TextBox richtig anzeigen willst, dein Code sagt jedoch, dass du den Imhalt der TextBox in der Zelle richtig darstellen willst...

Benutze NumberFormat bzw. Format.
Wenn du den Inhalt der TextBox in die Zelle übertragen willst dann so:

Code:

Cells(1, 1) = Val(TextBox5)
Cells(1, 1).NumberFormat = "0.00"

Oder wenn du den Zellinhalt in der TextBox anzeigen willst dann so:

Code:

    TextBox5 = Format(Cells(1, 1), "0.00")

---

 

Hallo liebe Leute
Entschuldigung das ich so spät antworte war verhindert.
Vielen Dank für den Code fuktioniert super.
Habe noch eine Frage: hier der Code:
Private Sub CommandButton2_Click()
Me.PrintForm
End Sub
So kann ich die User form ausdrucken der Ausdruck der User Form ist beim A4 Blatt rechts oben. Kann ich mit einem Code
die User Form Oben in der mitte vom blatt ausdrucken.
Vielen Dank
Hene

 

Moin!

Zur Frage ohne ?:
Nein, das geht nicht.
Warum willst Du überhaupt ein Userform ausdrucken?

Fragt sich Ralf

 

Hi,

hast du mal versucht, denn Druckbereich anders zu setzen, sodass die Seite bereits weiter in der Mitte endet?

---

 

Hallo zusammen
Mit dem Druckbereich funktioniert es nicht. Weiss nicht ob es eine Lösung gibt.

 

Moin hene,
meine Idee zum Thema ist ungetestet, nicht auscodiert, bietet Dir aber eine ziemlich grausliche Lösung.

Wissend, dass XL per SendKey (und mit anderen Methoden) Screenshots in die Zwischenablage schicken kann, XL dann per Shellbefehl Scripts startet und diese z.B. von IrfanView ausgeführt werden können (denn so habe ich vor Jahren mal den zugeschnittenen Screenshot einer Website nach XL geholt LOL), könntest Du Deine USF als Bild an IrfanView schicken und dort mit einer ini-Datei für den Druck beliebig zuschneiden und positionieren.

Gleich versprochen: das wird eine Sch...-Fummelei mit etlichen erfolglosen Testdrucken und null Garantie, dass dieses Konstrukt auf allen PCs funktioniert (Thema Bildschirmauflösung und Seitenverhältnis und so)

Dann freuen sich auch die Nutzer, die gerne mal 'ne USF auf Papier sehen.

Falls Du das auf diesem Weg realisieren willst, lass wissen.

Grüße

 

Hallo Leute
Habe noch eine Frage das mit dem Ausdruck ist Ok. Habe eine Comand Button in der Userform.Leider ist das Bild quer. Kann ich das bild Senkrecht einfügen. Siehe Bild. Vielen Dank

 

Moin hene,
nachdem Du leider nicht verrätst, wie Du das Bild einfügst (nur XL, externes Programm), wird es schwer, eine Lösung zu finden. Lass mehr wissen...
Grüße

 

Man könnte natürlich auch einfach vor dem Laden das Bild selbst drehen, z.B. mit "Windows-Fotoanzeige".

 

Hallo dr Bastler
Hier der Code:
Private Sub CommandButton3_Click()
CommandButton3.Picture = LoadPicture("C:\Users\Hene\Desktop\Scan.jpg")
End Sub

Viel Dank
Gruss hene

 

Dreh das Bild, bevor Du es in die USF einfügst. Dann aber doch noch 'ne Frage, hene:
wie kann man mit XL/VBA Userforms erstellen, die aussehen wie Kassenbons eines Supermarktes ...?
fragt sich ...

 

Hallo dr Bastler das Bild habe ich schon gedreht geht aber nicht es ist immer Quer. Der Kassenbon habe ich nur als Test verwendt.