ich weiß, ich weiß, ListView ist kein Excel-Steuerelement, aber dennoch spreche ich mein Listview über VBA an. Also, bitte keine Antworten wie "Das gehört hier nicht hin!", danke. (Sorry, aber hab ich des öfteren zu diesem Thema in der Recherche gelesen.)
Ich gebe dem User mit der Eigenschaft ´ListView1.AllowColumnReorder` die Möglichkeit, die Spalten zu verschieben.
Nun würde ich gern diese Einstellung "speichern" (sprich in einen Array, Zelle, Variabel, sonstwohin). Das stellt dann kein Problem dar.
Leider verändert sich aber der Index der Spalten nicht mit dem Verschieben und somit ist sowohl der Index als auch der Text der Spalten beim Auslesen unverändert!
Range("H1").ClearContents
For k = 1 To ListView1.ColumnHeaders.Count
If k = 1 Then
Range("H1").Value = ListView1.ColumnHeaders(k).Text
Else
Range("H1").Value = Range("H1").Value & "," & ListView1.ColumnHeaders(k).Text
End If
Next
Weiß jemand Rat, mit welcher Eigenschaft ich die momentane Position der Spalten auslesen kann?
Gruß Andre