Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
768to772
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
768to772
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
JEPG - Bilder in UserForm
01.06.2006 11:12:01
Emilia
Hallo meine lieben, habe mal wieder eine Frage an Euch.
Hier unten dargestellt, kann ich Ecxeldatein in UserForm öffnen.
Nun meine Frage, kann man die auch mit Bilder die alle in einem Ordner sind machen. Ich habe mir überlegt das ich mit einem CommandButten eine Userform öffne wo alle Bilddatein angezeigt werden, wenn ich dann ein Bild auswähle und mit Ok bestätige soll eine zweite Userform geöffnet werden wo das Bild angezeit wird.

Private Sub CommandButton2_Click()
Dim Importdatei
Importdatei = Application.GetOpenFilename("Exceldateien (*.xls), *.xls")
If Importdatei = False Then Exit Sub
Unload Me
Workbooks.Open Filename:=Importdatei
End Sub


Private Sub CommandButton3_Click()
'UserForm schließen'
Unload Me
End Sub


Private Sub UserForm_Initialize()
Me.ListBox1.AddItem "Test1.xls"
Me.ListBox1.AddItem "Test2.xls"
Me.ListBox1.AddItem "andere Firmen 2006.xls"
End Sub

Ist dies machbar, wenn ja kann mir einer den VBA schreiben bzw. dann auch schreiben wie ich dann alles einsetzen muß.
Währe super, wenn mir eine Helfen könnte.
Gruß Emi

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: JEPG - Bilder in UserForm
01.06.2006 18:37:34
EtoPHG
Hallo Emi,
Probier mal das:
https://www.herber.de/bbs/user/34090.xls
Gruss Hansueli
Anzeige

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige