SVERWEIS und Fotos

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Kurt,
das, was du vorhast, lässt sich nur mit VBA realisieren.
Dazu verwendest du am Besten das "Microsoft ImageList Control", das du unter den "Zusätzlichen Steuerelementen" findest.
Da kannst du alle Bilder reinladen und an die Mappe binden. Die Bilder werden von 1 bis x indiziert.
Dann fügst du noch ein "Image" ein und greifst - z.B. im Calculate-Ereignis - auf den Index des jeweiligen Bildes der ImageList zurück. Den Bildindex solltest du jedem Namen in der Datenbank in einer separaten Spalte zuweisen.
Das Bild erhälst du dann mit
Me.Image1.Picture = Me.ImageList1.ListImages(Index).Picture
BTW:
Deine SVERWEISe sind murks, da du den 4. Paramter (Bereich_Verweis) nicht angegeben hast. Setz den undbedingt auf Null.
Noch nicht gemerkt?
Grüße Boris

Hi Kurt,
also nochmal ganz langsam. Bau Dir testweise mal ne neue Mappe und gestalte sie wie folgt:
In der Symbolleiste "Steuerelement-Toolbox" bindet sich das Steuerelement "Bild" (ein Rahmen mit nem Berg und ner Sonne drin).
Füge das Element in dein Blatt "Tabelle1" ein.
In der Steuerelement-Leiste findest du unten noch ein Symbol mit nem Hammer und nem Schraubenschlüssel (=weitere Steuerelemente).
Klick drauf und es öffnet sich ne Combobox. Wähle dort das "Microsoft ImageList Control" aus und füge es ebenfalls in Dein Blatt ein.
Du befindest Dich jetzt im Entwurfsmodus - zu erkennen an der eingedrückten Schaltfläche mit dem Geodreick drauf. Markiere jetzt das ImageList Control und klick auf die Schaltfläche "Eigenschaften" (rechts neben dem Geodreieck). Es öffnet sich ein Fenster mit allen Eigenschaften für das ImageList-Control.
Klick auf die drei Punkte unter "Benutzerdefiniert". Im neuen Dialog "Images" wählen und dann den Button "Insert Picture".
Deine Bilder hast du optimalerweise alle in EINEM Ordner.
Wähle diesen aus, markiere die Bilder und drück Enter. So fügst du sie alle in das Control ein.
Die Bilder werden indiziert - beginnend bei 1.
So - alles mit OK bestätigen und zurück ins Tabellenblatt.
Jetzt den Entwurfsmodus ausschalten (Schaltfläche mit dem Geodreieck drücken - sie ist dann nicht mehr "eingedrückt" - und nicht wundern, wenn das ImageList-Control jetzt nicht mehr sichtbar ist - das soll so sein!).
In den VBA-Editor wechseln, dort das Klassenmodul der "Tabelle1" auswählen, und testweise mal folgenden Ereigniscode hinterlegen:


Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Address(0, 0) = "A1" And .Count = 1 And .Value > 0 And .Value <= Me.ImageList1.ListImages.Count Then
Me.Image1.Picture = Me.ImageList1.ListImages(.Value).Picture
End If
End With
End Sub

Raus aus dem Editor und testen: Gib in A1 ne Zahl zwischen 1 und der Anzahl der Bilder ein.
Funktioniert´s?
Grüße Boris

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

SVERWEIS und Fotos

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread