Gauten Tag. allerseits.
wie bringe ich einen Text aus einer Textbox in eine Zelle?
habe folgenden Code geschrieben:
cont
Der Text erscheint aber nicht in A1.
Wer kann helfen?
Vielen Dank im Voraus
Nikodemo
Moin, Nikodemo,
Der Text erscheint aber nicht in A1.
bei mir klappt es. Steht denn in UserForm1.Medikament.Text was drin? Ändere die Zuweisung versuchshalber ab: Anstatt
Range("A1") = UserForm1.Medikament.Text
schreibst Du
Msgbox UserForm1.Medikament.Text
Gruß Ralf
Hi, Ralf!
Danke für deine Antwort.
Worauf ich hinauswollte: wenn ich in der Textbox einen Text eingegeben habe, so muss ja irgendetwas passieren, damit der Text an A1 abgeschickt wird. In der MsgBox nütz er mir ja nix.
Ich brauch den Text und in einer zweiten Textbox den Preis, um beide weiterverarbeiten zu können.
Hast du noch einen Tip?
es grüßt dich Nikodemo
PS.: wie ist bei euch das Wetter? auch so greislich?
Hi Nikodemo,
Worauf ich hinauswollte: wenn ich in der Textbox einen Text
eingegeben habe, so muss ja irgendetwas passieren, damit der
Text an A1 abgeschickt wird.
dann klick Dir halt das Ereignis herbei: Textbox_Change.
Gruß Ralf
Hi, Ralf,
(hüstel…).
Bitte tu mir den gefallen, und beschreib mir den Code etwas näher, wenn deine Zeit es erlaubt.
Ich bin halt ein alter tattriger Elektrotechniker (62) am Rande der Altersdemenz. Kapier etwas langsam und schlecht. Sorry.
Wie würde in meine Fall der gesamte Code aussehen?
Grüße aus dem kalten München
Nikodemo
Hi Nikodemo,
-
Extras > Anpassen - Steuerelementtoolbox
-
Entwurfsansicht einschalten (das grüne Geo-Dreieck)
-
in den Codewechseln (Symbol gleich darunter, Blatt mit Lupe)
-
dort links Steuerelement auswählen
-
rechts das passende Ereignis auswählen (hier Change)
-
in die jetzt sichtbare Codestrecke
Private Sub Textbox1_Change
End Sub
die Zuweisung einfügen.
Gruß Ralf
Gruß Gott, Ralf
also: so sieht das Ergebnis jetzt aus:
Private Sub CommandButton2_Click()
Private Sub Textbox1_Change()
UserForm1.Show
Range(„A1“).text = UserForm1.Medikament.Text
End Sub
End Sub
geht irgendwie nicht. (Den Aufruf über cmdBttn2 brauche ich ja)
Trotzdem herzlichen Dank, dass du dich so aufopfernd um mich kümmerst.
(was kann passieren, wenn man sich hier outet?)
herzliche Grüße
Nikodemo
Moin, Nikodemo,
so sieht Dein Ergebnis mit pre-Tags aus:
Private Sub CommandButton2\_Click()
Private Sub Textbox1\_Change()
UserForm1.Show
Range("A1").text = UserForm1.Medikament.Text
End Sub
End Sub
geht irgendwie nicht.
Das wundert mich nicht, da mault doch schon der Compiler. Du kannst keine Sub in eine Sub stecken.
(Den Aufruf über cmdBttn2 brauche ich ja)
Die beiden Ereignisse zu schachteln ist natürlich Quark, Du musst Dir klar werden, was wann passieren soll.
Private Sub Textbox1\_Change()
reagiert auf eine Änderung der Textbox,
Private Sub CommandButton2\_Click()
auf das Anklicken des Buttons.
(was kann passieren, wenn man sich hier outet?)
könnte sein, dass einer aus der Schar derer, die Du genervt hast, nach Giesing / Westend / Grünwald (Nichtzutreffendes bitte streichen) fährt und Dir die Eier abschneidet.
Gruß Ralf