Könnte mir jemand helfen mein Makro unten zu vervollständigen?
In einer UserForm der Arbeitsmappe xy befindet sich ein Listenfeld wo Bilder eingetragen sind. Nach anwählen des Bildnamens (z.B. Boden gegen Aussenluft) soll das Bild in der UserForm angezeigt werden. Durch betätigen des CommandButtons soll das ausgewählte Bild in die Zelle A10 eingefügt werden.
Die Bilder (picBA1, picBa2, picBA3, etc.) befinden sich im Verzeichnis C:\Daten\Bilder.xls
Wo komme ich nicht weiter:
1.) Mit dem Code unten stimmt was nicht
2.) Wie müsste der Code im CommandButton lauten um das ausgewählte Bild in die aktive Arbeitsmappe der Zelle A10 einzufügen?
Für eine Antwort bin ich dankbar.
Mit freundlichen Grüßen
Ernst Dunkel
Private Sub UserForm_Initialize()
With lst_Boden
.AddItem "Boden gegen Aussenluft"
.AddItem "Boden gegen unbeheizt"
.AddItem "Boden gegen Erdreich"
End With
End Sub
Private Sub lst_Boden_Click()
Dim strBild, strOpen As String
strBild = "C:\Daten\Bilder.xls"
strOpen = myOpen(strBild)
Select Case lst_Boden.ListIndex
Case 0
img.Picture = LoadPicture(strBild & "\picBA1")
Case 1
img.Picture = LoadPicture(strBild & "\picBA2")
Case 2
img.Picture = LoadPicture(strBild & "\picBA3")
End Select
End Sub