Guten Morgen,
ich habe eine ListBox mit Werten aus einer Tabelle (B7:B21) gefüttert. Wenn ich nun einen Wert in der ListBox selektiere wird der seleketierte Wert als Label angezeigt (das klappt!). Darüber hinaus soll in der zugrundegelegten Tabelle der Wert aber noch rausgesucht werden und die entsprechende Zahl dazu (C7:C21), die sich eine Spalte weiter befindet, ebenfalls als Label angezeigt werden. Ich habe es mit einer Schleife wie folgt vergeblich versucht:
For intIndex = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(intIndex) = True Then
Label1.Caption = ListBox1.List(intIndex)
For intCounter = 7 To 21
Sheets("Calculator").Range("B(intCounter)").Value = ListBox1.List(intIndex)
Label2.Caption = Format(Sheets("Calculator").Range("C(intCounter)"), "0.00")
Next intCounter
End If
Next intIndex
Für Eure Hilfe wäre ich dankbar!
MfG MAX