ausgewählte Zelle herausfinden
26.06.2006 15:31:05
Ronny
ich habe ein kleines Problem. In einer Datenbank (Tabelle "Liste") habe habe ich verschiedene Pflanzen aufgeführt. Jede Pflanze (jeweisl eine Zeile) ist mit einem kleinen Bild versehen. Den Bildern habe ich ein Makro "bilder_einfügen" zugewiesen. Die Bilder befinden sich in Spalte drei. In Spalte 1 ist eine laufende Nummer, welche auch der Dateiname der einzelnen Bilder ist. Aktiv ist dabei z.B. Zelle "A1". Wenn ich nun das Bild anklicke soll mir der Name des Bilder "Ax" ausgegeben werden und dann in Tabelle Bilder groß angzeiegt werden. Wie bekomme ich das hin, da die aktive Zelle "A1" ja beibehalten wird. Entweder müsste die Zelle des angeklickten Bildes oder direkt der Name des angeklickten Bildes angegeben werden.
bild = ActiveCell.Offset(0, -2)
MsgBox zelle
ActiveSheet.Pictures.Insert("C:\Pflanzenliste\Thumb\1.JPG").Select
So geht es nicht, da ja weiter "A1" aktiv ist.
Danke für die Hilfe