Code umschreiben
21.08.2018 22:58:27
marta
ich möchte gern ein Code umschreiben weiß aber nicht wie oder wo ich ansetzten soll.
Durch ein ComboBox1 wähle ich einen Namen aus und wird Image1 angezeigt(der Bildpfad steht in Spalte B.
Das funktioniert auch sehr gut. Nun möchte den aber das Bildpfad der in Spalte B steht aus Spalte G genommen werden soll.
Wie mache ich das?
Das ist der code:
Private Sub UserForm_Initialize()
Dim letztezeile As Long
letztezeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
ComboBox1.RowSource = "'" & ActiveSheet.Name & "'!A2:B" & letztezeile
End Sub
Private Sub ComboBox1_Click()
Dim strFile As String
With ComboBox1
If .ListIndex > -1 Then
'Prüfen ob Bild vorhanden
If .List(.ListIndex, 1) "" Then
strFile = Dir(.List(.ListIndex, 1), vbNormal)
If strFile "" Then
Image1.Picture = LoadPicture(.List(.ListIndex, 1))
Else
Image1.Picture = LoadPicture("")
MsgBox "Das Bild '" & .List(.ListIndex, 1) & "' ist nicht vorhanden :-(", vbInformation
End If
Else
Image1.Picture = LoadPicture("")
End If
End If
End With
End Sub