Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
16.04.2024 16:47:14
Wörter in verschiedenen Zellen suchen und Wert zurückgeben
16.04.2024 16:22:58
Pivot
16.04.2024 15:29:29
Notizen einheitliche Position, Formatierung per Bezugsspalte
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
232to236
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
232to236
232to236
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Format in Inputbox

Format in Inputbox
20.03.2003 19:46:39
REgina
Hallo Zusammen,

Ich habe ein Problem in einer Inputbox wird eine Summe angefordert, die dann in die Zelle H3 geschrieben wird .

sie soll aber im Format mit Tausenderpunkt und 2 Dezimalstellen und Währungsformat € angezeigt werden.

neuAS = InputBox("Geben sie bitte den Anfangssaldo ein" & vbCr & "im Format #.###.000,00", "ANFANGSSALDO", 0#)

Klappt aber nicht????????????

Was stimmt nicht?????????

Danke im voraus
Gruß regina

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Format in Inputbox
20.03.2003 20:04:26
MRR

Hi Regina,
warum darf der User seine Zahl nicht eingeben, wie er will?
Du könntest dann beim rausschreiben den Kram machen.
[H3] = neuAS
[H3].NumberFormat = "#,##0.00"

Wäre das nicht schicker?
Matthias

Re: Format in Inputbox
20.03.2003 20:26:37
Regina

Hallo Matthias,

Die summe wird auch von den Usern so eingegeben wie sie wollen natürlich mit Komma 1234,56 aber in H3 erscheint linksbündig dann die Zahl aber so wie sie eingegeben wurde.

so sieht der Teilbereich aus:

range("H3").Select
neuAS = InputBox("Geben sie bitte den Anfangssaldo ein" & vbCr & "im Format #.###.000,00", "ANFANGSSALDO", 0#)

Selection.FormulaR1C1 = neuAS
range("H4").Select
neuES = InputBox("Geben sie bitte den Schlusssaldo ein" & vbCr & "Im Format #.###.000,00")

Selection.FormulaR1C1 = neuES
range("h3:h4").NumberFormat = " #,##0.00 €"


Kannst du mir sagen was da falsch ist?

Gruß Regina

Anzeige
Re: Format in Inputbox
20.03.2003 20:33:39
MRR

Ja - würde ich wie folgt machen:

Grund: So wie Du InputBox aufrufst, erhälst Du einen STRING zurück - und den kann man schlecht als Zahl behandeln. Wenn wir ihn aber erst in einen Gleitkommenwert "verwandeln" und dann formtieren, geht es.
Das könnte man sich "ersparen", wenn man
Application.InputBox verwendet - und dort das Type-Argument auf 1 (für "nur Zahlen sind erlaubt") setzt. (Näheres in der Onlinehilfe)

Soweit klar?
Dir einen schönen Abend!
Matthias

Vielen Dank!!!
20.03.2003 20:47:41
REgina

bn

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige