Office: listbox wählt namen- Bild in Userform (Image) anzeigen

An alle ein Hallo,

ich bin totaler VBA-Laie aber versuche mich rein zu fuchsen.

Ich wähle ein Namen aus der Listbox und die Daten aus einer tabelle werden in textfeldern angezeigt. Das funktioniert einwandfrei. Auch das Löschen und Speichern und Neuer Eintrag funktioniert so wie es soll. Jetzt meine frage.
Jetzt möchte ich das mir das jeweiligen Bild auch dazu angezeigt wird.
Aber aus ein separaten Ordner. Die Bilder heißen genaus wie die namen aus der List box.
Ist das überhaupt umsetzbar?
Kennt vielleicht jemand den Code oder wo finde ich denn?

:)

 

Hallo,

du hast den Code doch schon ...
Code:

hat nur die Klammer gefehlt und das 'Combo' muss durch 'List' ersetzt werden.
Dann funktioniert das bei Klick auf das Image-Control.

Soll es auch bei Klick auf die ListBox gehen, schreibe die Code.Zeile ebenfalls in Private Sub ListBox1_Click() innerhalb der Do...Loop-Schleife ... zwischen TextBo6 = ... und Exit Do.

 

Hallo

danke für die schnelle antwort.Habe versucht das umzusetzen wie du es beschrieben hast aber dann kommt immer eine fehler meldung" Laufzeitfehler '53':
Datei nicht gefunden.

Was mache ich falsch?

 

Hallo Martha,

hast du den Pfad für deine Dateien auch richtiggestellt ???

Ich ging davon aus, du weißt, wie der aussehen muss.
Du muss schon auch die Slashes an die richtige Stelle schreiben.

PHP:

         "C:\BILDER_BG\" & ListBox1.Value & ".jpg" 'oder haben die Bilder tatsächlich die Endung JPEG oder doch JPG ?


 

Hallo

an die JPG endung habe ich auch schon gedacht. Das war es aber auch nicht.
Ich füge mal den den Ordner bei. Vielleicht erkennst du einen fehler.
Danke schon mal in voraus

 

Hallo Marta,

falls die Bilder immer im gleichen Ordner liegen, wie die Datei, dann so ...

Thisworkbook.Path & "\" & ListBox1.Value & ".jpg"

PS:
Obacht !!! bei Anika .jpg hat sich ein Leerzeichen eingeschlichen.

 

Hallo

ich nochmal. Ich habe jetzt den code geändert.
Image1.Picture = ThisWorkbook.Path & "D:kontakte" & ListBox1.Value & ".jpg"
Jetzt kommt Laufzeitfehler '424' Objekt erforderlich

Verstehe ich nicht? Welches Objekt?

 

siehe Post #2

 

Hallo

ich nochmal. Ich habe jetzt den code geändert.
Image1.Picture = ThisWorkbook.Path & "D:kontakte" & ListBox1.Value & ".jpg"
Jetzt kommt Laufzeitfehler '424' Objekt erforderlich

Verstehe ich nicht? Welches Objekt?

 

Nochmal?
Ok - nochmal: Siehe Post #2 *Smilie

 

Hallo

ich nochmal. Ich habe jetzt den code geändert.
Image1.Picture = ThisWorkbook.Path & "D:kontakte" & ListBox1.Value & ".jpg"
Jetzt kommt Laufzeitfehler '424' Objekt erforderlich

Verstehe ich nicht? Welches Objekt?

 

Willst Du mich/uns auf den Arm nehmen?

 

Hallo Ralf,

Mann, mann, mann ... bei euch lernt frau jeden Tag etwas neues ... jemanden auf den Arm nehmen ...
ich fürchte, wenn Marta bei allem so ist, wie in VBA, dann weiß sie gar nicht, wie man jemanden auf den Arm nimmt. *mrcool

Entschuldige bitte Marta ... *tongue.gif*
Image1.Picture = LoadPicture("D:\kontakte\" & ListBox1.Value & ".jpg")

natürlich nur, wenn deine Bilder im Laufwerk "D:" ... im Ordner "Kontakte" liegen.

 

Aha... Frauen halten zusammen... ja,nee...is klar...*mrcool