combobox füllen aus tabelle
26.04.2013 17:20:52
NewLine
Ich habe hier ein kleines Problem. Der code gibt mir einen Laufzeitfehler 70 Zugriff verweigert aus. Wenn ich nur eine combobox fülle funktioniert der code.
Private Sub UserForm_initialize()
Dim i As Long
Dim Anfangszeile As Long
Dim Anfangsspalte As Long
With Worksheets("DAdaten")
Anfangszeile = 1
Anfangsspalte = 3
For i = Anfangsspalte To .Cells(Anfangszeile, .Columns.Count).End(xlToLeft).Column
cboPA_Nummer.AddItem .Cells(Anfangszeile, i)
Next i
cboPA_Nummer.ListIndex = -1
Anfangszeile = 9
Anfangsspalte = 3
For i = Anfangsspalte To .Cells(Anfangszeile, .Columns.Count).End(xlToLeft). _
Column
cboLagerort.AddItem .Cells(Anfangszeile, i)
Next i
cboLagerort.ListIndex = -1
End With
End Sub
mfg