Super Tipp, den ich ohne dich bestimmt nicht gefunden hätte. Soweit alles klar, bis auf die Spaltensortierung, die bei mir nicht klappt. Brauchts hier noch eine besondere Einstellung? VG Andreas
Interessant wehre Mal ein Klipp zum Thema wie man Zellen/Schrift Anhand einer Bedingung wie zum beichbiel doppelte werte in der LiestVew Einfärben oder so 🤔
Ein Tolles Video.. vielen lieben Dank. Wie kann mann in Listview eine Dynamische Suchfunktion implementieren so dass nur die gesuchte Einträge sehen kann? Sie haben eine tolle Suchfunktion in Listbos implementiert, die ist klasse.
Hi Philipp, ich habe da mal Ampeln in die Spalten reingenommen. Und wieder ein neues Beispiel für meinen VBA-Tanker (-; Gugsch Du.. Private Sub UserForm_Initialize() Dim lngZeile As Long, lngZeileMax As Long, lngSpalte As Long Dim lngZ As Long Me.ImageList1.ListImages.Add Key:="Rot", Picture:=LoadPicture(ThisWorkbook.Path & "\Rot.jpg") Me.ImageList1.ListImages.Add Key:="Gelb", Picture:=LoadPicture(ThisWorkbook.Path & "\Gelb.jpg") Me.ImageList1.ListImages.Add Key:="Grün", Picture:=LoadPicture(ThisWorkbook.Path & "\Grün.jpg") lngZeileMax = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row Set Me.ListView1.ColumnHeaderIcons = Me.ImageList1 Set Me.ListView1.Icons = Me.ImageList1 Set Me.ListView1.SmallIcons = Me.ImageList1 With Me.ListView1 .FullRowSelect = True 'Ganze Zeile wird markiert .View = lvwReport 'Berichtsvariante .LabelEdit = lvwAutomatic 'Einträge können im ListView geändert werden .Gridlines = True 'Gitternetz anzeigen .AllowColumnReorder = True 'Spalten verschieben - erlauben! .MultiSelect = True 'Mehrfachauswahl zulassen End With With ListView1.ColumnHeaders .Clear .Add Text:=Tabelle1.Cells(1, 1), Width:=80, Alignment:=0 'Datum linksbündig .Add Text:=Tabelle1.Cells(1, 2), Width:=100, Alignment:=0 'Region links .Add Text:=Tabelle1.Cells(1, 3), Width:=80, Alignment:=1 'Umsatz rechsbündig End With lngZ = 1 For lngZeile = 2 To lngZeileMax With ListView1 .ListItems.Add , , Format(Tabelle1.Cells(lngZeile, 1).Value, "DD.MM.YY") .ListItems(lngZ).SubItems(1) = Tabelle1.Cells(lngZeile, 2) .ListItems(lngZ).SubItems(2) = Format(Tabelle1.Cells(lngZeile, 3), "#,##0.00") Select Case Tabelle1.Cells(lngZeile, 3).value Case Is < 1000 .ListItems(lngZ).ListSubItems(2).ForeColor = RGB(255, 0, 0) .ListItems(lngZ).ListSubItems(2).ReportIcon = "Rot" Case 1000 To 5000 .ListItems(lngZ).ListSubItems(2).ReportIcon = "Gelb" Case Is > 5000 .ListItems(lngZ).ListSubItems(2).ReportIcon = "Grün" End Select lngZ = lngZ + 1 End With Next lngZeile End Sub Vg Bernd
Hi, ich hätte da Mal ein Problem bei dem du mir vielleicht helfen kannst. Könntest du eventuell ein Video zu Listview Steuerelement machen? Es geht mir darum, ich habe eine Exceldatei mit mehreren Tabellen und möchte die Inhalte der einzelnen Tabellen mir in der Listview anzeigen lassen. Dazu hab ich Optionbuttons eingefügt und mit den jeweiligen Tabellen verknüpft. Nun möchte ich über ein combutton die Inhalte von der aktivierten Tabelle anzeigen lassen. Geht das?
Hi Spike, das wäre möglich, wenn die Inhalte auf allen Tabellen die gleiche Struktur hätten. Wenn Du magst, dann kannst mir je mal eine kleine Beispieldatei senden. Ich schaue es mir dann gerne mal an. b.held@held-office.de
Hallo Silvio, der Code könnte wie folgt aussehen: Private Sub UserForm_Initialize() Dim lngZeile As Long, lngZeileMax As Long, lngSpalte As Long Dim wksTab As Worksheet For Each wksTab In Worksheets If wksTab.Name "LCT-Start" Then Me.ComboBox1.AddItem wksTab.Name End If Next wksTab With Me.ListView1 .FullRowSelect = True 'Ganze Zeile wird markiert .View = lvwReport 'Berichtsvariante .LabelEdit = lvwAutomatic 'Einträge können im ListView geöndert werden .Gridlines = True 'Gitternetz anzeigen .AllowColumnReorder = True 'Spalten verschieben - erlauben .MultiSelect = True 'Mehrfachauswahl zulassen End With With ListView1.ColumnHeaders .Add , , "Hersteller", 80, 0 .Add , , "Serie", 100, 2 .Add , , "Model", 80, 1 .Add , , "Location", 80, 1 .Add , , "Beschaffung", 80, 1 .Add , , "End of sale", 80, 0 .Add , , "End of support", 80, 0 End With End Sub ich habe Dir die Demodatei dazu geschickt, Möglicherweise ist es auch für andere Anwender von Interesse. VG Bernd
