![]() |
Betrifft: ListView Steuerelement
von: J.L.
Sub fillverlauf() Dim VName$ VName = Dir(Pfad & "\Verlauf\*.xls") While VName <> "" ListBox3.AddItem (Left(VName, Len(VName) - 20)) ListBox4.AddItem (Mid(VName, Len(VName) - 19)) VName = Dir() Wend End Sub
![]() ![]() |
Hallo, mal ein Beispiel, wie es prinzipiell geht. In Spalte A stehen Namen, in Spalte B Vornamen: Private Sub UserForm_Initialize() Dim x As Long Dim ix As ListItem With ListView1 .ColumnHeaders.Add , , "Name", 80 .ColumnHeaders.Add , , "Vorname", 80 .View = 3 For x = 1 To 10 .ListItems.Add , , Cells(x + 1, 1) .ListItems(x).SubItems(1) = Cells(x + 1, 2) Next End With End Sub
Gruß K.Rola
Oscar Wilde
![]() ![]() |
Private Sub UserForm_Initialize() Dim x As Long, pfad$ , VName$ Dim ix As ListItem pfad = CreateObject("Scripting.FileSystemObject").GetFile(ActiveWorkbook.Path & "\" & ActiveWorkbook.Name).parentfolder.parentfolder With ListView1 .Width = 240 .ColumnHeaders.Add , , "Name", 80 .ColumnHeaders.Add , , "erstellt am", 80 .ColumnHeaders.Add , , "zuletzt bearbeitet", 80 .ColumnHeaders.Add , , "Name komplett", 80 .View = 3 VName = Dir(pfad & "\Verlauf\*.xls") While VName <> "" x = x + 1 .ListItems.Add , , Left(VName, Len(VName) - 20) .ListItems(x).SubItems(1) = Mid(VName, Len(VName) - 18, 8) .ListItems(x).SubItems(2) = FileDateTime(pfad & "\Verlauf\" & VName) .ListItems(x).SubItems(3) = pfad & "\Verlauf\" & VName VName = Dir() Wend End With End Sub
![]() ![]() |
Hallo, Private Sub ListView1_DblClick() Dim Pfad As String Pfad = ListView1.SelectedItem.ListSubItems(3).Text MsgBox Pfad End Sub
Gruß K.Rola
Oscar Wilde
![]() ![]() |
![]() ![]() |
![]() ![]() |
Hallo, wenn die Anwendung privat ist, mit Listview, wenn es ein Auftrag ist, wird mit Auftraggeber geklärt, wie er es haben will. Mir ist dann allerdings dann die Listbox lieber, weil weniger Aufwand.
Gruß K.Rola
Oscar Wilde
![]() ![]() |
![]() |