Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
548to552
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
548to552
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

textbox multiplizieren und erg. in textbox eintrag

textbox multiplizieren und erg. in textbox eintrag
17.01.2005 15:33:01
roland
hier roland
ich will in zwei textboxen zahlen eintragen und diese dann multiplizieren
so dass das ergebniss in einer dritten tsxtbox erscheint.
zb b in text box 1 steht schon zahl5
ich schreibe in textbox2 ein zahl z b 4
dann sollte in textbox3 zahl 20 erscheinen wenn corsor noch der textbox2 oder wenn mit dem cursor die box verlasse.
bisher hatte ich einen commandbutton der das produkt in die textbox3 schreibt.
danke fuer die hilfe
gruss roland

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: textbox multiplizieren und erg. in textbox eintrag
Boris
Hi Roland,
nutze dazu das Change-Ereignis der Textbox.
Grüße Boris
So etwa...
RR 

Private Sub TextBox2_Change()
TextBox3.Value = textbox1.value * textbox2.value
End Sub

Gruß
RR
AW: So etwa...gut aber nicht ganz :.((
17.01.2005 18:02:11
roland
hi RR
danke das war schon mal hilfreich
es funkt wenn textbox2 ausfuelle
das sollte aber auch gehn wenn in textbox1 werte ändere dann wieder in textbox2
die boxen werden von einem andern sub aus wechselseitig gefuellt und sollten
dann immer in der textbox3 das ergebniss zeigen
danke fuer deine muehe
gruss roland
AW: So etwa...gut aber nicht ganz :.((
Boris
Hi Roland,
nix für Ungut - aber stimmt dein angegebener Level "VBA gut"?
Weise die gleiche Codezeile der 1. Textbox zu...
BTW: Für ne Ergebnisausgabe würde ich keine Textbox, sondern ein Label verwenden.
Zudem gehören da noch Fehlerbehandlungen mit rein, falls denn wirklich auch mal (versehentlich) Text eingegeben wird - ohne fliegt der der Code nämlich sofort ab...
Grüße Boris
Anzeige
AW: So etwa...gut aber nicht ganz :.((
roland
hier nochmal roland
level gibts nur kein vba oder gut :-((
mein level ist ein bisschen
das habe probiert mit beiden code in beiden textboxen
aber dann kommt laufzeitfehler ?
komme einfach nicht weiter so :.((
drum habe mal die mappe hochgeladen
https://www.herber.de/bbs/user/16247.xls
wäre nett wenn du dir das anschaust ..
danke ....hmm ev ...ne ganz triviale sache ...
gruss roland
ps bin erst gegen 22 ihr wieder am rechner
Der Casus Cnaxus....
Boris
Hi Roland,
...liegt darin, dass zu Beginn einer Eingabe die 2. Textbox leer ist - und eine Multiplikation mit einem Leerstring führt eben zu einem Fehler.
Ich hatte das heute im Laufe des Tages noch mit xl97 getestet - da wird das anscheinend noch verziehen. Aber jetzt - unter xl2000 - wird´s angemeckert.
Um das jetzt erstmal schnell zum Laufen zu bringen, kannst du die Holzhammer-Methode verwenden und den Fehler einfach unterdrücken:

Private Sub TextBox1_Change()
On Error Resume Next
TextBox3.Value = TextBox1.Value * TextBox2.Value
End Sub



Private Sub TextBox2_Change()
On Error Resume Next
TextBox3.Value = TextBox1.Value * TextBox2.Value
End Sub

Grüße Boris
Anzeige
AW: Der Casus Cnaxus....
17.01.2005 22:37:44
roland
oh danke ...irgendwie habe daran gedacht dass multiplizieren mit 0 eventuell nicht angenommen wird ,,,ich probier das gleich ...danke
im nachfolgenden code steht CDbl(TextBox3 was heisst denn das CDbl ?

Private Sub CommandButton1_Click()
If IsNumeric(TextBox2) And IsNumeric(TextBox3) Then _
TextBox4 = CDbl(TextBox2) * CDbl(TextBox3)
End Sub

hätte noch ein problem nicht fertig geloest:
wenn du dir das anschaust ,,,ich kan aber auch warten bis der bisherige beantworter das
nochmal anschaut.
es hadelt sich um den beitrag:
https://www.herber.de/forum/index.htm?https://www.herber.de/forum/messages/548303.html
und da der code: 

Private Sub chkBox()
Dim ctrl As Control
For Each ctrl In Me.Controls
If TypeOf ctrl Is MSForms.CheckBox Then
ctrl = False
End If
Next
End Sub

das ding soll die eingabe in checkboxen wieder ermoeglichen .
PS: in die checkboxen gelangen nur zahlen ...ueber andere prozeduren es kann kein text dahingelangen
aber ne abfrage und dann ne msgbox nur zahlen moeglich wäre ev doch sinnvoll
danke dir fuer die muehe
hmm.....ich suche jemanden der mir bei der weiterführung ....ev auch in vb.net oder VB
hilft ,,,gegen unkosten in dem fall jedoch im Rahmen,,:-((
ich weiss gar nciht ob die gegen die forumsregeln verstösst hmmm...in dem fall sorry!
danke dir fuer die hilfe ,,,so gehts jedenfalls weiter ...gruss roland
Anzeige
Umwandlungsfunktionen
Boris
Hi Roland,
im nachfolgenden code steht CDbl(TextBox3 was heisst denn das CDbl ?
CDbl ist eine der Umwandlungsfunktionen. In deinem Fall wird mit CDbl aus dem Text (einen solchen gibt nämlich - wie der Name bereits sagt - eine Textbox zurück) ein Datentyp erzeugt, der Fließkommazahlen mit doppelter Genauigkeit als 64-Bit-Zahlen im Wertebereich von -1.79769313486231E308 bis -4,94065645841247E-324 für negative Werte und von 4,94065645841247E-324 bis 1,79769313486232E308 für positive Werte enthält.
Das entspricht dem normalen Datentyp Double.
Diese Umwandlung ist eigentlich Zeichen guten Programmierstils, wenngleich auch ohne Typumwandlung einiges funktioniert (manches aber eben auch nicht).
Gib mal im VBA-Editor CDbl ein, Cursor drauf und F1 - da steht dann alles, was man braucht.
Den anderen Beitrag müsste ich mir erstmal in Ruhe anschauen - allerdings bist du da mit Josef an einen sehr kompetenten VBA-Crack geraten - er wird schon wieder auf das Posting reagieren.
Grüße Boris
Anzeige
AW: Umwandlungsfunktionen
17.01.2005 23:36:00
roland
ah ok...danke ....hatte in hilfe eingegeben aber nichts gefunden
vielen dank
das andere tread warte ich ab
gruss roland
Sepp hat dir noch geantwortet...oT
Boris

300 Forumthreads zu ähnlichen Themen

Cursor springt in die Pampa - MultiLine TextBox
Kilo

Hallo liebe VBA Profis
ich bin auf ein für mich nicht lösbares Problem - vielleicht sogar Phänomen gestoßen...
Leider kann ich keine Phänomene dieser Art gebrauchen.
Damit es für Sie etwas anschaulicher wird, hab ich mein Problem als Beispiel (https://www.herber.de/bbs/user/54427.xl...
07.08.2008 20:31:08
Thread-ID: 1000095
2 Beiträge
Anzeige
Cursor springt in Pampa (MultiLine TextBox)
Kilo

Hallo liebe VBA Profis
(Danke an Jürgen, der sich meines Problems annehmen wollte, aber der UpLoad meiner Datei war irgendwie fehlgeschlagen - hier der 2. Versuch)
ich bin auf ein für mich nicht lösbares Problem - vielleicht sogar Phänomen gestoßen...
Leider kann ich keine Phänomene...
11.08.2008 12:15:00
Thread-ID: 1000795
5 Beiträge
In derTextBox das Format ändern
edie

Hallo zusammen,
würde gerne, wenn es möglich wäre, das Datum in der TextBox im Format TT.MM.YYYY
zurückschreibe in die Zelle A1 im Format YYYY-MM-TT 00:00 z. B. 2008-07-01 00:00
Wenn es möglich ist dann wie?
Hat jemand eine Idee und kann weiter helfen?
Danke im Voraus.
...
13.08.2008 15:27:49
Thread-ID: 1001560
3 Beiträge
Anzeige
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Höhe einer Textbox nach Grafik ausrichten
TomTom

Hi,
ich habe eine Frage zur Ausrichtung einer Textbox: Ich habe auf meinem Sheet ein paar Textboxen (untereinender) die je nach Grösse und Inhalt zueinander in Höhe ausgerichtet werden (Makro)
Ganz unten im Sheet habe ich sowas , wie eine Fusszeile eingefügt, eine kleine Grafik (jpg, ei...
04.09.2008 11:19:00
Thread-ID: 1007335
5 Beiträge
Fokus in Textbox und Curser hinter Text
Reinhard

Hallo Wissende,
Autofilter "vergißt" einige Zeilen wenn mehr als 1000 unterschiedliche Listeneinträge da sind.
Deshalb bastelte ich mir folgenden Code. man hat im Blatt eine TextBox und eine Listbox. Je nach Eingabe in die Textbox erscheinen in der Listbox nur die Einträge die anfangs s...
12.09.2008 12:14:38
Thread-ID: 1009326
6 Beiträge
Externen Datensatz in TextBox einfügen
Wolfgang

Hallo,
Nachdem ich Ihr mir schon einmal sehr geholfen habt, versuche ich es noch einmal:
Ein Datensatz wird aus einer Datenbank (keine Access-Datenbank) ins Clipboard kopiert, danach in Excel eine UserForm mit einer TextBox geöffnet, die den Datensatz aufnehmen und danach an ein Excel-T...
19.09.2008 16:28:23
Thread-ID: 1011092
8 Beiträge
Druckerauswahl in TextBox 'auslagern'
Henner

Hi,
ich drucke (erzeuge) in meiner Mappe über den folgenden Code (ein PDF File):
Sub Print() Application.ActivePrinter = "FreePDF XP auf Ne02:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "FreePDF XP auf Ne02:", Collate:=True Application.ActivePrinter = "Brother...
07.10.2008 11:58:00
Thread-ID: 1014674
2 Beiträge
Anzeige

Links zu Excel-Dialogen

Label TextBox

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
1
6
4
2
4
9
4
5
7
1
2
2
2
2
3
3
1
4
9
9
2
2
5
2
1