Einen guten Rutsch ins neue Jahr wünsche ich allen fleißigen Helfern und allen sich hier im Forum sonst tummelnden Usern!
Mittels folgenden Code:
Dim lng As Long
Dim i As Integer
With frmMP3
Sheets("MP3_Ordner").Activate
.ListBox2.Clear
Sheets("MP3_Ordner").Activate
i = 0
For lng = 10 To ActiveSheet.UsedRange.Rows.Count
If Cells(lng, 54).Value = CDbl(.ComboBox1) And Cells(lng, 55).Value = .ComboBox3 Then
.ListBox2.AddItem Cells(lng, 53).Value
.ListBox2.Column(1, i) = Cells(lng, 55).Value
.ListBox2.Column(2, i) = Cells(lng, 56).Value
.ListBox2.Column(3, i) = Cells(lng, 57).Value
.ListBox2.Column(4, i) = Cells(lng, 58).Text
.ListBox2.Column(5, i) = Cells(lng, 59).Text
.ListBox2.Column(6, i) = Cells(lng, 60).Text
i = i + 1
Else
End If
Next lng
End With
... werden Daten in die ListBox geschrieben. In der fett markierten Spalte stehen in der Tabelle HYPERLINK's. Diese sollen nun auch als HYPERLINK's in der ListBox erscheinen. Wie muss ich das anstellen?
L.G. Frank H.