Autofilter und ComboBox
21.09.2003 10:09:56
VolkerM
Ich möchte, nachdem der Autofilter gesetzt worden ist, nur die sichtbaren Datensätze in eine ComboBox einlesen und die Daten einer Zeile in TextBoxen
anzeigen lassen.
Mit dem Code
Private Sub UserForm_Initialize()
Dim intCounter As Integer
For intCounter = 2 To 105
cboListe.AddItem Sheets("DatenC").Cells(intCounter, 202)
Next intCounter
cboListe.ListIndex = 0
End Sub
Private Sub cboListe_Change()
txtAuswahl.text = Sheets("DatenC").Cells(cboListe.ListIndex + 2, 203)
txtAuswahl1.text = Sheets("DatenC").Cells(cboListe.ListIndex + 2, 204)
txtAuswahl2.text = Sheets("DatenC").Cells(cboListe.ListIndex + 2, 205)
txtAuswahl3.text = Sheets("DatenC").Cells(cboListe.ListIndex + 2, 206)
End Sub
fülle ich zur Zeit die Combo- und Textboxen.
Habe mit
"Sheets("DatenC").Range("GT1").CurrentRegion.SpecialCells(xlCellTypeVisible)"
probiert, bekomme es aber nicht hin. Hat jemand eine Lösung?
Danke im Voraus.
Gruß Volker