Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 12:57:21
Makro für aktuell geöffn. Datei mit gleichen Namen speichern
23.04.2024 12:37:19
gew. Mittelwert Spalten mit Text ignorieren
23.04.2024 12:29:20
VBA nur Zeilen mit bestimmten Eintrag selektieren
23.04.2024 11:26:57
Probleme mit tbl.Listrows.add
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1796to1800
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
1796to1800
1796to1800
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige