Fehlermeldung, aber was ist hier der Fehler ?
10.08.2003 11:06:40
Peter T
bekomme bei folgender Zeile eine Fehlermeldung:
"Unzulässiger oder nicht ausreichend definierter Verweis"
hier die Zeile mit dem Fehler (.sheets ist nach der Fehlermeldung markiert):
KlasseComboBox.List(izeile, 1) = .Sheets("Custtabblatt").Cells(iRow, 4)
Hier der ganze Code aus der USer-Form:
Private Sub UserForm_Initialize()
Spielleiter.Caption = Spll
ABwahl_1 = ""
Arbblatt.Caption = ABwahl_1
KlasseComboBox.ColumnCount = 2
KlasseComboBox.ColumnWidths = "120;10"
Dim iRow, iRowL As Integer
Dim izeile As Integer
izeile = 1
iRowL = Sheets("Custtabblatt").Cells(Rows.Count, 7).End(xlUp).Row
For iRow = 1 To iRowL
If Not IsEmpty(Sheets("Custtabblatt").Cells(iRow, 7)) And Sheets("Custtabblatt").Cells(iRow, 3).Value = Spll Then
KlasseComboBox.AddItem Sheets("Custtabblatt").Cells(iRow, 7).Value
KlasseComboBox.List(izeile, 1) = .Sheets("Custtabblatt").Cells(iRow, 4) ' zweite Spalte
izeile = izeile + 1
'KlasseComboBox.AddItem Sheets("Custtabblatt").Cells(iRow, 7).Value
'KlasseComboBox.RowSource = "Custtabblatt!AA2:AB" & iRowL
End If
Next iRow
SPT12.Text = Sheets("Custtabblatt").Range("U2")
SPT10.Text = Sheets("Custtabblatt").Range("U3")
SPT8.Text = Sheets("Custtabblatt").Range("U4")
End Sub
Kann jemand erkennen was hier der Fehler ist ?
Ich sehe ihn nicht.
Danke
Peter