Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
648to652
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
648to652
648to652
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bilder anzeigen lassen

Bilder anzeigen lassen
13.08.2005 13:51:47
Jürgen
Hallo Forum
Habe im (Tabellenblatt Bilder) Bilder hinterlegt mit den Namen Bild01 bis Bild18.
Im Tabellenblatt(Rang)möchte ich nun erreichen das das entsprechende Bild von denjenigen angezeigt wird der in der Zelle A10 angezeigt wird.
zb. steht in (Tabblatt Rang Zelle a10) der Name Jürgen dann soll Bild01 aus (Tabblatt Bilder) in der zelle C10 angezeigt werden. Wenn der Name Mirko in Zelle A10 steht dann Bild02 an Position C10 anzeigen u.s.w
Geht das und wie müsste der Code dafür sein ?
Bedanke mich
Gruß
Jürgen

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bilder anzeigen lassen
13.08.2005 15:45:21
Reinhard
Hi Jürgen,
Ansicht--symbolleisten--SteuerelemetTollbox--Befehlschaltfläche
Rechtsklick darauf und Code anzeigen lassen
Code so abändern:
Option Explicit

Private Sub ComboBox1_Change()
Dim Pfad As String, such As String
Pfad = "C:\test\Bilder\"
such = Application.WorksheetFunction.VLookup(ComboBox1, Worksheets("Tabelle2").Range("A1:B18"), 2, 0)
ActiveSheet.Shapes(such).Top = 100
ActiveSheet.Shapes(such).Left = 150
ActiveSheet.Shapes(such).Visible = True
End Sub

Einfügen Modul, dorthinein folgenden Code:
Sub alleweg()
Dim bild As Shape
For Each bild In ActiveSheet.Shapes
bild.Visible = False
Next blid
End Sub
Editor schliessen.
Gruß
Reinhard
Anzeige

Links zu Excel-Dialogen

ComboBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige