ComboBox Aufruf von Worksheet 2
29.01.2007 08:16:37
Worksheet
leider scheitere ich an folgendem Problemchen:
In eine ComboBox lese ich Werte von Tabellenblatt 1 ein. Der Aufruf der entsprechenden UserForm soll von Tabellenblatt 2 erfolgen. Es muss also irgendwie der Verweis auf Tabellenblatt 1 erfolgen, wobei ich mit "With Worksheet 1" gescheitert bin...
Wie muss folgender Code geändert werden, damit der Aufruf klappt? Ich habe eine Beispieldatei hier angefügt.
Die Datei https://www.herber.de/bbs/user/39981.xls wurde aus Datenschutzgründen gelöscht
Private Sub UserForm_Initialize()
Dim col As New Collection
Dim iRow As Integer
'Spalte 1 ab Zeile 3 einlesen
With Worksheets(1)
iRow = 3
On Error Resume Next
Do Until IsEmpty(Cells(iRow, 1))
col.Add Cells(iRow, 11), Cells(iRow, 1)
If Err = 0 Then
ComboBox1.AddItem Cells(iRow, 1)
Else
Err.Clear
End If
iRow = iRow + 1
Loop
On Error GoTo 0
ComboBox1.ListIndex = 0
'ComboBox alpha-numerisch sortieren (siehe Modul)
SortComboBox
End With
End Sub
Vielen Dank für jede Hilfe
Gruß
Claus