Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
616to620
616to620
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bild anzeigen durch anklicken einer Zelle

Forumthread: Bild anzeigen durch anklicken einer Zelle

Bild anzeigen durch anklicken einer Zelle
29.05.2005 00:14:00
rahm
Hallo.
Es würde mich interessieren ob folgendes bei Excel funktioniert:
ich möchte dadurch das ich eine Zelle anklicke und je nach Text in der Zelle ein entsprechendes Bild angezeigt wird.
beispiel: man müsste für verschiedene Inhalte Pfade zu den Bilden angeben
wenn ich nun in der Zelle zum beispiel "Bild 1" eingebe soll das unter "bild 1" hinterlegte Bild irgendwie angezeigt werden.
ist so etwas möglich? hilfe wäre prima
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bild anzeigen durch anklicken einer Zelle
29.05.2005 00:39:42
Fred
Hi,
in Excel ist mithile von VBA fast alles möglich. Du musst die Aufgabe etwas genauer
beschreiben.
Sollen die schon angezeigten Bilder erhalten bleiben oder bei neuer Auswahl gelöscht werden? An welcher Position soll das Bild angezeigt werden?
Sollen sie skaliert werden oder in Originalgröße angezeigt werden?
Bestimmt habe ich noch Einiges vergessen zu fragen.
mfg Fred
Anzeige
AW: Bild anzeigen durch anklicken einer Zelle
29.05.2005 00:45:45
Rahm
Also ich möchte das das Bild nachdem man eine andere Zelle anklickt verschwindet.
Das Bild soll möglich neben der betroffenen Zelle angezeigt werden. am besten in Original-Größe
AW: Bild anzeigen durch anklicken einer Zelle
29.05.2005 00:54:43
Fred
Hi,
zur frühen Stunde keinen Nerv mehr für ein kleines Hi und einen knappen Gruß?
Hinterlege am besten auf einem Blatt(kann auch ausgeblendet sein) die Namen und Pfade der Bilder. Lade dann das entsprechende Bil mithile des Change-Ereignisses in der
gewünschten Tabelle.
Wie ein Bild eingefügt wird, kannst du mit dem Rekorder aufzeichnen.
mfg Fred
Anzeige
AW: Bild anzeigen durch anklicken einer Zelle
29.05.2005 00:58:50
Rahm
ja sorry. hallo erstmal.
danke für die hilfe. ich muss mir das dann morgen mal in ruhe anschauen. weil ich noch nicht so viel erfahrung hab. mal sehen ob ichs dann hinbekomm. danke nochmal
AW: Bild anzeigen durch anklicken einer Zelle
29.05.2005 01:01:44
Fred
Hi,
wenns nicht klappt, einfach nachfragen.
mfg Fred
AW: Bild anzeigen durch anklicken einer Zelle
29.05.2005 08:30:58
Hajo_Zi
Hallo Fred,
was ist aus Deiner Sicht an diesem Beitrag noch offen. Rahm hat doch geschrieben er möchte es Testen. Kennst Du schon das Testergebnis?
Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.
Anzeige
AW: Bild anzeigen durch anklicken einer Zelle
29.05.2005 11:00:19
Sonnenpeter
Hallo,
das nachfolgende Makro ist von Ramses und fügt Bilder als Kommentar ein.
Hatte er, ich weis nicht wann, mal hier veröffentlich
Gruß Sonnenpeter

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim addRange As Range
Dim myCom As Object
Dim insPic As String
'Fügt im bezeichneten Bereich  in die ausgewählte Zelle einen Kommtar ein
'und fügt ein zu definierendes Bild als Hintergrund ein
'Bezug bitte anpassen
Set addRange = Range("A1:A8")
If Intersect(Target, addRange) Is Nothing Then
'Ausstieg wenn mehrere Zellen
'markiert sind
Exit Sub
End If
If Target.Comment Is Nothing Then
Target.AddComment
With Target.Comment
.Text Text:=""
End With
insPic = Application.GetOpenFilename("Bilder (*.jpg; *.gif; *.bmp), *.txt, *.gif, *.bmp")
If insPic = "" Then
MsgBox "Keine Datei ausgewählt. Der Kommentar wird wieder gelöscht"
ActiveCell.Comment.Delete
End If
Set myCom = ActiveCell.Comment.Shape
With myCom
.Fill.UserPicture insPic
.Width = 100
.Height = 100
End With
End If
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

VBA Zellen aus mehreren markierten Zeilen kopieren
Snowman

Hallo Zusammen
Erstmal ein riesen Kompliment an Alle hier im Forum. Zu fast allen Problemen findet man hier super Lösungsansätze.
Leider habe ich zu meine Problem immer nur Teillösungen gefunden welche ich nicht zusammen kriege.
Ich habe zwei Tabellen im gleichen Sheet. "Tabelle1" u...
11.01.2019 16:06:32
Thread-ID: 1667541
10 Beiträge
Uhrzeit und Text in einer Zelle nicht möglich?
David

Hallo!

Ich möchte in einer Zelle sowohl eine Zeitangabe ( [hh]:mm ) als auch einen normalen Text in "" packen. Ich wollte es wie folgt machen:

=A1 & "Stunden gearbeitet"
wobei in A1 z. B. 7:42 steht.

Problem: Excel zeigt mir dann nicht mehr den Zeitwert in hh:mm an, s...
08.07.2003 19:14:55
Thread-ID: 278568
7 Beiträge
Ergebnisasgabe und Text in einer Zelle?
moep0r

Moin,
ich würde in einer Zelle gern ein Ergebnis (z.B.: =B4+E5) ausgeben lassen und dahinter noch Text schreiben [z.B.: (1)], so dass die Ausgabe in etwa so aussieht: 3 (1). Auch in Ordnung wärs, wenn der Inhalt der Klammer berechnet wäre und nicht einfach hingeschreiben.
Danke im Vorrau...
06.08.2004 00:58:50
Thread-ID: 465653
8 Beiträge
Anzeige
Datum und Text in einer Zelle
Sven

Hallo,
ich habe ein kleines Problem. Ich brauche in einer Excel Tabelle das aktuelle Datum. Das geht ja noch. Allerdings brauche ich Teile des Datums hinter einer bestimmten Zahl in einer Zelle. Z.B. 4711_01_20 wobei das 01 für den Monat und die 20 für den Tag steht. Es sollte immer das...
20.01.2005 16:29:52
Thread-ID: 551438
8 Beiträge
Datum und Text in einer Zelle
Fabienne

Hallo zusammen,
ich hab ein Problem:
Ich möchte in einer Tabellenzelle Text und einen berechneten Datumswert darstellen lassen:
=VERKETTEN("MEIN TEXT: ";A1+14)
(in A1 steht das Datum von heute!)
Soll also
MEIN TEXT: 11.06.2005
ausgeben.
Bei mir erscheint aber im...
27.06.2005 12:38:49
Thread-ID: 629415
3 Beiträge
zahl und text in einer Zelle vereinen
rebesky

Hallöchen,
kurze Frage: Wie kann ich in einer Zelle folgendes darstellen:
in A1 steht: Revenue Q1 ($)
jetzt möchte ich aber in A1 "Revenue Q1" und dahinter in Klammern die genaue Summe in Dollar haben. Diese Summe wird berechnet...
Ich hatte das so versucht:
=concatenate("Re...
13.01.2006 15:40:08
Thread-ID: 718778
11 Beiträge
Datum und Text in einer Zelle
otto

Hi,
wie kann ich mit einer Formel Datum und Text in eine Zelle schreiben?
Sobald ich eine 2.Zelle mit in die Formel nehme erscheint das Datum als fortlaufende Zahl.
A1= A2&"LS:"&A3
A2= ein Datum
A3= eine Nr. z.B. 5214/2
Ergebnis soll sein: 28.11.06 LS: 5214/2
...
28.11.2006 13:59:21
Thread-ID: 824310
3 Beiträge
Hyperlink und Text in einer Zelle
Christian

Hallo alle zusammen,
ich möchte einen Hyperlink und einen Text in einer zelle darstellen, wie ist das möglich?
Danke
Christian
29.01.2007 19:27:37
Thread-ID: 841787
2 Beiträge
Zahlen und Text in einer Zelle
Sasha

Liebe Kolleginnen und Kollegen.
Ich bin zur Zeit an einer Tabelle aus einer Datenbank und suche eine Möglichkeit einen EAN vom angehängten Text zu entfernen (siehe unten). Das Problem ist, dass der Text unterschiedlich lang ist und ich deshalb nicht mit z.B. dieser Formel arbeiten kann: =LI...
17.08.2007 14:24:05
Thread-ID: 897981
3 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Bilder in Excel durch Zellen anklicken anzeigen

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und erstelle ein neues Arbeitsblatt.

  2. Definiere den Bereich, in dem du die Zellen hast, die das Bild anzeigen sollen. Zum Beispiel: A1 bis A8.

  3. Füge das folgende VBA-Makro ein:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.
    • Erstelle ein neues Modul über Einfügen > Modul.
    • Füge den folgenden Code ein:
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim addRange As Range
   Dim myCom As Object
   Dim insPic As String

   ' Definiere den Bereich
   Set addRange = Range("A1:A8")
   If Intersect(Target, addRange) Is Nothing Then
       Exit Sub
   End If

   If Target.Comment Is Nothing Then
       Target.AddComment
       With Target.Comment
           .Text Text:=""
       End With
       insPic = Application.GetOpenFilename("Bilder (*.jpg; *.gif; *.bmp), *.txt, *.gif, *.bmp")
       If insPic = "" Then
           MsgBox "Keine Datei ausgewählt. Der Kommentar wird wieder gelöscht"
           ActiveCell.Comment.Delete
       End If
       Set myCom = ActiveCell.Comment.Shape
       With myCom
           .Fill.UserPicture insPic
           .Width = 100
           .Height = 100
       End With
   End If
End Sub

  4. Schließe den VBA-Editor und kehre zu deinem Arbeitsblatt zurück.

  5. Klicke auf eine Zelle im definierten Bereich und wähle ein Bild aus, um es anzuzeigen.

Häufige Fehler und Lösungen

  • Fehler: Excel markiert mehrere Zellen

    • Lösung: Stelle sicher, dass du nur eine Zelle auswählst. Das Makro funktioniert nur, wenn eine einzelne Zelle angeklickt wird.

  • Fehler: Bild wird nicht angezeigt

    • Lösung: Überprüfe den Pfad des Bildes. Stelle sicher, dass das Bild im unterstützten Format (JPG, GIF, BMP) vorliegt.

  • Fehler: Kommentar wird nicht hinzugefügt

    • Lösung: Vergewissere dich, dass das Makro ordnungsgemäß aktiviert ist und keine anderen Makros im Konflikt stehen.

Alternative Methoden

Eine Alternative zur Verwendung von VBA ist die Möglichkeit, Bilder direkt in eine Zelle einzufügen. Du kannst ein Bild in Excel mit der Funktion "Bild einfügen" hinzufügen und es dann in der Zelle positionieren. Beachte, dass diese Methode weniger dynamisch ist, da das Bild nicht durch ein Zelle anklicken gewechselt werden kann.

Praktische Beispiele

  • Beispiel 1: Du hast in Zelle A1 "Bild 1" eingegeben. Wenn du diese Zelle anklickst, öffnet sich ein Dialogfeld, um ein Bild auszuwählen, das dann als Kommentar in der Zelle angezeigt wird.
  • Beispiel 2: In Zelle B2 steht "Zelle Foto". Klicke darauf, um ein freigegebenes Bild auszuwählen, das dann angezeigt wird.

Tipps für Profis

  • Du kannst die Größe des Bildes anpassen, indem du die .Width und .Height-Eigenschaften im VBA-Code änderst.
  • Nutze benannte Bereiche, um deine Pfade für die Bilder zu organisieren. So kannst du die Verwaltung von Bildern in Excel erleichtern.
  • Experimentiere mit der Formatierung der Zelle, um das Bild und den Text in einer Zelle anzuzeigen.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Bilder in verschiedenen Zellen anzeigen?
Du kannst das Makro so anpassen, dass es verschiedene Bereiche überwacht, und für jeden Bereich unterschiedliche Bilder anzeigt.

2. Funktioniert das Makro in allen Excel-Versionen?
Ja, das Makro sollte in den meisten modernen Excel-Versionen funktionieren, die VBA unterstützen.

3. Kann ich die Bilder automatisch skalieren?
Ja, du müsstest entsprechende Anpassungen im Code vornehmen, um die .Width und .Height dynamisch basierend auf der Zelle zu setzen.

Beliebteste Forumthreads (12 Monate)

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