Hallo liebe VBA-Spezialisten,
seit Stunden sitze ich an einem (für mich) furchtbaren Problem bei einem automatisch zu erstellenden Speiseplan: innerhalb eines laufenden SUBs möchte ich eine Bilddatei in eine bestimmte Zelle einfügen. In dem Sub werden aus einem anderen Reiter ("Daten") die Gerichte und Allergene ausgelesen und im Reiter "Speiseplan" eingefügt. Nun habe ich im Reiter "Daten" zu jedem Gericht auch noch eine Zelle in der entweder "0", "1" oder "2" steht. Je nachdem soll dann im Reiter "Speiseplan" eine Bilddatei "1.jpg" oder "2.jpg" angezeigt werden.
Meine Versuche mit Bildern sind gescheitert, jetzt habe ich es dabei belassen, dass nur die ausgelesenen Zahlen in der Zelle angezeigt werden. Aktuell sieht der betreffende Schnipsel so aus:
'Menübezeichnung schreiben
Cells(zeile, 3) = Worksheets("Daten").Cells(i, 2)
Range(Cells(zeile, 3), Cells(zeile, 3)).Select
Selection.Font.Bold = False
Cells(zeile, 3).EntireRow.AutoFit 'Zeilenhöhe anpassen
'Bild einfügen
Cells(zeile, 2) = Worksheets("Daten").Cells(i, 10)
Könnt Ihr mir helfen, dass statt der Zahlen entsprechende Bilder angezeigt werden (c:\Bilder\1.jpg bzw. 2.jpg)?
Viele Grüße,
Martin
|