hab da ein kleines Problem.
Ich möchte gerne in einer Excel Tabelle eine Bild von einem Gegenstand eintragen, wenn ich ein Makro drüber laufen lasse.
Ich hab die Bilder mit Nummern versehen, die genau so in der Excel Tabelle existieren.
Den Wert der Zahl bekomm ich raus alles kein Problem, nur leider kommt einfach kein Bild.
Irgendwas muss mit meiner Pfad angabe nicht stimmen.
Sub Bild_Einfügen() Dim i As Integer Dim Pfad As String Pfad = "U:\Projekt_Bild_Einfügen\Bilder\" i = 1 With ActiveSheet.Pictures.Insert(Path & ActiveCell.Offset(0, -(ActiveCell.Column - i)).Value & _ ".jpg") .TopLeftCell = ActiveCell 'oder = Range("C10") End With ActiveWorkbook.Save End Sub
ActiveCell.Offset(0,-(ActiveCell.Column -i) soll mir den Wert der Zelle ausgeben und ihn in den Pfad einfügen.
Ich denk mal das ich in dieser Zeile ein Problem hab, weil er den Wert ausliesst.
mfg eimer