Office: VBA combobox füllen mit Werten aus Tabelle

Hi
Ich würde gerne eine combobox mit Werten aus einem Tabellenblatt beim starten der usrform füllen. Tabellenblatt hat die Bezeichnung DAdaten.
Bisher habe ich die Daten senkrecht aus splate A1-A10 ausgelesen. Das hat auch funktioniert.

Private Sub UserForm_Initialize()
With Worksheets("DAdaten")
cboPA_Nummer.list = .Range(.Cells(1, 1), .Cells(.UsedRange.Rows.Count, 1)).Value
End With
cboPA_Nummer.ListIndex = -1
End Sub

Jetzt würde ich gerne die Zeile 1 beginnend in Spalte C bis dahin wo Werte stehen auslesen.


Private Sub UserForm_initialize()
Anfangszeile = 1 worksheet("DAdaten")'erwartet Anweisungsende???
Anfangsspalte = 3 worksheet("DAdaten") 'hier das selbe Problem
For i = Anfangsspalte To Cells(Anfangszeile, Columns.Count).End(xlToLeft).Column
ComboBox1.AddItem Cells(Anfangszeile, i)
Next i
ComboBox1.ListIndex = -1
End Sub

Was fehlt hier Worksheet wird makiert.

Danke!
mfg

:)

 

Moin
so?
Code:

gruss hary

 

Hi

For i = Anfangsspalte To .Cells(Anfangszeile, .Columns.Count).End.(xlToLeft).Column

da gibt es einen Syntax Fehler
Bezeichner oder geklammerter Ausdruck bei (xlToLeft)

Müssen die einzelnen Zellen benannt werden?

mfg

 

Moin
Hinter End hatte sich ein Punkt eingeschlichen.
Code:

gruss hary

 

Hi

Danke für deine Mühen,

nun meckert er rum das i nicht definiert ist

For i = Anfangsspalte To .Cells(Anfangszeile, .Columns.Count).End(xlToLeft).Column

mfg

 

Hi

Dim i as Variant vergessen, jetzt passt es *Smilie

Danke Dir!

 

Moin
Variant(kann alles sein)

ist long(Ganzzahl)
Code:

gruss hary

 

Hi

Ich nochmal.

Wie binde ich jetzt eine zweite combobox ein? Selbes Tabellenblatt "DAdaten" nur hier Anfangszeile 9 und Anfangsspalte 3.
Ich bekomme einen Laufzeitfehler 70 Zugriff verweigert.

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

With Worksheets("DAdaten")
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 With

End Sub

Ich bekomme einen Laufzeitfehler 70 Zugriff verweigert.

Gemeckert wird hier beim aufrufen der userform


Public Zeile As Integer
Sub ändern()
frmverwaltung.Show

 

Hallo
Kann beim rumprobieren schon mal passieren. Evtl. Code nicht richtig beendet, Form nur hide statt unload.
Tip: Du brauchst nur einmal die with Anweisung.
sub ()
variablen deklaration
Ganz oben with ....
Code
ganz unten end with
end sub
Dazwischen koennen weg.
Ausser Neuaufbau(altes Form rausschmeissen) des Forms weiss ich so auch nix anderes.
gruss hary

 

Hallo mfg,

der Fehler tritt auf, wenn Du der Combobox bereits eine Datenquelle über die RowSource-Eigenschaft zugewiesen hast.

Es geht immer nur eins: Arbeiten mit List+AddItem oder mit RowSource.
(Beim Setzen von RowSource wird List überschrieben, andersherum kommt der Fehler, wenn RowSource "".)

Grüße
EarlFred

Code:

 

Hi

Oh.. ja das wars Danke!

Gruß
Steffen *wink.gif*