Office: (Office 2019) Bild einfügen, wenn...

Ich habe eine Preisliste erstellt, die für verschiedene Händler mit deren Logo gebrandet werden sollen.

Jetzt meine Frage: Wenn ich in Zelle J1 einen bestimmten Händler auswähle, erschein in Zelle E4 automatisch seine Adresse und sein Name.
Jetzt möchte ich aber auch in der Zelle E1 automatisch sein Logo drin haben.
Und wenn der Händler in Zelle J1 gewechselt wird, dann soll automatisch das Bild dann auch wieder wechseln.

Vielleicht kann mir wer sagen, wie ich das zusammenbringe...

Dankeschön

 

schaue hier
Bilder einfügen

 

hallo hajo,
kenne mich bei der seite nicht wirklich aus?!
eine richtige step-by-step anleitung konnte ich jetzt nicht finden?!
lg mario

 

Gut da sind viel Beisiele.
Du hast keine passende Lösung gefunden. Ich kan Dir da dann nicht weiter Helfen.
Viel erfolg noch.

Gruß Hajo

 

Hallo Mario,

ohne einer Beispieldatei, in der alles Wesentliche enthalten ist, was zum Funktionieren benötigt wird, wird dir wahrscheinlich niemand sinnvoll helfen können. In dieser Datei kannst du Namen und diverse kritische Angaben mit Ersatznamen etc. versehen.
Angaben wie E1, E4, J1 sind ganz einfach zu dürftig, um gezielt eine sinnvolle Antwort geben zu können.
Und bitte keine Bildchen-Datei, denn mit Grafiken kann Excel nicht wirklich etwas anfangen. Solche Dateien müssten dann von uns Helfern erst wieder mühsam nachgebaut werden und würden dann wahrscheinlich trotzdem wieder in wichtigen Details von deinen Vorstellungen abweichen.

 

hallo anton,
da es sich um firmeninterne dateien und daten handelt, kann ich es hier nicht hochladen.

aber ich habe eine datei erstellt die vom prinzip her das gleiche machen soll.
also, ich hätte gerne in der datei: wenn ich in a1 sonne auswähle, dann soll das bild der sonne darunter erscheinen. wenn ich regen auswähle, soll das bild regen kommen.

wenn ich mal weiß wie das zu machen ist, kann ich es dann ja in meiner datenliste adaptieren.
zumindest stell ich mich das jetzt grad mal so vor :-)

danke vorab und liebe grüße

 

Hallo,

in der beiliegenden Zip-Datei (komprimiert mit Windows10-Dateiexplorer) habe ich dir deine modifizierte Excel-Datei eingefügt zusammen mit den 2 Logo-Dateien im *.jpg-Format.
Die Excel-Datei enthält im Arbeitsblatt "Daten" im Bereich C2:E4 die strukturierte Tabelle "tbHändler", zur Zeit mit 2 Sätzen für die beiden Händler. Dabei dient die 1.Spalte "Name" als Listenbereich für das Händler-DropDown in Zelle A3.

Wählt man im DropDown (Zelle A3) einen Händler aus, werden mittels Tabelle "tbHändler" die Daten dieses Händlers in den Zellen A11:A15 eingeblendet, wobei das Händler-Logo in die linke Hälfte der Zelle A15 geladen wird aus den externen jpg-Daten, die sich im selben Verzeichnis wie die Excel-Datei befinden müssen.

Erfolgt im DropDown (Zelle A3) die Auswahl eines neuen Händlers, wird folgende Makro-SUB "Worksheet_Change" aufgerufen, wobei sich "Target" auf die Zelle der Datenänderung bezieht. War diese in Zelle A3 wird der Rest des Makros ausgeführt, d.h. aus der externen jpg-Datei, deren Dateiname sich in der Logo-Spalte der strukt.Tabelle "tbHändler" befindet,
wird das Logo in die linke Hälfte von Zelle A15 geladen.

Die Excel-Datei enthält im Codemodul des Arbeitsblattes "Daten" folgendes Makro:

Code:

Option Explicit

Dim ShpLogo As Shape, rngShpLogo As Range

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Datei As String
  
    'Zelle A3 enthält das Händler-DropDown - eventuell anpassen!!
    If Target.Address <> "$A$3" Then Exit Sub
  
    If Not ShpLogo Is Nothing Then
       On Error Resume Next
       ShpLogo.Delete
       On Error GoTo 0
       Set ShpLogo = Nothing
    End If
  
    'Zelle A13 enthält den ausgewählten Händler-Logo-Dateinamen - eventuell anpassen!!
    Datei = ActiveWorkbook.Path & "\" & Me.Range("A13").Value
  
    'Zelle A15 ist die Zelle, in die das ausgewählte Händler-Logo gespeichert wird - eventuell anpassen!!
    Set rngShpLogo = Me.Range("A15")
  
    Set ShpLogo = Me.Shapes.AddPicture(Filename:=Datei, linktofile:=msoTrue, SaveWithDocument:=msoFalse, _
                  Left:=rngShpLogo.Left, Top:=rngShpLogo.Top, Width:=rngShpLogo.Width / 2, Height:=rngShpLogo.Height)
    ShpLogo.Name = "Logo"
End Sub

 

das sieht sehr kompliziert aus. ich dachte das geht irgendwie leichter :-(
ich werde das mal versuchen wenn ich ein paar stunden zeit dafür habe :-)

vielen dank trotzdem dafür
mario