ListBox aktivieren
28.03.2005 18:15:05
Erich
bei Aktivierung einer ComboBox mit einer Spaltenbezeichnung soll
automatisch
eine Listbox mit den ausgewählten Daten befüllt werden. Bei dieser
Auswahl nach spalte funktioniert es; es wird die ausgewählte Spalte
mit den Zeilen 3 bis 8 angezeigt:
Private Sub ComboBox4_Change()
Dim m As Integer
Dim LoI As Integer
ListBox1.Clear
m = ComboBox4.ListIndex + 1
For LoI = 3 To 8
With ListBox1
.AddItem Cells(LoI, m)
End With
Next LoI
End Sub
Ähnlich möchte ich bei der ComboBox3 erreichen, dass bei Auswahl einer Spalte
die gewählte spalte + zwei weitere Spalten rechts davon angezeigt werden.
Also wenn ich D auswähle, sollen D + E + F (Zeilen 1 bis 7) angezeigt werden:
Private Sub ComboBox3_Change()
Dim sp As Integer, m As Integer
Dim LoI As Integer
Dim az As Integer
ListBox2.Clear
m = ComboBox3.ListIndex + 1
ListBox2.ColumnCount = 3
For LoI = 1 To 7
ListBox2.AddItem Format(Cells(LoI, m))
For sp = m To m + 2
ListBox2.List(LoI - 1, sp - 1) = Cells(LoI, sp)
Next sp
Next LoI
End Sub
Allerdings bringe ich den Code nicht hin.....
Besten Dank für eine Hilfe!!
mfg
Erich
http://www.toolex.de