AW: comboboxen in Abhängigkeit mit Zahlen
30.08.2007 22:07:00
Thomas
Hallo zusammen,
habe mittlererweile eine weitere Variante entdeckt, die aber ziemlich langsam ist:
Option Explicit
Private Const erstezeile% = 4 'Erste zu durchsuchende Zeile in Spalte s1
Private Const letztezeile% = 1000 'Letzte zu durchsuchende Zeile in Spalte s1
Private Const s1% = 1 'Erste Spalte (hier A)
Private Const s2% = 2 'Zweite Spalte (hier B)
Dim m%, n%, z%, i%
'Combobox1 füllen, Doppelungen vermeiden
Private Sub CommandButton100_Click()
Sheets("DB_Objekt").Select
ComboBox100.Clear
ComboBox200.Clear
ReDim v(0)
m = 0
'For z = erstezeile To letztezeile
' For n = 0 To m
' If v(n) = Cells(z, s1).Text Then GoTo nächste
' Next
'm = m + 1
'ReDim Preserve v(m)
'v(m - 1) = Cells(z, s1)
'nächste:
'Next
'in die zweite Spalte ab Zeile 1 einlesen
For i = 0 To m
If v(i) "" Then ComboBox100.AddItem (v(i))
Next
End Sub
'Combobox2 füllen, Doppelungen vermeiden
Private Sub ComboBox100_Change()
ComboBox200.Clear
For z = erstezeile To letztezeile
If Cells(z, s1) = ComboBox100.Text Then
For i = 0 To ComboBox200.ListCount - 1
If ComboBox200.List(i) = Cells(z, s2).Text Then GoTo nächste
Next
ComboBox200.AddItem (Cells(z, s2))
End If
nächste:
Next
End Sub
Hat jemand eine Ahnung woran das liegt?
Alternativ verfolge ich immer noch eine Lösung zu meiner ursprünglichen Anfrage,die schneller läuft, nur eben keine Werte wie "1" berücksichtigt. Leider komme ich auch bei diesem Problem nicht weiter :((
Tom