AW: image-pfad
14.05.2010 16:18:55
fcs
Hallo Rolf,
die folgenden Prozeduren muss du anpassen.
Zusätzlich muss du im Userform für die Listbox1 die Eigenschaft ColumnCount auf 12 setzen.
Warum verzichtest du eigentlich beim Bezug auf Tabellenblätter auf die ürsprünglich mal eingesetzte With-Methode?
Bei der Vielzahl an Zeilen, die du im Code ansprichts veringert sich der Speicherbedarf für den Code bestimmt um ca 25%. Außerdem wird der Code für meinen Geschmackt dadurch übersichtlicher.
Gruß
Franz
Sub Zeigen2()
With ThisWorkbook.Sheets("Abstammungen")
x = .Cells(.Rows.Count, 2).End(xlUp).Row '## angepasst fcs
ReDim was(0 To x, 0 To 12) '## angepasst fcs
For i = 1 To x '## angepasst fcs
was(i - 1, 0) = .Cells(i, 2).Value 'Name
was(i - 1, 1) = .Cells(i, 7).Value
was(i - 1, 2) = .Cells(i, 10).Value
was(i - 1, 3) = .Cells(i, 11).Value
was(i - 1, 4) = .Cells(i, 12).Value
was(i - 1, 5) = .Cells(i, 8).Value
was(i - 1, 6) = .Cells(i, 9).Value
was(i - 1, 7) = .Cells(i, 18).Value
was(i - 1, 8) = .Cells(i, 61).Value
was(i - 1, 9) = .Cells(i, 18).Value
was(i - 1, 10) = .Cells(i, 13).Value
was(i - 1, 11) = .Cells(i, 133).Value 'Bild-Dateiname'## angepasst fcs
'was(i, 11) = ThisWorkbook.Sheets("Abstammungen").Cells(i, 133).Value 'Bild-Dateiname
Next
End With
Abstammungen.ListBox1.List = was
Abstammungen.Show
End Sub
'Bild - Pfad
Private Sub CommandButton16_Click()
With Me.ListBox1
If .ListIndex -1 Or .Value = "" Then
bewBild = .List(.ListIndex, 11) '### geändert fcs
If IsEmpty(bewBild) Then
MsgBox "Noch kein Bild zugeordnet!"
ElseIf Dir(bewBild) "" Then
Me.Image1.Picture = LoadPicture(bewBild)
Else
MsgBox "Bild-Datei """ & bewBild & """ zu Name nicht gefunden!"
End If
Else
MsgBox "Bitte erst einen Namen wählen!"
End If
End With
End Sub