PrivateSub CommandButton1_Click() Dim dieListe AsVariant Dim out AsVariant dieListe = ListBox1.List out = WorksheetFunction.Index(dieListe, 0, 3) 'MsgBox Join(WorksheetFunction.Transpose(out), vbCrLf) EndSub
ransi
Anzeige
AW: WorksheetFunction.Index(dieListe, 0, 3)
25.10.2013 15:36:02
Lorenz
Hallo Ransi
Wahrscheinlich lag es an meiner Schilderung des Problem´s. Ich kann den Code zwar verwenden (in einem anderen Zusammenhang hab ich ihn gleich eingebaut). Ich würde aber nicht die ganze transponierte Liste benötigen, sondern lediglich den Wert aus der Spalte (3) aus der (einer) selektierten Zeile.
Danke für deine Unterstützung
& Grüsse
Lorenz