juhu hab es geschafft, trotzdem danke :)
Eine andere Frage noch dann bin ich versorgt :P
Wenn ich möchte das mein Bild nicht in B1 dargestellt wird sondern in einem Image feld auf meiner Userform, in meinem fall Image1, wie stell ich das an?
Dim rngZiel As Range
Dim ImportBildName As String
ImportBildName = "C:\Users\Thomas\Desktop\VBA\klein320\" & Range("A1").Value & ".gif" ' Dateiname zusammenstellen
Set rngZiel = Range("B1") ' Zielzelle festlegen
With ActiveSheet.Pictures.Insert(ImportBildName) ' Bild einfügen
.Top = rngZiel.Top ' Position in Zielzelle oben
.Left = rngZiel.Left ' Position in Zielzelle links
Danke :)
|