Live-Forum - Die aktuellen Beiträge
Datum
Titel
30.10.2025 21:28:09
Excel VBA-Macro funktioniert nicht auf brasilianischen PC
30.10.2025 17:37:12
Frage zu einem PQ-Lösungsansatz ...
30.10.2025 16:54:28
DateSerial
30.10.2025 16:30:26
Mit VBA Tabs in Firefox schließen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bild einfügen

Forumthread: 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
Anzeige

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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige