Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: listbox mit textboxen in userform

listbox mit textboxen in userform
20.05.2020 19:39:33
Fippe
Werte Kollegen,
Ich habe auf meiner Userform eine (gebundene) Listbox, in die ich die Werte aus dem Tabellenblatt mittels RowSource zuweise. Mit dem Listbox_Click-Ereignis fülle ich Textboxen auf der Userform (TextBox1.Text = Cells(i, 1).Value etc.). Über das Textbox_Change-Ereignis (Cells(i, 1).value = TextBox1.text) kann ich nun direkt Änderungen im Tabellenblatt vornehmen. Ich möchte nun diese Änderungen (mit dem gleichen Befehl) in einem CommandButton-Befehl für mehrere Textboxen vornehmen. Dies gelingt jedoch nur jeweils für die erste Textbox im Befehl, die weiteren werden nicht berücksichtigt. Was mache ich falsch oder geht das überhaupt nicht?
Danke für die Unterstützung!
Fippe
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: listbox mit textboxen in userform
20.05.2020 19:41:42
Hajo_Zi
Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.
Sollte die Datei verlinkt werden?
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
änderrn.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.

Anzeige
AW: listbox mit textboxen in userform
20.05.2020 20:04:46
onur
Das Problem ist in Zeile 17 deines Codes.
AW: listbox mit textboxen in userform
20.05.2020 20:39:30
Mullit
Hallo,
du mußt sie halt in einer Schleife durchlaufen, bspw.:
Private Sub CommandButton1_Click()
Dim lngIndex As Long
For lngIndex = 1 To 10
Cells(lngIndex, 1).Value = Controls("TextBox" & lngIndex).Value
Next
End Sub

Gruß, Mullit
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige