Listview
10.07.2018 15:22:25
Philip
Ich habe eine Userform mit einer Textbox einem Button und einer Listview.
Die Listview befülle ich mit Werten die ich mit der Textbox in einer Tabelle suche.
Dafür habe ich folgenden Code:
Private Sub CommandButton2_Click()
Dim rngCell As Range
Dim strFirstAddress As String
Dim lstItem As ListItem
With Worksheets("Mittelwerte").Range("E4:E700")
Me.ListView1.ListItems.Clear
Set rngCell = .Find(Me.TextBox2.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not rngCell Is Nothing Then
strFirstAddress = rngCell.Address
Do
With Me.ListView1
Set lstItem = ListView1.ListItems.Add
lstItem.Text = rngCell.Offset(0, -4).Value
lstItem.SubItems(1) = Format(rngCell.Offset(0, -3), "hh:mm")
lstItem.SubItems(2) = rngCell.Offset(0, -2).Value
lstItem.SubItems(3) = rngCell.Offset(0, -1).Value
lstItem.SubItems(4) = rngCell.Value
lstItem.SubItems(5) = rngCell.Offset(0, 1).Value
lstItem.SubItems(6) = rngCell.Offset(0, 2).Value
lstItem.SubItems(7) = rngCell.Offset(0, 3).Value
lstItem.SubItems(8) = rngCell.Offset(0, 4).Value
lstItem.SubItems(9) = rngCell.Offset(0, 5).Value
lstItem.SubItems(10) = rngCell.Offset(0, 6).Value
lstItem.SubItems(11) = rngCell.Offset(0, 7).Value
lstItem.SubItems(12) = rngCell.Offset(0, 8).Value
lstItem.SubItems(13) = rngCell.Offset(0, 9).Value
lstItem.SubItems(14) = rngCell.Offset(0, 10).Value
lstItem.SubItems(15) = rngCell.Offset(0, 11).Value
lstItem.SubItems(16) = rngCell.Offset(0, 12).Value
lstItem.SubItems(17) = rngCell.Offset(0, 13).Value
lstItem.SubItems(18) = rngCell.Offset(0, 14).Value
lstItem.SubItems(19) = rngCell.Offset(0, 15).Value
lstItem.SubItems(20) = rngCell.Offset(0, 16).Value
lstItem.SubItems(21) = rngCell.Offset(0, 17).Value
lstItem.SubItems(22) = rngCell.Offset(0, 18).Value
lstItem.SubItems(23) = rngCell.Offset(0, 19).Value
lstItem.SubItems(24) = rngCell.Offset(0, 20).Value
lstItem.SubItems(25) = rngCell.Offset(0, 21).Value
lstItem.SubItems(26) = rngCell.Offset(0, 22).Value
.FullRowSelect = True
.Gridlines = True
End With
Set rngCell = .FindNext(rngCell)
Loop While Not rngCell Is Nothing And rngCell.Address strFirstAddress
Else
MsgBox "Belag nicht Gefunden", 48
End If
End With
End Sub
Das funktioniert soweit auch einwandfrei.
Ich möchte jetzt das in der untersten Zeile jeweils der Mittelwert der Werte aus der Listview stehen.
Ist das irgendwie machbar?
Gruss