Datum

Titel

18.04.2024 12:28:32

Formelfehler aufgrund Einfügen einer Zeile

18.04.2024 11:51:04

Aus Listbox Spalte als Wert zurück bekommen

18.04.2024 11:36:51

Beim Öffnen je nach Datum zu bestimmter Zelle springen

18.04.2024 11:16:38

Pfade werden mit Anführungszeichen "" versehen

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1572to1576

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Bild in Userform

Forumthread: Bild in Userform
11 Beiträge zu diesem Forumthread
Anzeige
303 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Excel Dialoge
Top 100 Forumthreads

Bild in Userform

21.08.2017 09:44:07

Hermelin

Hallo Zusammen
Ich möchte ein Bild in die User Form laden, die jedes mal das Bild des aktuellen User zeigt. Wie bringe ich das hin?
Bilder sind auf Festplatte in seperatem Verzeichnis gespeichert.
Wäre super wenn das jemand weiss.

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Bild in Userform

21.08.2017 09:53:20

ChrisL
AW: Bild in Userform

21.08.2017 11:13:06

Hermelin
AW: Bild in Userform

21.08.2017 11:20:49

ChrisL
AW: Bild in Userform

22.08.2017 10:13:51

Hermelin
AW: Bild in Userform

22.08.2017 16:30:55

ChrisL
AW: Bild in Userform

21.08.2017 12:21:14

Nepumuk
AW: Bild in Userform

22.08.2017 10:28:11

Hermelin
AW: Bild in Userform

22.08.2017 10:32:32

Nepumuk
AW: Bild in Userform

22.08.2017 11:06:38

Hermelin
AW: Bild in Userform

22.08.2017 11:12:20

Nepumuk
AW: Bild in Userform

22.08.2017 11:30:09

Hermelin

AW: Bild in Userform

21.08.2017 09:53:20

ChrisL

Hi
Du könntest Environ("Username") (=Windows-Username) abfragen. Im Idealfall entspricht der Name der Bilddatei dem Usernamen, dann ist der Code kurz:
UserForm1.Image1.Picture = LoadPicture("C:\Pfad\" & Environ("Username"))
Ansonsten mittels separater Übersetzungstabelle oder so...

Private Sub UserForm_Initialize()
Dim strPicFile As String
Select Case Environ("Username")
Case "Meier": strPicFile = "HansMeier.jpg"
Case "Müller": strPicFile = "AnnaMeier.jpg"
Case Else
MsgBox "kein Bild vorhanden."
Exit Sub
End Select
UserForm1.Image1.Picture = LoadPicture("C:\Pfad\" & strPicFile)
End Sub

cu
Chris

AW: Bild in Userform

21.08.2017 11:13:06

Hermelin

Hi ChrisL
Danke für die schnelle Antwort. Irgendwie klappt das nicht bei mir.
Dieses Hier unter Initialize() klappt einwandfrei. Nur liest es mir den User nicht automatisch raus.
Image1.Picture = LoadPicture("\\Pfad\***.jpg")
Wie bringe ich den UserName hier automatisch rein oder was mach ich bei Deiner Version falsch?

AW: Bild in Userform

21.08.2017 11:20:49

ChrisL

Hi
Wie lauten die Dateinamen und wie lauten die Usernamen?
Vielleicht...
UserForm1.Image1.Picture = LoadPicture("C:\Pfad\" & Environ("Username") & ".jpg")
cu
Chris

AW: Bild in Userform

22.08.2017 10:13:51

Hermelin

Hallo ChrisL und Nepumulk
Sorry gestern nicht mehr dazu gekommen es zu testen und zu Antworten.
Hab den Code so eingebaut:

Private Sub UserForm_Initialize()
Dim tblDaten As Worksheet
Set tblDaten = Worksheets("Adressliste")
'Tiel der User Form
frm_Daten.Caption = Sheets("Adressliste").Cells(1, 1).Value
'Beschriftungen für die Bezeichnungsfelder aus Tabelle holen
With frm_Daten
.Label1.Caption = tblDaten.Cells(1, 1).Value
.Label2.Caption = tblDaten.Cells(1, 2).Value
.Label3.Caption = tblDaten.Cells(1, 3).Value
.Label4.Caption = tblDaten.Cells(1, 4).Value
.ListBox1.ColumnCount = 6
.ListBox1.ColumnWidths = "50;250;250;250"
.TextBox1.SetFocus
End With
frm_Daten.Label42.Caption = frm_Daten.Label1.Caption
frm_Daten.Label43.Caption = frm_Daten.Label2.Caption
frm_Daten.Label44.Caption = frm_Daten.Label3.Caption
frm_Daten.Label45.Caption = frm_Daten.Label4.Caption
Const FOLDER_PATH As String = "Pfad\" 'Pfad zu den Bildern - anpassen !!!
Dim strPicturePath As String
strPicturePath = Dir$(FOLDER_PATH & Environ$("USERNAME") & ".jpg")
If strPicturePath = vbNullString Then
Call MsgBox("Kein Bild vorhanden.", vbExclamation, "Hinweis")
Else
Set Image2.Picture = LoadPicture(FOLDER_PATH & strPicFile)
End If
' Dieser Teil dient dazu, dass Textbox6 aktiv wird beim öffnen der UserForm
TextBox6.SetFocus
End Sub

Leider startet die frm_Daten nicht mehr kommt zu Fehlermeldung.

AW: Bild in Userform

22.08.2017 16:30:55

ChrisL

Hi
Ich nehme an die Fehlermeldung lautet "kein Bild vorhanden"?
Kann eigentlich nur heissen, dass der Pfad falsch ist. Ich tippe du hast den letzten Backslash vergessen.
Ansonsten könntest du die Bilddateien zum Quercheck mal lokal (kein Serververzeichnis wegen Berechtigungen und so) ablegen.
Und den Pfad zur Überprüfung mal in einer MsgBox ausgeben.
...
Dim strPicturePath As String
MsgBox FOLDER_PATH & Environ$("USERNAME") & ".jpg"
Exit Sub
strPicturePath = Dir$(FOLDER_PATH & Environ$("USERNAME") & ".jpg")
...
cu
Chris

AW: Bild in Userform

21.08.2017 12:21:14

Nepumuk

Hallo Hermelin,
teste mal:

Private Sub UserForm_Initialize()
    Const FOLDER_PATH As String = "C:\Ordner\" 'Pfad zu den Bildern - anpassen !!!
    Dim strPicturePath As String
    strPicturePath = Dir$(FOLDER_PATH & Environ$("USERNAME") & ".jpg")
    If strPicturePath = vbNullString Then
        Call MsgBox("Kein Bild vorhanden.", vbExclamation, "Hinweis")
    Else
        Set Image1.Picture = LoadPicture(FOLDER_PATH & strPicFile)
    End If
End Sub

Gruß
Nepumuk

AW: Bild in Userform

22.08.2017 10:28:11

Hermelin

Guten Morgen Nepumuk
Ich habe es nun noch versucht mit einer ganz neuen Datei und hab Dein VBA eingefügt.
Leider kommt hier "nur noch" die Fehlermeldung, dass er kein Bild findet obwohl es am richtigen Ort (Pfad) und das Bild mit dem Usernamen benannt ist.
Hast Du noch einen Tip?

AW: Bild in Userform

22.08.2017 10:32:32

Nepumuk

Hallo Hermelin,
als Pfad hast du das angegeben:
"Pfad\"
so einen Pfad gibt es in Windows nicht. Öffne den Ordner in dem sich die Bilder befinden und kopiere den Pfad aus der Adressleiste. Vergiss aber nicht den letzten Backslash.
Gruß
Nepumuk

AW: Bild in Userform

22.08.2017 11:06:38

Hermelin

Hi Nepumuk
Nein, ich habe wie Du geschrieben hast, den Pfad aus der Adressleiste herauskopiert, dennoch will er nicht wie ich und kommt mit der Fehlermeldung und wenn ich es in der bestehenden UserForm "frm_Daten" laufen lasse würgt es mir alles ab und die frm_Daten UserForm kommt nicht mal mehr ins laufen.

AW: Bild in Userform

22.08.2017 11:12:20

Nepumuk

Hallo Hermelin,
kannst du mal eine Mustermappe hochladen die nur das Userform beinhaltet? Einfach parallel zu der Mappe eine neue öffnen und das Userform im VBA-Editor per Drag & Drop im Projektexploer in die neue Mappe ziehen.
Gruß
Nepumuk

AW: Bild in Userform

22.08.2017 11:30:09

Hermelin

Hi Nepumuk
Hat geklappt
Mit der Formel von ChrisL hat es funktioniert. Ich Depp hab vergessen seine zu testen. Sorry ChrisL.
frm_Daten.Image2.Picture = LoadPicture("Pfad\" & Environ("Username") & ".jpg")
Kannst Du mir noch helfen, was ich eingeben muss, damit, wenn der User kein Bild möchte nicht immer eine Fehlermeldung kommt, da nichts gefunden wird?
Geht dies oder einfacher mit einer Mustermappe?