Fehler beim Kompilieren: For each-Steuervariable muss bei Datenfeldern vom Typ Variant sein?

  • Allgemein

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Hans1990.

    Fehler beim Kompilieren: For each-Steuervariable muss bei Datenfeldern vom Typ Variant sein?

    Hallo zusammen,

    ich verstehe folgende Fehlermeldung beim komilieren nicht:

    "For each-Steuervariable bei Datenfeldern muss vom Typ Variant sein"



    Mein Code sieht folgendermaßen aus:

    VB.NET-Quellcode

    1. Option Explicit
    3. Sub Test()
    4. Dim arrComBoxes(2) As ComboBox
    5. Set arrComBoxes(0) = Windows.Controls.Add("Forms.Combobox.1")
    6. Set arrComBoxes(1) = Windows.Controls.Add("Forms.Combobox.1")
    7. Dim arrStr(2) As String
    8. arrStr(0) = "Eins"
    9. arrStr(1) = "Zwei"
    11. Dim combox As ComboBox
    12. Dim str As String
    13. For Each combox In arrComBoxes
    14. For Each str In arrStr
    15. 'do something
    16. Next str
    17. Next combox
    18. End Sub


    Klar kann ich die Variable combox und str als Variant deklarieren, dann kann ich aber in der for each-Schleife nicht wirklich damit arbeiten, also z.B. der Combobox Werte hinzufügen...

    Vielleicht kennt einer von euch eine Lösung?



    Viele Grüße

    Hans

    Hallo Alchimist,

    ich bin mir nicht ganz sicher wo ich diese nachschauen kann. Ich verwende VBA aus Excel 2007.

    Mit UBound und LBound könnte ich es hinbekommen. Ich hatte mich nur gefragt, warum dieser Fehler auftritt, weil an anderen Stellen

    funktioniert bei mir die for each-Schleife einwandfrei. Zum Beispiel wenn ich Worksheets durchlaufe...

    Vielleicht muss ich noch eine Bibliothek einbinden?

    Gruß Hans

    Hallo Hans,

    Warum..? weiß nicht. Aber schau dir mal meinen Quelltext an, was ist denn daran nicht so, wie du es wünscht?

    VB.NET-Quellcode

    1. Private Sub CommandButton1_Click()
    2. test_Variant
    3. Test_Cbo
    4. End Sub
    6. Sub Test_Cbo()
    7. Dim arrCbo(0 To 2) As ComboBox
    8. Dim i As Long
    9. For i = LBound(arrCbo) To UBound(arrCbo)
    10. Set arrCbo(i) = Controls.Add("Forms.Combobox.1")
    11. With arrCbo(i)
    12. .Top = (1.1 * i + 0.5) * arrCbo(i).Height
    13. .Left = 0.5 * arrCbo(i).Height
    14. End With
    15. Next i
    16. For i = LBound(arrCbo) To UBound(arrCbo)
    17. arrCbo(i).AddItem "Test_" & i & "_A"
    18. arrCbo(i).AddItem "Test_" & i & "_B"
    19. arrCbo(i).AddItem "Test_" & i & "_C"
    20. arrCbo(i).ListIndex = 0
    21. Next i
    22. End Sub
    24. Sub test_Variant()
    25. Dim arrCbo(0 To 2) As ComboBox
    26. Dim oCbo As Variant
    27. Dim i As Long
    29. For i = LBound(arrCbo) To UBound(arrCbo)
    30. Set arrCbo(i) = Controls.Add("Forms.Combobox.1")
    31. With arrCbo(i)
    32. .Top = (1.1 * i + 0.5) * arrCbo(i).Height
    33. .Left = 0.5 * arrCbo(i).Height + 1.1 * arrCbo(i).Width
    34. End With
    35. Next i
    36. i = 0
    37. For Each oCbo In arrCbo
    38. oCbo.AddItem "Test_" & i & "_A"
    39. oCbo.AddItem "Test_" & i & "_B"
    40. oCbo.AddItem "Test_" & i & "_C"
    41. oCbo.ListIndex = 0
    42. i = i + 1
    43. Next oCbo
    44. End Sub


    Gruß Markus

    Ich habe es nun auch mit LBound und UBound realisiert, wie du meintest. Nur fand ich keine Erklärung für den Fehler...

    Komme von Java bzw. C# und da ist VB teilweise ein wenig komisch. Zum Beispiel, dass man kein String-Array definieren kann, welches man mehreren Comboboxes als Source zuweisen kann...

    Aber mein Problem hat sich ja gelöst. Daher vielen Dank.