Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
520to524
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
520to524
520to524
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bei Klich in Zelle öffnet sich ein Bild

Bei Klich in Zelle öffnet sich ein Bild
24.11.2004 18:21:35
GAST100
Hallo Leute, habe da mal eine Frage:
Wenn ich in Excel bin und in eine Zelle klicke soll so eie art Pop Up aufgehen und es soll ein Bild erscheinen. Das Bild sollte in der Excelmappe sein. Also keine verlinkung. Denke mal ich mach das mit einer User Form. Aber ich bräuchte die Befehle dazu:
-Dass beim klichen in die Zelle A1 die UserForm aufgeht
-User Form schliesen.
Oder geht das irgendwie anders?
Danke für die Hilfe
Tobi

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bei Klich in Zelle öffnet sich ein Bild
24.11.2004 18:35:16
Josef
Hallo Tobi!
Disen Code in der Tabelle.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$A$1" Then
Me.Pictures("Bild 1").Visible = False  'Bildname anpassen
Else
Me.Pictures("Bild 1").Visible = True   'Bildname anpassen
End If
End Sub

Gruß Sepp
AW: Bei Klich in Zelle öffnet sich ein Bild
Tobi
Und wo und wie speicher ich das Bild ab?
Danke
Einfach in die Tabelle einfügen....
24.11.2004 18:55:32
Josef
...und den Namen anpassen!
Gruß Sepp
AW: Einfach in die Tabelle einfügen....
Tobi
Fehlt da was? wie und wo lege ich denn das Bild hin?
Danke Tobi
AW: Einfach in die Tabelle einfügen....
24.11.2004 19:11:35
Josef
Hallo Tobi!
Bist du sicher mit "Excel gut / VBA gut" ?
Also.
1.) Du fügst das Bild das angezeigt werden soll,
über &gt Einfügen &gt Grafik &gt Aus Datei ein.
2.) Diesem Bild gibst du einen Namen, zB. "MeinBild" und
plazierst es an die Stelle deiner Wahl.
3.) Im Makro änderst du "Bild 1" in "MeinBild".
Fertig
Gruß Sepp
Anzeige
Zusatzfrage
25.11.2004 07:53:58
Ernst
Hallo Sepp
Ich hätte da noch eine Zusatzfrage zu Deinem Code.
Wie müsste der Code ergänzt werden, wenn ich weitere Bilder anzeigen möchte, bei Click auf B1 und C1.
mfg
Ernst Dunkel
AW: Zusatzfrage
25.11.2004 10:09:56
Josef
Hallo Ernst!
zB. so.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
''wenn die Bilder ausgeblendet werden sollen, falls eine Zelle
''ausserhal "A1:C1" ausgewählt wird
'Me.Pictures("Bild 1").Visible = False
'Me.Pictures("Bild 2").Visible = False
'Me.Pictures("Bild 3").Visible = False
If Not Intersect(Target, [A1:C1]) Is Nothing Then
'wenn die Bilder sichtbar bleiben sollen, falls eine Zelle
'ausserhal "A1:C1" ausgewählt wird
Me.Pictures("Bild 1").Visible = False
Me.Pictures("Bild 2").Visible = False
Me.Pictures("Bild 3").Visible = False
Select Case Target.Address(0, 0)
Case "A1"
Me.Pictures("Bild 1").Visible = True
Case "B1"
Me.Pictures("Bild 2").Visible = True
Case "C1"
Me.Pictures("Bild 3").Visible = True
Case Else
End Select
End If
End Sub

Gruß Sepp
Anzeige
AW: Zusatzfrage
25.11.2004 16:53:09
Ernst
Hallo Sepp
Vielen Dank für Deine Antwort konnte wieder etwas lernen.
mfg
Ernst Dunkel

22 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige