06.11.2022, 16:17
Hallo zusammen
Ich bin mal wieder am basteln an meiner Excel Tabelle die dank einem User von hier einwandfrei funktioniert.
Jetzt wollte ich mal was ausprobieren, und suche noch nach einer Lösung.
Ich möchte gerne ein Bild in die jeweilge Spalte ablegen. ( Funktioniert soweit )
Jetzt suche ich noch nach der Lösung, wie bekomme ich beim Abfragen der Zelle das abelegte Bild wieder zurück gezeigt?
Jetzt legt es mir dies als Wort ab. Möchte aber beim Abfragen, das es mir das Bild anzeigt und nicht das Wort.
Wer hat da einen Vorschlag?
Mein Code für das Eintragen zur Zeit sieht so aus: ( Nur als Testversuch )
Ich bin mal wieder am basteln an meiner Excel Tabelle die dank einem User von hier einwandfrei funktioniert.
Jetzt wollte ich mal was ausprobieren, und suche noch nach einer Lösung.
Ich möchte gerne ein Bild in die jeweilge Spalte ablegen. ( Funktioniert soweit )
Jetzt suche ich noch nach der Lösung, wie bekomme ich beim Abfragen der Zelle das abelegte Bild wieder zurück gezeigt?
Jetzt legt es mir dies als Wort ab. Möchte aber beim Abfragen, das es mir das Bild anzeigt und nicht das Wort.
Wer hat da einen Vorschlag?
Mein Code für das Eintragen zur Zeit sieht so aus: ( Nur als Testversuch )
Code:
Option Explicit
Const Pfad As String = "G:\Dropbox\Dropbox\Bürge-Fischer AG\Schärer&Schläpfer\Dosenliste\Bildervorlagen\"
Private Sub ListBox1_Click()
Image1.Picture = LoadPicture(Pfad & ListBox1.List(ListBox1.ListIndex) & ".jpg")
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Tabelle3.Range("BG6").Value = ListBox1.List(ListBox1.ListIndex)
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim AktDat As String
AktDat = Dir(Pfad & "*.jpg")
While AktDat <> ""
ListBox1.AddItem Left(AktDat, Len(AktDat) - 4)
AktDat = Dir
Wend
ListBox1.Selected(0) = True
End Sub
