Office: (Office 2010) Excel VBA listbox einer Userform zu textbox einer weiteren Userform daten übernehmen

Hallo,

ich bin ziemlich neu im Thema VBA und stoß gerade auf ein Problem in meinem Projekt.vll kann mir jemand helfen hab bisher keine Lösung gefunden.

also ich habe ein Tabellenblatt mit einer Tabelle(Kundenauflistung ) die 13 Spalten hat (Werknummer,Kunde,Fabriknummer,Lieferposition,Feld ,Nennspannung......

in meiner Userform such ich jetzt nach der Werknummer und mir wird in einer Listbox alle dazugehörigen Fabriknummern mit kunde und position angezeigt.klappt auch alles soweit super.

Jetzt möchte ich eine Zeile markieren und über einen commandButton3 alle Daten der markierten Zeile in der Listbox auf einer 2. Userform übernommen werden und dort jede Spalte der Tabelle in einer Textbox dargestellt werden.also in 13 Textboxen.

kann mir da jemand mit einem Code Helfen??

gruß
chris

:)

 

Hallo

probier das hier mal
muss natürlich angepasst werden

Code:

 

Hi Chris,

Code:

 

Hallo

oder auch so mit Commandbutton

Code:

 

hey

danke für eure schnelle Antwort.

@Tom

die Möglichkeit hatte ich schon probiert, aber da ich in der Listbox nur 4 Spalten aus meiner Excel Tabelle anzeigen lasse funktioniert das nur für die 4 spalten und nicht für alle 13 spalten aus meiner tabelle Tabelle.

wenn ich die markierte zeile mit 4 spalten in der listbox übernehmen will sollen dann die dazugehörigen 13 Spalten aus der Exceltabelle übernommen werden.

@Beverly

bei deinem Code hat er mir ein Fehler angezeigt(ungültiges Argument)

gruß Chris

 

Hi Chris,

in welcher Zeile kommt der Fehler? Bei mir kommt keiner (ich habe den Code ja getestet ehe ich ihn gepostet habe) - aber das liegt wohl daran, dass ich deine Mappe nicht kenne und meine möglicherweise anders aufgebaut ist als deine.

 

hey,

in der Zeile:

Prüfscheintool.Controls("TextBox" & intSpalte + 1) = ListBox1.List(ListBox1.ListIndex, intSpalte)

Prüfscheintool ist meine Userform mit den Textboxen die hab ich so angepasst

 

Hi,

wie schon geschrieben - kann ich nicht nachvollziehen.

 

hey,

hab die datei mal abgespeckt vll ist da der Fehler zu erkennen.

PS. in die Textbox zum suchen 1* eingeben das sie in der listbox angezeigt werden


gruß
chris

 

Hi Chris,

das ist der Vorteil, wenn man eine Mappe hochlädt - dann kann man die konkreten Bedingungen berücksichtigen. Aus deinem Eröffnungsbeitrag habe ich geschlussfolgert, dass die ListBox ebenfalls 13 Spalten hat, was aber nicht der Fall ist - es sind nur 4. Außerdem werden die Daten per AddItem zugewiesen und nicht der Zellbereich. Folglich muss man eine völlig andere Vorgehensweise wählen, um die korrekte Zeile im Tabellenblatt zu kennen.


Die ListBox erhält jetzt 5 Spalten, wobei in die 5. die laufenede Zeilennummer eingetragen wird, um später für den ausgewählten Datensatz die richtige Zeile zu finden. Spalte 5 hat eine Breite von 0, sodass sie nicht angezeigt wird:


Code:

Beim Übertragen der Daten an die TextBoxen werden die Daten aus der relevanten Zeile der Tabelle "Kundenauflistung" ausgelesen, die Zeilennummer wird der 5. Spalte entnommen:

Code:

Und wenn ich das richtig gesehen habe, sind es nur 12 TextBoxen und nicht 13.

 

hey,

Super jetzt hat es geklappt*wink.gif* super viele vielen dank*Smilie.

jetzt komm ich endlich weiter mal gucken wann mich die nächsten Probleme erwarten*wink.gif*

ganz ganz großen dank für die Hilfe

gruß Chris

PS: hab mittlerweile 13 Textboxen hatte eine vergessen einzufügen*wink.gif*

 

Hallo Beverly (Karin)
ich habe eine Verständnisfrage:
Wenn ich nun per ID suche, eine Zeile in der Listbox anklicke, meine Änderungen vornehme in den Textboxen. Das geänderte per Speicherbutton zurück schreibe, treffe ich dann die Zeile, welcher der Datensatz entnommen ? (Gedanke deine zusätzliche Spalte mit Zeilennummer)
Eine Antwort wäre supi von Dir
Der Wurm

 

Hi,

Das ist korrekt.

 

Hallo Beverly,
entweder bin ich zu blöd oder einfach nicht sehend.
"per Speicherbutton zurück schreibe"
Wenn wie vorab erwähnt, die Zeilennumer die Inhalte der Textbox in die richtige Zeile/Spalte bringt. Wie muss nun da reisst es bei mir ab der Einfügecod aussehen. Mit ersteleereZeile-Cod kommt man da doch nicht weiter,oder?

*mad.gif*

 

Hi Thomas,

lade doch mal deine aktuelle Mappe hoch und beschreibe genau, wo und wie das Problem auftritt.