AW: zellen in Listbox einlesen
18.01.2004 19:20:01
Jens
Hallo
Ich hoffe mal dich richtig verstanden zu haben.
Sub Listbox_mit_Zeile1_fuellen()
Dim a As Byte
ListBox1.Clear 'Löschen des Listboxinhaltes
For a = 1 To Range("IV1").End(xlToLeft).Column 'von Spalte 1 bis letzte Spalte
ListBox1.AddItem Cells(1, a).Value
Next a
End Sub
Auf Doppelklick die Zellen unter der Zelle die in der Listbox gewählt ist markieren.
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim Spaltennamen As String
Dim a As Byte
Spaltennamen = ListBox1
For a = 1 To Range("IV1").End(xlToLeft).Column
If Cells(1, a).Value = Spaltennamen Then
Range(Cells(2, a), Cells(Cells(65536, a).End(xlUp).Row, a)).Select
End If
Next a
End Sub
Ich hoffe das es dir einwing bei deinen Problem hilft.
Gruß Jens