Live-Forum - Die aktuellen Beiträge
Datum
Titel
09.10.2025 10:43:56
Flagstatus eines Meetingtems nicht abfragbar
09.10.2025 10:00:47
Von zwei Zellen mit Sverweis (B7 und H8) die Summe bilden
09.10.2025 09:48:16
Tabellen mit xverweis zusammen fügen
09.10.2025 09:37:38
Ausgabewert drei Spalten nach Rechts kopieren
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
1796to1800
1796to1800
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bilder aus ImageBoxen alden

Forumthread: Bilder aus ImageBoxen alden

Bilder aus ImageBoxen alden
04.12.2020 20:10:47
Fritz
Schönen Abend,
habe nochmals eine weitere Frage zum Laden von Bildern
Ich habe im Tabellenblatt "Daten" Bilder mit ImageBoxen eingebettet.
Diese lade ich mit folgenden Code in eine Userform
'UserForm1.Image1.Picture = Tabelle1.Image1.Picture'
das funktioniert einwandfrei.
Ich würde es aber jetzt dahingehend abändern das wenn in der Tabelle "Daten" A1 der Wert 1 steht das Picture 1 und wenn der Wert 2 steht das Picture 2 usw. gelanden wird
Danke für eure Hilfe
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bilder aus ImageBoxen alden
04.12.2020 23:50:54
Tino
Hallo,
ungetestet
UserForm1.Image1.Picture = _
Tabelle1.Shapes("Image" & Sheets("Daten").Ränge("A1").value).Picture
Gruß Tino
AW: Bilder aus ImageBoxen alden
05.12.2020 06:09:47
Fritz
Guten Morgen Tino,
ich bekomme leider eine Fehlermeldung. Vielleicht habe ich es auch schlecht erklärt. In A1 steht die Bezeichnung der Imagebox welche in der Tabelle1 eingebettet ist. Also zb. eine Imagebox hat die Bezeichnug AFG, sollte jetzt in A1 AFG stehen so soll diese geladen werden,
danke
Anzeige
AW: Bilder aus ImageBoxen alden
05.12.2020 11:59:41
Nepumuk
Hallo Fritz,
so:
Private Sub UserForm_Initialize()
    With Worksheets("Daten")
        Set Image1.Picture = .OLEObjects(.Cells(1, 1).Value).Object.Picture
    End With
End Sub

Gruß
Nepumuk
Anzeige
AW: Bilder aus ImageBoxen alden
06.12.2020 06:38:48
Fritz
Vielen Dank Nepumuk,
hast mir wieder sehr weitergeholfen
lg Fritz
;

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