title image


Smiley Re: Zweite ComboBox gezielt füllen
Hallo!



Mit untenstehendem Code wird die Combobox1 befüllt, jedoch nicht die ComboBox2

In der ComboBox1 stehen die Datren von der Spalte G.

In der ComboBox2 sollten die Daten von der Spalte B auftauchen.



Wo habe ich da bitte den Fehler gemacht?

Danke



Josef



Private Sub ComboBox1_Enter()

Dim aRow, iRow As Long

Dim col As New Collection

'ComboBox1.Clear



aRow = IIf(IsEmpty(Sheets("Tabelle1").Range("A65536")), Sheets("Tabelle1").Range("A65536").End(xlUp).Row, 65536)

On Error Resume Next

For iRow = 1 To aRow

col.Add Cells(iRow, 1), Cells(iRow, 7)

If Err = 0 Then

ComboBox1.AddItem Cells(iRow, 7)

Else

Err.Clear

End If

Next iRow

On Error GoTo 0

End Sub



Private Sub ComboBox2_Enter()



Dim aRow, iRow As Long

Dim col As New Collection

'ComboBox2.Clear



aRow = IIf(IsEmpty(Sheets("Tabelle1").Range("A65536")), Sheets("Tabelle1").Range("A65536").End(xlUp).Row, 65536)

On Error Resume Next

For iRow = 2 To aRow

col.Add Cells(iRow, 2), Cells(iRow, 2)

If Err = 0 And _

Cells(iRow, 1) = ComboBox1.Value Then

ComboBox2.AddItem Cells(iRow, 2)

Else

Err.Clear

End If

Next iRow

On Error GoTo 0

End Sub





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: