Image auswählen
01.10.2003 22:53:10
Lutz
habe folgendes Problem:
Im Sheet "Data" befinden sich Image1 - Image18, in Spalte A die Zahlen 1 bis 18 und in Spalte B 18 Ländernamen.
In einer Userform kann nun ein Land ausgewählt werden. Dann soll CommandButton1 die zugehörige Grafik anzeigen.
Bsp: gewähltes Land : China; zugehörige Zahl in Spalte A: 7
jetzt soll Image7 im Commandbutton angezeigt werden
Was muß ich im unten stehenden Code ändern, um das Image variabel aufzurufen ?
Set rng = Sheets("Data").Columns(34).Find(Land, lookat:=xlWhole, LookIn:=xlValues)
pic = Sheets("Data").Cells(rng.Row, 33).Value
CommandButton1.Picture = Sheets("Data").Image7.Picture ???
Code eingefügt mit Syntaxhighlighter 2.1
Gruß Lutz
Anzeige