Ungültiger Eigenschaftenwert - Combobox

Computer: Software & Programmierung Office Software
1

Hallo, bitte um Hilfe!
In einer Excel Userform befinden sich 6 Reihen mit je 3 Comboboxes und 4 Textboxes:
Produkt(CB) – Menge(TB) - Einheit(CB) – Preis(TB) – Umsatz(TB) – Prov.(TB) – Schlüssel(CB).
Die Boxes sind je nach Typ fortlaufend nummeriert.
Die korrespondierenden Zellen liegen in den Spalten GR – IG (200 – 242).
Problem: nach dem Einlesen der Zellinhalte in die Comboboxes „Produkt“ erscheint die Fehlermeldung „Ungültiger Eigenschaftenwert“.
Was ist an diesem Code falsch? Ist er zu simpel?

Sub Lesen()
Dim n As Long, Dim j As Long
i = 1
For n = 200 To 235 Step 7
Me.Controls(„Combobox“ & CStr(i)) = ActiveSheet.Cells(ActiveCell.Row, n)
i = i + 3
Next n
End Sub
Es wäre super, wenn sich ein Profi das Problem einmal ansehen könnte. Ich hänge fest und komme nicht weiter.
Vielen Dank im Voraus.
Börries

2

Problem: nach dem Einlesen der Zellinhalte in die Comboboxes
„Produkt“ erscheint die Fehlermeldung „Ungültiger
Eigenschaftenwert“.
Was ist an diesem Code falsch? Ist er zu simpel?

Sub Lesen()
Dim n As Long, Dim j As Long
i = 1
For n = 200 To 235 Step 7
Me.Controls(„Combobox“ & CStr(i)) =
ActiveSheet.Cells(ActiveCell.Row, n)
i = i + 3
Next n
End Sub

Hallo Börries,

so kann der Code nie gelaufen sein. Schon die erste Zeile muß so lauten:

Dim n As Long, j As Long

sonst läuft da gar nix.
und besser so:

Dim n As Long, i as Integer

Ansonsten, in welchem Modul steht denn der Code, wer ruft ihn auf?

Gruß
Reinhard