Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
808to812
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
808to812
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bild einfügen

Bild einfügen
05.10.2006 12:51:48
Payr
Hallo Excelfans!
ich erstelle gerade eine Ergebnisliste für einen Laufbewerb.Zur Auswertung habe ich schon Hilfe bekommen, für welche ich mich nochmals herzlich bedanken möchte. nun plane ich noch folgendes.Wenn bei Anmeldung in der Exceltabelle in der Spalte "Nation" das Länderkürzel zb AUT eingetragen wird, soll neben dem Namen das bild mit der entsprechenden Fahne eingeblendet werden. Ist dieses vorhaben sehr aufwendig oder gibt es eine halbwegs rasche Lösung.
mit Dank im vorraus
HEINZ

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bild einfügen
05.10.2006 13:27:10
Reinhard
Hi Heinz,
du brauchst ein Hilfsblatt, imBeispiel Tabelle3, das so aussieht:

A            B
1   aut	    c:\test\bild1.jpg
2   xyz	    c:\test\bild2.jpg
3

Dann im eigentlichen Blatt Rechtsklick unten auf den Blattnamen, Linksklick auf CodeAnzeigen, meinen Code dort einfügen, ggfs anpassen, Editor schliessen.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
Dim Bild
If Application.WorksheetFunction.CountIf(Worksheets("Tabelle3").Columns(1), Target.Value) > 0 Then
Application.ScreenUpdating = False
ActiveSheet.Pictures.Insert(Application.WorksheetFunction.VLookup(Target.Value, Worksheets("Tabelle3").Range("A1:B500"), 2, 0)).Select
With Selection
.Top = Target.Top
.Left = Target.Offset(0, 1).Left
.Height = Target.Height
.Width = Target.Offset(0, 1).Width
End With
Application.ScreenUpdating = True
Else
For Each Bild In ActiveSheet.Shapes
If Bild.Name Like "Picture*" Then
If Bild.TopLeftCell.Address = Target.Offset(0, 1).Address Then Bild.Delete
End If
Next Bild
End If
Target.Offset(1, 0).Select
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
AW: Bild einfügen
05.10.2006 13:38:02
Payr
Hallo!
vieelen Dank.das ist perfekt.!!!
DANKE

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige