Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 18:04:29
Formel fehler Wert#
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
18.04.2024 17:41:41
Summe: Bestimmter Bereich mit sverweis
18.04.2024 16:33:24
Worksheets variable
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1088to1092
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
1088to1092
1088to1092
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textbox an Userform2 übergeben

Textbox an Userform2 übergeben
Kay
Hallo,
ich habe 2 Userformen. Userform1 = Datenerfassung. Darin befinden sich unteranderm 6 Textboxen, wo eine bestimmte Wareninformation angelegt werden soll. Klickt der User auf das Label dieser Textbox, öffnet sich ein Unterfenster (Userform2) mit einer "Suchmaske" die anhand seiner Artikelnr. dann die notwendigen Wareninfos anzeigt. Nun möchte ich gern, dass eine bestimmte Information per Klick in Userform 2 genau in die Textbox übertragen wird - aus der der Klick der Userform1 geführt wurde.
Versuchte es so, dass ich in einem LabelPfad die Caption = Userform1.Textbox25.Value benannte und dann beim "zurückschreiben" versuchte diesem String den Wert der Textbox 2 aus der Userform2 zu übergeben.
Aber irgendwie macht er es nicht ?!
Wie kann ich es lösen ?!
Gruß
Kay

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Textbox an Userform2 übergeben
28.07.2009 08:20:39
Hajo_Zi
Hallo Kay,
der erste Befehl ist korrekt. den zweiten sehen wir nicht.

AW: Textbox an Userform2 übergeben
28.07.2009 08:59:03
k
der andere Teil lautet in der Userform2
Private Sub CB_Exit_Click()
Dim TB As Variant
Dim i As Integer
i = Val(LVar.Caption)
TB = Val("TB" & i)
UF1_ATE.["TB" & i] = Me.TXT_Datum.Text
'LVar.Caption = TXT_Datum.Text
Unload Me
End Sub
Aber er nimmt irgendwie díe Verkettung "TB" & i nicht an...wie kann ich es lösen - so dass die Info aus der Userform 2 wieder an die richtige Stelle (wo der Befehl losging) ankommt ?
Aus Userform 1 erhält das Label einen Wert enstprecchend der Stelle aus der die Userform2 gestartet wird. Und in der Userform 2 schreibe ich eine If - Schleife gemäß folgender Logik:
If Label.caption = 70 then Userform1.TB70.Text = Me.Textbox2.Text
else
If Label.caption = 25 then Userform1.TB25.Text = Me.Textbox2.Text
else
If Label.caption = 68 then Userform1.TB68.Text = Me.Textbox2.Text
usw. ...
Leider kenne ich mich noch nicht so richtig im Gebrauch einer Case-Schleife aus, wäre die hier sinnvoller und wie müsste der Code dann lauten ?!
Gruß und Vielen Dank !
Kay
Anzeige
AW: Textbox an Userform2 übergeben
28.07.2009 08:59:30
k
der andere Teil lautet in der Userform2
Private Sub CB_Exit_Click()
Dim TB As Variant
Dim i As Integer
i = Val(LVar.Caption)
UF1_ATE.["TB" & i] = Me.TXT_Datum.Text
Unload Me
End Sub
Aber er nimmt irgendwie díe Verkettung "TB" & i nicht an...wie kann ich es lösen - so dass die Info aus der Userform 2 wieder an die richtige Stelle (wo der Befehl losging) ankommt ?
Aus Userform 1 erhält das Label einen Wert enstprecchend der Stelle aus der die Userform2 gestartet wird. Und in der Userform 2 schreibe ich eine If - Schleife gemäß folgender Logik:
If Label.caption = 70 then Userform1.TB70.Text = Me.Textbox2.Text
else
If Label.caption = 25 then Userform1.TB25.Text = Me.Textbox2.Text
else
If Label.caption = 68 then Userform1.TB68.Text = Me.Textbox2.Text
usw. ...
Leider kenne ich mich noch nicht so richtig im Gebrauch einer Case-Schleife aus, wäre die hier sinnvoller und wie müsste der Code dann lauten ?!
Gruß und Vielen Dank !
Kay
Anzeige
AW: Textbox an Userform2 übergeben
28.07.2009 09:05:49
Hajo_Zi
Hallo Kay,
arbeite mit Controls("TB" & i)
Gruß Hajo
Hi, danke hat funktioniert...Gruß Kay o.T.
28.07.2009 09:12:12
k
AW: Textbox an Userform2 übergeben
28.07.2009 08:25:49
fcs
Hallo Kay,
du kannst die Daten nach dem Ausblenden der Userform2 per Hide nach Abschluss der Auswahl auslesen. Den entsprechenden Code muss du in den LabelX_Click-Prozeduren einfügen. In meinem Beispiel wird der Inhalt der Textbox1 im Userform2 in die dem jeweiligen Label zugeordnete Textbox im Userform1 eingetragen.
Gruß
Franz 
'Code für Labels im Userform 1 zur Übernahme der ausgewählten Daten im Userform2
Private Sub Label1_Click()
'Label zu Textbox 1
UserForm2.Show
Me.TextBox1 = UserForm2.TextBox1.Value
Unload UserForm2
End Sub
Private Sub Label2_Click()
'Label zu Textbox 2
UserForm2.Show
Me.TextBox2 = UserForm2.TextBox1.Value
Unload UserForm2
End Sub
'Code für Schalt-Button im Userform2 zur Übergabe der ausgewählten Daten andie Userform1
Private Sub CommandButton1_Click()
Me.Hide
End Sub
'Der Hide-Befehl zum Ausblenden des Userform2 kann natürlich auch am Ende einer anderen
'Prozedur stehen

Anzeige

93 Forumthreads zu ähnlichen Themen

Es wird nur die Formel angezeigt, nicht der Text
Oswald

Hallo an die guten Geister,
hab mal wieder ein Problem.
In der angeängten Datei in B41 hatte ich das Problem das nicht der Text angezeigt wird sondern die Formel.
https://www.herber.de/bbs/user/54704.xls
Habe ich dadurch gelöst das ich das Selbe noch mal in einer anderen Datei...
18.08.2008 14:47:05
Thread-ID: 1002609
4 Beiträge
Anzeige
Wert eines Labels (Userform) an Textbox
Robert

Hallo,
komme leider wiedermal nicht weiter und hoffe auf eure Hilfe.
Ich müsste den Wert eines Labels (in einer Userform) an eine TextBox (Steuerelement in Tabelle)
weitergeben.
Geht das überhaupt?
Vielen Dank schon mal..
Viele Grüße
Robert
13.02.2009 15:20:00
Thread-ID: 1050543
5 Beiträge
TextBoxen Standard - Format zuweisen
Frank

Hallo Zusammen!
Wünsche zunächst ein schönes Wochenende und nun zu meiner Frage. Beim öffnen einer UF werden die darin befindlichen TextBoxen mittels Daten aus einer Tabelle befüllt und den TextBoxen sind unterschiedliche Formate zugewiesen. Nun werden die TextBoxen per Change Ereignis eine...
13.02.2009 18:29:00
Thread-ID: 1050611
2 Beiträge
Anzeige
Zellengröße automatisch anpassen
Ralf

Hallo Excel - Experten,
ich hole mir per sverweis aus einem anderen Tabellenblatt
unterschiedlich langen Text und möchte ihn dann ausdrucken.
Wie kann ich z.B. Zelle Z 5 automatisch so anpassen, daß mir
Excel immer den kompletten Text anzeigt, die Zelle also
vergrößert...
17.07.2009 10:56:33
Thread-ID: 1089311
7 Beiträge
skalierung größenachse lässt sich nicht ändern
schon

Hallo, vielleicht liegt es ja nur am Sekt, den wir zum Weihnachtsbrunch hatten...
Habe ein simples Liniendiagramm mit 2 Zahlenreihen erstellt. Bei einer Reihe gehen die Zahlen gegen Null, daher schmiegt sich die Linie an die Rubrikenachse. Damit es anschaulicher wird, möchte ich die Skalier...
15.12.2009 16:34:42
Thread-ID: 1123765
2 Beiträge
Diagrammgröße per VBA ändern
ben

Hallo zusammen,
Ich habe drei Command Buttons mit deren Betätigung drei verschiedene Diagramme (Kuchendiagramm) angezeigt werden können. Wenn ein neues Diagramm angezeigt werden soll, wird das alte zuvor gelöscht.
Leider werden die Diagramme aber immer nur recht klein angezeigt.
Ic...
20.02.2010 10:34:56
Thread-ID: 1139846
4 Beiträge
Kreisdiagramm in Größe automatisch anpassen
Rudolf

Hallo Excel-Freunde,
ich möchte innerhalb einer Dokumentation mehrere Kreisdiagramme einflechten. Für die Darstellung des Kreises mit den Segmenten ist jedem Kreis eine eigene Wertetabelle zugeordnet:
Beispiel:
1. Kreis: Wert A = 10; Wert B = 20; Wert C = 30 (Gesamtwert also 60)<...
23.02.2010 14:27:31
Thread-ID: 1140698
2 Beiträge
Userform Länge Textbox genau festlegen
steffen

Hallo Leuts,
ich suche eine Möglichkeit, um festzulegen ,dass in einer Textbox innerhalb einer Userform genau 3 Zeichen (Zahlenwerte 0-9) eingetragen werden müssen.
Bsp:
---------------------
1 nicht erlaubt
01 nicht erlaubt
001 erlaubt
---------------------
89 n...
30.04.2010 19:25:43
Thread-ID: 1154781
7 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

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