Range mit Cells bestimmen
30.03.2020 19:40:05
Jörg
wer kann mir sagen wo ich den Fehler gemacht habe, Es kommt immer wieder Fehlermeldung 1004.
Also mein Problem ist, ich möchte in Userform 3 die ComboBox 7 bis 9 den Listeninhalt zuweisen.
Der Listeninhalt ist in dem Worksheets("Werte") hinterlegt.
"Bereich"1 Ist Range("B57:B60") somit Spalte 2
"Bereich"2 Ist Range("F57:F60") somit Spalte 6
"Bereich"3 Ist Range("J57:J60") somit Spalte 10
"Bereich"4 Ist Range("N57:N60") somit Spalte 14
"Bereich"5 Ist Range("R57:R60") somit Spalte 18
"Bereich"6 Ist Range("V57:V60") somit Spalte 22
Teil ist der Listindex aus ComboBox 4 bis 6 Werte 0-5
Combo = Worksheets("Speicher").Range("C110") dort wird die Zahl 7 - 9 hinterlegt
Ich habe "Bereich" so berechnet Bereich=(Teil*4)+2
Der vordere Teil bis zum = funktioniert: wenn ich z.B. hinten Worksheets("Werte").Range("B57:B60").Value einsetze.
UserForm3.Controls("ComboBox" & CStr(Combo)).List = Worksheets("Werte").Range(Cells(57, Bereich), Cells(60, Bereich))
Wo ist der Fehler?
Bitte helft mir
Gruß Jörg