Thema Datum  Von Nutzer Rating
Antwort
28.11.2007 15:30:22 Tiede
NotSolved
Blau Aw:Grafik in Verbindung der Zelleingabe
 29.11.2007 16:26:02 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
29.11.2007 16:26:02		 Views:
834		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Grafik in Verbindung der Zelleingabe
Hallo Tiede,
nachstehendes Makro solltest du in das Codefenster deiner Tabelle unter Microsoft Excel Objekte schreiben (nichts in einem Modul oder Formular!):

Private Sub Worksheet_Change(ByVal Target As Range)
Static a As String 'Name des letzten verwendeten Shape zur Darstellung des Bildes
keinBild = ""
If Target.Address <> "$A$1" Then Exit Sub 'es wurde eine andere Zelle als A1 geändert
Select Case Cells(1, 1)
Case 1
Pfad = Spezifikation Bild 1 'Pfad und Dateinamen
...
Case 20
Pfad = Spezifikation Bild 20
Case Else
keinBild = "Kein Bild"
End Select
If a <> "" Then 'dann gibt/gab es bereits einen Shape (er könnte ja manuell gelöscht sein)
r = False
For Each c In Shapes
If c.Name = a Then r = True: Exit For 'der letzte verwendete Shape ist noch da
Next
If r = True Then 'und kann gelöscht werden
ActiveSheet.Shapes(a).Select
Selection.Delete
End If
End If
Cells(1, 2).Select
If keinBild = "Kein Bild" Then
Cells(1, 2) = keinBild
Else
ActiveSheet.Pictures.Insert(Pfad).Select 'Bild wird eingefügt
a = Selection.Name
End If
End Sub

Ich hoffe, dir geholfen zu haben. Wozu braucht man so etwas?
Holger

Tiede schrieb am 28.11.2007 15:30:22:

Hallo zusammen!

Ich hoffe, es kann mir jemand helfen:

Beispiel:
Ich gebe in Zelle A1 den Wert 1 ein und in der Zelle B1 soll das Bild01 angezeigt werden.
Dies soll für 20 veschiedene Bilder funktionieren in 20 Zellen mit 20 Werten, d.h.
1= Bild01
2= Bild02
3= Bild03
...

Beim ändern der Zelle A1 auf den Wert 2, soll das alte Bild gelöscht und Bild 02 erscheinen.

Ich hoffe, es ist ein wenig verständlich.

Danke und Gruß
Tiede

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
28.11.2007 15:30:22 Tiede
NotSolved
Blau Aw:Grafik in Verbindung der Zelleingabe
 29.11.2007 16:26:02 Holger
NotSolved