Sæt Kamera op på QAT (Quick Access Toolbar). Aktiver Ark1!A1 (cellen, ikke billedet). Tryk på Kamera. Peg med musen i øverste venstre hjørne af celle Ark2!D3.
Du kan ikke have billedet ind i cellen, men det kan godt "flyde" ovenpå.
VBA er ikke en af mine store kompetancer, EXCELENT lavede denne kode for nogle år siden. I et ark i celle AF19 findes en rulleliste. Via valget her hentes en blok fra ark PRO - nederst i denne blok (celle AF32) er en ny rulleliste til at hente den næste blok. I alle blokke "flyder" et billede.
Sub worksheet_change(ByVal Target As Range) If Intersect(Target, Range("AF19,AF32,AF45,AF58,AF71,")) Is Nothing Then Exit Sub On Error GoTo ud Application.EnableEvents = False rk = Mid(Target.Value, 15, 3) * 13 + 9 Sheets("pro").Range("A" & rk & ":AF" & rk + 12).Copy Cells(Target.Row + 1, 1) ud: Application.EnableEvents = True End Sub
For at billedet skal kunne overføres med en formel (....ark 2 i celle d3 skriver ='Ark1'!A1), skal det være indeholdt i cellen - og det KAN billeder ikke!
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.