Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 12:28:32
Formelfehler aufgrund Einfügen einer Zeile
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
924to928
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
924to928
924to928
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Eurozeichen in Textbox

Eurozeichen in Textbox
18.11.2007 11:55:00
Larissa
Hallo,
Ich möchte in einer Textbox hinter dem Betrag das Eurozeichen anzeigen lassen.
Wenn ich dieses Modul benutze,

Private Sub TextBox5_Change()
If Len(Trim(TextBox5)) > 0 Then TextBox5 = TextBox5 & " €"
End Sub


Stehen mindestens 100 Eurozeichen hinter der Zahl. Weiß vielleicht jemand, woran das liegt?
Gruß,
Larissa

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eurozeichen in Textbox
18.11.2007 11:58:09
Hajo_Zi
Hallo Larissa,
benutze das Exit oder Enter Ereignis oder AfterUpdate

AW: Eurozeichen in Textbox
18.11.2007 12:11:45
Luschi
Hallo Larissa,
was soll das €-Zeichen in der Textbox; wenn Du mit der Zahl in der Textbox dann mal rechnen willst, macht das doch nur Probleme. Erstelle hinter der Textbox ein Label-Element und gib diesem als Caption-Eigenschaft das €-Zeichen. Damit weiß jeder User, das in die Textbox ein Zahlenwert eingetragen werden soll, der dem €-Betrag entspricht. Außerdem stelle ich in der Praxis immer wieder fest, daß solche nachträglichen Umformatierungen den User nur verunsichern.
So macht man das doch auch in jedem Papier-Formular.
Gruß von Luschi
aus klein-Paris

Anzeige
AW: Eurozeichen in Textbox
18.11.2007 12:25:36
Larissa
Danke für die Antworten,
Du hast Recht, Luschi. Das werde ich so machen.
Gruß,
Larissa

Bravo! oT
18.11.2007 15:11:00
Original
oT

AW: Eurozeichen in Textbox
18.11.2007 14:10:07
Daniel
Hi Larissa
nur nochmal zur Erläuterung, wo die vielen Euro-Zeichen herkommen (die beste Lösung hat Luschi ja schon auf gezeigt):
das Change-Event der Textbox wird jedesmal ausgelöst, sobald sich der Textinhalt ändert, dh. jedesmal sobald ein Zeichen zur Textbox hinzugefügt oder entfernt wird, wird dieses Makro ausgelöst, dabei spielt es keine Rolle, ob das Zeichen vom Anwender oder von einem anderen Makro kommt, dh. auch der Befehl:
TEXTBOX1.VALUE = "HALLO" startet das Makro TEXTBOX1_CHANGE, dh. dein Makro ruft sich in einer ewigen Schleife ständig selbst auf, solange bis VBA irgendwann automatisch abbricht.
Selbst wenn man dieses Selbstaufrufen unterbinden würde, hättest du das Problem, das jede Eingabe eines Zeichens das Change-Event auslöst. die Folge wäre, daß in der Textbox mindestens soviele Euro-Zeichen drinstehen wie Ziffern, weil du nicht prüftst, ob schon ein Eurozeichen drinsteht.
du müsstest dann noch folgende Prüfung einbauen:

if right(textbox5.value, 1)"€" then...


aber auch damit lassen sich dann unschöne Effekte erzeugen, so wie 1€2€3€
Gruß, Daniel

Anzeige
AW: Eurozeichen in Textbox
19.11.2007 01:06:00
Tino
Hallo Larissa,
verwende die Tag-Eigenschaft der Textbox um keine Endlosschleife zu bekommen.
Beim lesen der Textbox (sollte dieses Zeichen nicht gebraucht werden) lösche es mit
Replace.
Hier ein Beispiel:

Private Sub CommandButton1_Click()
Range("A1") = Replace(TextBox5, "€", "")’in A1 schreiben ohne €
End Sub
Private Sub TextBox5_Change()
If TextBox5.Tag  "1" Then ‘Prüfen der Tag Eigensch….
TextBox5.Tag = "1"
If Len(Trim(TextBox5)) > 0 Then TextBox5 = TextBox5 & " €"
End If
TextBox5.Tag = "" ‚zurücksetzen der Tag Eigensch…
End Sub


Gruss
Tino

Anzeige
AW: so könnte es gehen.
19.11.2007 09:13:48
Tino
Hallo Larissa,
jetzt habe ich nochmal darüber geschlafen.
Verwende auch Replace um in die Textbox zu schreiben!

Private Sub TextBox5_Change()
If TextBox5.Tag  "1" Then 'Prüfen der Tag Eigensch….
TextBox5.Tag = "1"
If Len(Trim(TextBox5)) > 0 Then TextBox5 = _
Replace(TextBox5, " €", "") & " €"
End If
TextBox5.Tag = "" 'zurücksetzen der Tag Eigensch…
End Sub


307 Forumthreads zu ähnlichen Themen

Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Anzeige
Zeichenkette in einer Zellesuchen
Gordon

Moin,
ich habe in einer Zelle (A1) einen Namen plus ein Datum dazu stehen: "Max Mustermann (01.01.1900)"
Nun möchte ich überprüfen, ob diese Zeichenkette, also Name plus Datum, nochmals in der Zelle A2 steht.
In der Zelle A2 stehen mehrere dieser Zeichenketten. Diese sind in einer...
26.09.2008 12:54:00
Thread-ID: 1012601
4 Beiträge
in spalte müssen 2 gleiche zahlen vorh. sein ...
Jessi

hallo zusammen,
suche nach einem makro, dass in spalte A überprüft ob von den dort geschriebenen zahlen jeweils zwei gleiche vorhanden sind. es geht um eine doppelbelegung eines zimmers. die zahl ist die zimmer-nr.
wäre z.b. nur einmal eine zahl in der spalte, wäre es möglich in das jew...
04.10.2008 15:33:00
Thread-ID: 1014154
5 Beiträge
Anzeige
Unicode-Zeichen in Textfeld von Userform
Userform

Hallo,
Ich bin auf der Suche nach gut praktikablen Möglichkeiten in ein Textfeld eines Userforms Unicode-Zeichen (z.B. ć kleines c mit Akut - Code 0107 oder č kleines c mit Caron - Code 010D) einzutippen.
Danke im voraus für alle Tipps!
Grüße
Günther
12.10.2008 12:34:00
Thread-ID: 1015836
5 Beiträge
Eine Zahl mit vorhandener Zahlenliste vergleichen
Niklas

Hallo Leute!
Es geht darum, eine eingegebene Zahl mit einer vorhandenen Zahlenliste vergleichen und die beiden nächstgelegenen Zahlen der Zahlenliste verwenden!
zur veranschaulichung:
ich habe die die zahlenliste : 1 , 2, 3, 4, 5, 6, 7
der eingegebene Wert ist z.B 1.5 dann soll...
17.10.2008 09:49:22
Thread-ID: 1017045
8 Beiträge
vorgegebene Summe aus Zahlen berechnen
mArsupiLami

Moin!
Ich benötige um regelmäßige Fehlerkorrekturen laufen zu lassen ein Script, dem ich eine Summe vorgebe und eine Range aus Zahlen (von mir aus Zellen A:A), das mir die Zusammenstellung aus Zahlen berechnet, die meine gesuchte Summe ergeben (Noch besser: Alle Kombinationen aus der Zahlen...
21.11.2008 11:25:35
Thread-ID: 1026668
6 Beiträge
Zelle des erstes Vorkommen eines Zeichens ausgeben
-s

Hallo Forum,
ich habe in Zeile 1 in jeder Spalte einen Buchsteben stehen:
a|b|c|c|c|e|
Wie kann ich die Zelle ausgeben lassen, in der beispielsweise das "c" das erste mal vorkommt? Als Ergebnis soll dann C1 ausgegeben werden.
Besten Dank!
-s
07.12.2008 21:32:00
Thread-ID: 1030929
4 Beiträge
Autofilter - Anzahl vorh. Sätze
KViertel

Hallo in die Runde,
In einem Tabellenblatt wird In VBA ein Autofilter gesetzt. Die dabei angezeigten Sätze sollen in ein anderes Tabellenblatt kopiert werden. Wenn jetzt keine Sätze vorhanden sind, wird die Sub abgebrochen. In der Recherche habe ich einen Hinweis zu Subtotal gefunden, weiß...
11.12.2008 11:45:00
Thread-ID: 1031999
3 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton Label

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
11
3
4
3
4
7
5
3
2
4
2
2
5
2
7
11
2
4
4
3
4
5
10
2