ComboBox füllen aus nicht aktiven Tabelle
25.02.2013 19:57:06
chandler
trotz intensiver Recherche habe ich nichts gefunden was mir weiter hilft.
Was muss im nachfolgenden Code geändert werden damit die ComboBox mit Werten aus nicht aktiven "Tabelle2" gefüllt wird?
Habe versucht mit With Worksheets("Tabelle2") leider ohne Erfolg. Es wird immer nur die aktive Tabelle eingelesen.
Mein Beispiel:
Private Sub UserForm_Initialize()
Dim iRow As Integer
With Worksheets("Tabelle2")
iRow = 2
With ComboBox1
.Clear
.AddItem "New"
Do While IsEmpty(Cells(iRow, 1)) = False
.AddItem Cells(iRow, 1)
iRow = iRow + 1
Loop
End With
End With
End Sub
Vielen Dank. Grüße
Anzeige