@Patrick - Listbox auf UF durchsuchen
16.01.2007 09:00:40
Oberschlumpf
Zitat:
"Wenn ich dann den richtigen Eintrag gefunden habe klicke ich diesen an und der dazugehörige Inhalt wird in Textboxen (1-13 ausgegeben - jede Spalte in eine eigene Textbox). Ich möchte nun, wenn möglich, mittels Änderung in Textbox auch den Inhalt in der dazugehörigen Datenquelle (Datenbank.xls) ändern. Ist das möglich ?? Habe in diesem und anderen Foren nichts gefunden."
Leider kann ich dir nun mit einem Bsp-Code nur teilweise helfen
- du hast wieder mal keine Bsp-Datei mit Musterdaten zur Verfügung gestellt
- daher weiß ich nicht, in welchen Spalten in der Tabelle deine Daten stehen
Ich hab nun mein Bsp auf 13 Spalten aufgefüllt, dem UF 13 Textfelder hinzugefügt, und nun sieht mein Bsp so aus:
https://www.herber.de/bbs/user/39692.xls
Nach Eingabe eines Suchtextes in das eine Textfeld werden die Treffer automatisch in die anderen 13 Textfelder eingetragen, da das "Finden" einer Zeile in der Listbox einem Klick auf die Zeile gleichkommt.
Das Hinzufügen der Daten aus den Textboxen in die Datenbank.xls musst du selbst erledigen, da, wie gesagt, keine Bsp-Datei von dir vorliegt und ich nicht weiß, wie die Datenbank.xls aufgebaut ist.
Die Übergabe von Textfeld an Zelle in Datei funzt so:
Sheets(Sheetname).Range("A1").Value = UF-Name.Textboxname.Text
Du musst diese Platzhalter anpassen:
Sheetname = Name des Tabellenblattes, in das die Daten übernommen werden sollen
UF-Name = Name des Userformulares, in dem die Textboxen stehen
Textboxname = Name der Textbox, aus der der Text an die Zelle in Tabelle übergeben werden soll
Aber ich denke, mit VBA = Gut kommst du nun weiter, oder?
Konnte ich helfen?
Ciao
Thorsten