Und da hätten wir auch schon das nächste Problem.
Ich würde gerne in einer Userform ein Teilnehmer-Bild darstellen. Die Userform beinhaltet eine Listbox und je nachdem welcher Eintrag, bzw. welcher User in der Listbox ausgewählt wird, soll sich das Bild entsprechend ändern.
Das klappt auch.
Allerdings wird eine Fehlermeldung erzeugt, wenn ein neuer Teilnehmer angelegt wurde und noch kein Bild dazu vorhanden ist. Hier hätte ich gerne, dass dann ein Platzhalter eingesetzt wird und zwar so lange, bis das richtige Bild vorhanden ist.
Der Dateiname des Bildes wird automatisch anhand vom Nachnamen generiert.
Ich habe es so versucht:
Wenn ich das so ausführe, kommt ein Fehler, weil er das Teilnehmerbild nicht findet. Logisch, es ist ja auch noch keins da. Aber den Platzhalter setzt er trotzdem nicht ein.
Wie immer:
Vielen Dank für eure Hilfe!!!
Ich würde gerne in einer Userform ein Teilnehmer-Bild darstellen. Die Userform beinhaltet eine Listbox und je nachdem welcher Eintrag, bzw. welcher User in der Listbox ausgewählt wird, soll sich das Bild entsprechend ändern.
Das klappt auch.
Allerdings wird eine Fehlermeldung erzeugt, wenn ein neuer Teilnehmer angelegt wurde und noch kein Bild dazu vorhanden ist. Hier hätte ich gerne, dass dann ein Platzhalter eingesetzt wird und zwar so lange, bis das richtige Bild vorhanden ist.
Der Dateiname des Bildes wird automatisch anhand vom Nachnamen generiert.
Ich habe es so versucht:
Quellcode
- Sub ListBox1_click()
- Dim pfad As String
- Dim name As String
- Dim Geb_Dat As String
- Dim platzhalter As String
- Dim pfadplatzh As String
- Dim imagename As String
- pfad = ActiveWorkbook.Path & "\Bilder\"
- pfadplatzh = ActiveWorkbook.Path & "\Images\"
- name = Me.ListBox1.List(ListBox1.ListIndex, 0)
- imagename = name & ".jpg"
- platzhalter = "platzhalter.jpg"
- If Dir(pfad) <> "" Then
- Image1.Picture = LoadPicture(pfad & imagename) 'hier wird das Teilnehmerbild abgefragt
- Image1.PictureSizeMode = fmPictureSizeModeStretch
- Else
- Image1.Picture = LoadPicture(pfadplatzh & platzhalter) 'wenn das Teilnehmerbild nicht vorhanden, dann soll der Platzhalter eingesetzt werden
- Image1.PictureSizeMode = fmPictureSizeModeStretch
- End If
- End Sub
Wenn ich das so ausführe, kommt ein Fehler, weil er das Teilnehmerbild nicht findet. Logisch, es ist ja auch noch keins da. Aber den Platzhalter setzt er trotzdem nicht ein.
Wie immer:
Vielen Dank für eure Hilfe!!!