über eine Listbox kann ich über Funktion fmMultiSelectMulti mehrere id´s anwählen.
Ich nächsten Schritt sucht er mir in der folgenden For-Schleifer zu jeder dieser id welche in Spalte B stehen die dazu gewünschten Werte aus deren Zeile.
Bsp: er sucht die ID welche in der Listbox gewählt wurde in Spalte B:B. Wenn die ID gefunden wurde, gibt er mir den Wert zur id aus Spalte Y aus.
Ich möchte jeden Wert der gefunden wurde hintereinander abspeichern als Vektor oder ähnliches.
Ziel ist es eine Reihe an Werte zu erhalten und diese als Bar-Chart zu plotten.
Private Sub Auswerten_Click()
Dim Diagramm As Shape
lastRow = Sheets("Messübersicht").Cells(Rows.Count, 9).End(xlUp).Row
Dim text As String
Dim i As Integer
For i = 0 To Me.ListBox_MessID.ListCount - 1
If Me.ListBox_MessID.Selected(i) Then
text = text & Me.ListBox_MessID.List(i) & vbNewLine
Set foundRng = Sheets("Messübersicht").Range("B:B").Find(Me.ListBox_MessID.List(i))
MsgBox foundRng.Address
PMWERT = Sheets("Messübersicht").Cells(foundRng.Row, foundRng.Column + 22).Value
End If
Next i
End Sub