Office: (Office 2010) VBA

Zeppelin1 · 13. Dezember 2016

Hallo,
ich bin totaler VBA-Laie. Soll aber eine Userform erstellen, die mir Zellen aus einer Exceltabelle anzeigen und dann aus den angezeigten Zellinhalten, die Bildernamen enthalten die Bilder hochladen, dass sie in der Userform angezeigt werden. Der Ordner der Bilder befindet sich im selben Verzeichnis wie die Exceltabelle.
Aus verschiedenen Foren habe ich mir die Userform zusammengebastelt. Die für meine Bedürfnisse auch gut funktioniert. Die Formatierung der Userform mache ich noch. Siehe Anhang. Das ist für mich kein Problem.
Das Problem ist das Anzeigen der Bilder. In der Userform werden die Bildnamen in Textboxen (Spalte 4,5,6) angezeigt. Die Bilder befinden sich in einem eigenen Ordner und sollen von dort in die Userform geladen werden.
Wie mache ich das? Wie ist hier der VBA-Code?

Für eine schnelle Hilfe wäre ich sehr dankbar.

:)

Uwi63 · 14. Dezember 2016

Hallo,
du solltest noch ein Bild ablegen für den Fall dass die Zelle leer ist, damit kein Fehler aufkommt.
Tausche deinen Listbox1_Click-Code aus durch folgenden neuen Code und teste:
Code:

Private Sub ListBox1_Click()
Dim strBild As String, strKeinBild As String
strKeinBild = "keinBild.jpg"

Dim lZeile As Long
'Wenn der Benutzer einen Namen anklickt, suchen wir
'diesen in der Tabelle1 heraus und tragen die Daten
'in die TextBoxen ein.

'Wir löschen standardmäßig alle bisherigen TextBoxen-Inhalte
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""

'Nur wenn ein Eintrag selektiert/markiert ist
If ListBox1.ListIndex >= 0 Then

lZeile = 2 'Start in Zeile 2, Zeile 1 sind ja die Überschriftrn
'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) ""

'Wenn wir den Namen aus der ListBox1 in der Tabelle1 Spalte 1
'gefunden haben, übertragen wir die anderen Spalteninhalte
'in die TextBoxen!
If ListBox1.Text = Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) Then

'TextBoxen füllen
TextBox1 = Trim(CStr(Tabelle1.Cells(lZeile, 1).Value))
TextBox2 = Tabelle1.Cells(lZeile, 2).Value
TextBox3 = Tabelle1.Cells(lZeile, 3).Value
TextBox4 = Tabelle1.Cells(lZeile, 4).Value
TextBox5 = Tabelle1.Cells(lZeile, 5).Value
TextBox6 = Tabelle1.Cells(lZeile, 6).Value
TextBox7 = Tabelle1.Cells(lZeile, 9).Value

'Bild1
strBild = Tabelle1.Cells(lZeile, 4)
If strBild = "" Then
strBild = ThisWorkbook.Path & "" & strKeinBild
Else
strBild = ThisWorkbook.Path & "" & strBild
End If
Image1.Picture = LoadPicture(strBild)
'Bild2
strBild = Tabelle1.Cells(lZeile, 5)
If strBild = "" Then
strBild = ThisWorkbook.Path & "" & strKeinBild
Else
strBild = ThisWorkbook.Path & "" & strBild
End If
Image2.Picture = LoadPicture(strBild)
'Bild3
strBild = Tabelle1.Cells(lZeile, 6)
If strBild = "" Then
strBild = ThisWorkbook.Path & "" & strKeinBild
Else
strBild = ThisWorkbook.Path & "" & strBild
End If
Image3.Picture = LoadPicture(strBild)

Label10 = TextBox4
Label11 = TextBox5
Label12 = TextBox6

Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist

End If

lZeile = lZeile + 1 'Nächste Zeile bearbeiten

Loop
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Uwi63 · 15. Dezember 2016

Hallo nochmal,
beim letzten Code-Upload hat er meinen "Backslash" rausgelöscht, weiß jemand warum das so ist?
Habe hier nochmal einen abgeänderten Code mit "/" (geht auch) und ohne "KeinBild":
Code:

Private Sub ListBox1_Click()
Dim strBild As String

Dim lZeile As Long
'Wenn der Benutzer einen Namen anklickt, suchen wir
'diesen in der Tabelle1 heraus und tragen die Daten
'in die TextBoxen ein.

'Wir löschen standardmäßig alle bisherigen TextBoxen-Inhalte
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""

'Nur wenn ein Eintrag selektiert/markiert ist
If ListBox1.ListIndex >= 0 Then

lZeile = 2 'Start in Zeile 2, Zeile 1 sind ja die Überschriftrn
'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) ""

'Wenn wir den Namen aus der ListBox1 in der Tabelle1 Spalte 1
'gefunden haben, übertragen wir die anderen Spalteninhalte
'in die TextBoxen!
If ListBox1.Text = Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) Then

'TextBoxen füllen
TextBox1 = Trim(CStr(Tabelle1.Cells(lZeile, 1).Value))
TextBox2 = Tabelle1.Cells(lZeile, 2).Value
TextBox3 = Tabelle1.Cells(lZeile, 3).Value
TextBox4 = Tabelle1.Cells(lZeile, 4).Value
TextBox5 = Tabelle1.Cells(lZeile, 5).Value
TextBox6 = Tabelle1.Cells(lZeile, 6).Value
TextBox7 = Tabelle1.Cells(lZeile, 9).Value

'Bild1
strBild = Tabelle1.Cells(lZeile, 4)
If strBild = "" Then
Image1.Visible = False
Else
strBild = ThisWorkbook.Path & "/" & strBild
If Dir(strBild) = "" Then
Image1.Visible = False
End If
Image1.Picture = LoadPicture(strBild)
Image1.Visible = True
End If
'Bild2
strBild = Tabelle1.Cells(lZeile, 5)
If strBild = "" Then
Image2.Visible = False
Else
strBild = ThisWorkbook.Path & "/" & strBild
If Dir(strBild) = "" Then
Image2.Visible = False
End If
Image2.Picture = LoadPicture(strBild)
Image2.Visible = True
End If
'Bild3
strBild = Tabelle1.Cells(lZeile, 6)
If strBild = "" Then
Image3.Visible = False
Else
strBild = ThisWorkbook.Path & "/" & strBild
If Dir(strBild) = "" Then
Image3.Visible = False
End If
Image3.Picture = LoadPicture(strBild)
Image3.Visible = True
End If

Label10 = TextBox4
Label11 = TextBox5
Label12 = TextBox6

Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist

End If

lZeile = lZeile + 1 'Nächste Zeile bearbeiten

Loop
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Zeppelin1 · 16. Dezember 2016

Hallo Uwe,
jetzt läuft das ganze, allerdings recht zäh. Das liegt aber wohl an unserem Netzwerk.
Zwei Problemchen habe ich noch.

Die Userform hängt sich auf, wenn kein Bildname in der Zelle vorhanden ist. Deshalb habe ich jetzt ein Bild gemacht mit dem Namen "KeinBild.jpg", das ich im Bildordner abgelegt habe. Könntest Du das nochmals einfügen, dass bei leerer Zelle dann dieses Bild aufgerufen wird?

Ich habe festgestellt, dass die Bilder unterschiedliche Größen haben. Ist es möglich, daß die Bilder immer in den Bildrahmen eingepasst werden? Ob die dann gestaucht oder gezogen erscheinen ist mir relativ egal.

Vielen Dank noch für Deine Bemühungen.

Gruß

Uwi63 · 16. Dezember 2016

Hallo,
mir ist noch eingefallen, dass, wenn kein Bild eingetragen ist, die Image-Form auch ausgeblendet werden könnte, würde dann so aussehen:
Code:

Private Sub ListBox1_Click()
Dim strBild As String

Dim lZeile As Long
'Wenn der Benutzer einen Namen anklickt, suchen wir
'diesen in der Tabelle1 heraus und tragen die Daten
'in die TextBoxen ein.

'Wir löschen standardmäßig alle bisherigen TextBoxen-Inhalte
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""

'Nur wenn ein Eintrag selektiert/markiert ist
If ListBox1.ListIndex >= 0 Then

lZeile = 2 'Start in Zeile 2, Zeile 1 sind ja die Überschriftrn
'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) ""

'Wenn wir den Namen aus der ListBox1 in der Tabelle1 Spalte 1
'gefunden haben, übertragen wir die anderen Spalteninhalte
'in die TextBoxen!
If ListBox1.Text = Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) Then

'TextBoxen füllen
TextBox1 = Trim(CStr(Tabelle1.Cells(lZeile, 1).Value))
TextBox2 = Tabelle1.Cells(lZeile, 2).Value
TextBox3 = Tabelle1.Cells(lZeile, 3).Value
TextBox4 = Tabelle1.Cells(lZeile, 4).Value
TextBox5 = Tabelle1.Cells(lZeile, 5).Value
TextBox6 = Tabelle1.Cells(lZeile, 6).Value
TextBox7 = Tabelle1.Cells(lZeile, 9).Value

'Bild1
strBild = Tabelle1.Cells(lZeile, 4)
If strBild = "" Then
Image1.Visible = False
Else
strBild = ThisWorkbook.Path & "/" & strBild
If Dir(strBild) = "" Then
Image1.Visible = False
Else
Image1.Picture = LoadPicture(strBild)
Image1.Visible = True
End If
End If
'Bild2
strBild = Tabelle1.Cells(lZeile, 5)
If strBild = "" Then
Image2.Visible = False
Else
strBild = ThisWorkbook.Path & "/" & strBild
If Dir(strBild) = "" Then
Image2.Visible = False
Else
Image2.Picture = LoadPicture(strBild)
Image2.Visible = True
End If
End If
'Bild3
strBild = Tabelle1.Cells(lZeile, 6)
If strBild = "" Then
Image3.Visible = False
Else
strBild = ThisWorkbook.Path & "/" & strBild
If Dir(strBild) = "" Then
Image3.Visible = False
Else
Image3.Picture = LoadPicture(strBild)
Image3.Visible = True
End If
End If

Label10 = TextBox4
Label11 = TextBox5
Label12 = TextBox6

Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist

End If

lZeile = lZeile + 1 'Nächste Zeile bearbeiten

Loop
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wie das mit der Größe umzusetzen wäre, weiß ich allerdings auch nicht, hatte gedacht dass es über die Eigenschaft PictureSizeMode ginge, hat eben beim Testen allerdings auch nicht geklappt, müsste man noch mal googeln...

Zeppelin1 · 16. Dezember 2016

Hallo Uwe,
vielen Dank nochmals für deine Bemühungen.
Das mit dem ausgeblendeten Rahmen gefällt mir nicht.
Eindeutiger wäre das Bild "KeinBild.jpg" im Bilderrahmen.

Viele Grüße
Ich berabschiede mich jetzt in`s Wochenende

Office: (Office 2010) VBA

VBA

VBA

VBA

VBA - Similar Threads - VBA

VBA in einer Zeile zu lang

Listbox wird nicht breiter, Schriftgrösse ändert sich

Kontrollkästchen aktivieren ohne VBA - wenn KK1 angekreuzt dann KK2 auch

Per Hyperlink ausgeblendetes Blatt einblenden

Bilder über VBA Größe und DPI ändern für Webshop

VBA: Platzhalter ersetzen und evtl. leere Zeile einfügen

Erstellung eines Dynamischen Kalenders (ggf. VBA)