Da ich sehr oft bei meinen Recherchen hier im Forum lande, dachte ich, ich melde mich mal an und komme auch gleich zu meinem Problem.
Ich möchte eine ComboBox füllen. Die erste Spalte für die Bezeichnung, die zweite für die dazugehörige Nummer. Beides befindet sich in einem Array, in der Reihenfolge, wie sie befüllt werden sollen:
ArBetriebsstundenAggregat = Array( _
"J00 RL01-R01", "J00 RL02-R01", "J01 AS01-Y01", "J01 AS02-M01 Auf", "J01 AS02-M01 Zu", "J01 _
AS10-Y01", "J01 AS11-Y01", "J01 AS12-Y01", "J01 BW01-M01", "J01 DSS01-M01", "J01 FU02-S01", _
"J01 GF01-M01", "J01 GF02-M01", "J01 GF02-M02", "J01 KM01-M02", "J01 KM01-M03", "J01 KM01-M04", _
"J01 KM01-M05", "J01 KM01-R01", "J01 KM01-R02", "J01 KM01-Y01", "J01 KM01-Y02", _
"J01 MV01-Y01", "J01 MV02-Y01", "J01 MV03-Y01", "J01 Pu01-M01", "J01 RW01-M01", "J01 SaF01-M02", _
"J01 SI01-M01", "J01 TPu01-M01", "J01 TPu02-M01", "J02 Pu01-M01", "J02 Pu02-M01", _
"J03 AS04-Y01", "J03 AS05-Y01", "J03 FZ01-M01", "J03 FZ01-M02", "J03 FZ01-M03", "J03 FZ01-M04", _
"J03 FZ01-M05", "J03 FZ01-Y01", "J03 FZ01-Y02", "J03 Pu01-M01", "J03 Pu02-M01", _
"J03 RW01-M01", "J04 AS10-Y01", "J04 AS11-Y01", "J04 AS12-Y01", "J04 AS13-Y01", "J04 AS14-Y01", _
"J04 E01-R01", "J04 FZ01-M01", "J04 FZ01-M02", "J04 FZ01-M03", "J04 FZ01-M04", _
"J04 FZ01-M05", "J04 FZ01-M06", "J04 FZ01-Y01", "J04 FZ01-Y02", "J04 FZ02-M01", "J04 FZ02-M02", _
"J04 FZ02-M03", "J04 FZ02-M04", "J04 FZ02-M05", "J04 FZ02-M06", "J04 FZ02-Y01", _
"J04 FZ02-Y02", "J04 FZ03-M01", "J04 FZ03-M02", "J04 FZ03-M03", "J04 FZ03-M04", "J04 FZ03-M05", _
"J04 FZ03-Y01", "J04 FZ03-Y02", "J04 FZ04-M01", "J04 FZ04-M02", "J04 FZ04-M03", _
"J04 FZ04-Y01", "J04 FZ04-Y02", "J04 FZ05-M01", "J04 FZ05-M02", "J04 FZ05-M03", "J04 FZ05-Y01", _
"J04 FZ05-Y02", "J04 GF01-M01", "J04 GF02-M01", "J04 Pu01-M01", "J04 Pu02-M01", _
"J04 Pu03-M01", "J04 Pu04-M01", "J04 Pu04-Y01", "J04 Pu05-M01", "J04 Pu05-Y01", "J04 Pu06-M01", _
"J04 Pu07-M01", "J04 Pu07-M02", "J04 Pu10-M01", "J04 RL14-R01", "J04 RW01-M01", _
"J05 AS12-Y01", "J05 AS13-Y01", "J05 AS14-Y01", "J05 AS15-Y01", "J05 AS16-Y01", "J05 AS17-Y01", _
"J05 AS18-Y01", "J05 AS19-Y01", "J05 AS20-Y01", "J05 AS21-Y01", "J05 E01-R01", _
"J05 FZ01-M01", "J05 FZ01-M02", "J05 FZ01-M03", "J05 FZ01-M04", "J05 FZ01-M05", "J05 FZ01-M06", _
"J05 FZ01-Y01", "J05 FZ01-Y02", "J05 FZ02-M01", "J05 FZ02-M02", "J05 FZ02-M03", _
"J05 FZ02-M04", "J05 FZ02-Y01", "J05 FZ02-Y02", "J05 FZ03-M01", "J05 FZ03-M02", "J05 FZ03-M03", _
"J05 FZ03-M04", "J05 FZ03-Y01", "J05 FZ03-Y02", "J05 FZ04-M01", "J05 FZ04-M02", _
"J05 FZ04-M03", "J05 FZ04-Y01", "J05 FZ04-Y02", "J05 FZ05-M01", "J05 FZ05-M02", "J05 FZ05-M03", _
"J05 FZ05-Y01", "J05 FZ05-Y02", "J05 FZ06-M01", "J05 FZ06-M02", "J05 FZ06-Y01", _
"J05 FZ06-Y02", "J05 FZ07-M01", "J05 FZ07-M02", "J05 FZ07-M03", "J05 FZ07-Y01", "J05 FZ07-Y02", _
"J05 FZ08-M01", "J05 FZ08-M02", "J05 FZ08-Y01", "J05 FZ08-Y02", "J05 FZ09-M01", _
"J05 FZ09-M02", "J05 FZ09-M03", "J05 FZ09-Y01", "J05 FZ09-Y02", "J05 FZ10-M01", "J05 FZ10-M02", _
"J05 FZ10-Y01", "J05 FZ10-Y02", "J05 FZ11-M01", "J05 FZ11-M02", "J05 FZ11-M03", _
"J05 FZ11-Y01", "J05 FZ11-Y02", "J05 GF01-M01", "J05 GF02-M01", "J05 GF03-M01", "J05 Pu01-M01", _
"J05 Pu02-M01", "J05 Pu02-Y01", "J05 Pu03-M01", "J05 Pu04-M01", "J05 Pu04-Y01", _
"J05 Pu05-M01", "J05 Pu06-M01", "J05 Pu06-Y01", "J05 Pu07-M01", "J05 Pu08-M01", "J05 Pu09-M01", _
"J05 Pu09-Y01", "J05 Pu10-M01", "J05 Pu13-M01", "J05 RL22-R01", "J05 RW01-M01", _
"J05 RW02-M01", "J06 E01-R01", "J06 GF01-M01", "J06 Pu01-M01", "J06 Pu04-M01", "J06 RL01-R01", " _
J08 AS01-Y01", "J08 MV01-Y01", "J08 Pu01-M01", "J08 Pu02-M01", "J08 Pu03-M01", _
"J09 AS01-Y01", "J09 B01-R01", "J09 MV01-Y01", "J09 MV02-Y01", "J09 Pu01-M01", "J09 Pu02-M01", " _
J09 RL301-R01", "J09 RL302-R01", "J09 RL303-R01", "J09 RL304-R01", "J09 RL305-R02", _
"J10 AS01-Y01", "J10 B01-R01", "J10 B01-R02", "J10 B02-R01", "J10 B03-R01", "J10 MV01-Y01", " _
J10 MV02-Y01", "J10 Pu01-M01", "J10 Pu02-M01", "J10 Pu03-M01", "J10 Pu04-M01", _
"J10 Pu05-M01", "J10 Pu06-M01", "J10 Pu07-M01", "J10 Pu08-M01", "J10 Pu09-M01", "J10 Pu10-M01", _
"J10 Pu11-M01", "J10 Pu12-M01", "J10 RL301-R01", "J10 RL302-R01", "J10 RL303-R01", _
"J10 RL304-R01", "J10 RW01-M01", "J11 AS01-Y01", "J11 Pu01-M01", "J11 Pu02-M01", "J11 RW01-M01", _
"J12 Pu01-M01", "J12 Pu02-M01", "J13 Pu01-M01", "J13 Pu02-M01", "J14 Pu01-M01", _
"J14 RW01-M01", "J22 AS01-Y01", "J22 AS02-Y01", "J22 Pu01-M01", "J22 Pu02-M01", "J22 Pu03-M01", _
"J22 Pu04-M01", "J22 Pu05-M01", "J22 Pu06-M01", "J23 MV01-Y01", "J23 Pu01-M01")
ArBetriebsstundenNummer = Array( _
"342", "343", "590", "5", "6", "591", "581", "582", "23", "12", "641", _
"2", "4", "16", "7", "8", "9", "10", "321", "322", "609", "610", _
"577", "578", "579", "14", "11", "15", "3", "21", "22", "79", "80", _
"592", "600", "43", "44", "45", "46", "47", "481", "482", "42", "48", _
"41", "593", "601", "602", "603", "594", "132", "81", "82", "83", "84", _
"85", "86", "483", "484", "87", "88", "89", "90", "91", "92", "485", _
"486", "93", "94", "95", "96", "97", "487", "488", "98", "99", "100", _
"489", "490", "121", "122", "123", "491", "492", "133", "134", "125", "126", _
"127", "128", "515", "129", "519", "130", "697", "698", "159", "324", "124", _
"595", "596", "597", "598", "599", "604", "605", "606", "607", "608", "213", _
"161", "162", "163", "164", "165", "166", "493", "494", "167", "168", "169", _
"170", "495", "496", "171", "172", "173", "174", "497", "498", "175", "176", _
"177", "499", "500", "178", "179", "180", "501", "502", "183", "184", "503", _
"504", "185", "186", "187", "505", "506", "188", "189", "507", "508", "190", _
"191", "192", "509", "510", "193", "194", "511", "512", "195", "196", "197", _
"513", "514", "214", "215", "216", "203", "204", "518", "205", "206", "516", _
"207", "208", "517", "209", "210", "211", "520", "699", "212", "326", "201", _
"202", "243", "241", "700", "242", "328", "585", "611", "642", "643", "644", _
"586", "246", "612", "613", "645", "646", "329", "330", "331", "332", "333", _
"587", "334", "335", "251", "252", "614", "615", "248", "249", "647", "648", _
"649", "650", "651", "652", "247", "253", "254", "255", "336", "337", "338", _
"339", "250", "616", "653", "654", "256", "655", "656", "657", "658", "659", _
"258", "583", "584", "317", "281", "282", "283", "284", "285", "589", "287")
Nun soll der Anwender das Aggregat wählen können und der Wert der zweiten Spalte soll in eine Variable, die ich dann weiter verwenden möchte.Leider finde ich Themen mit Arrays nur in Verbindung mit Excel-Bereichen.
Mein bisheriger Lösungsansatz sah so aus:
Dim i As Integer
Dim strArray As String
For i = LBound(ArBetriebsstundenAggregat) To UBound(ArBetriebsstundenAggregat)
strArray = ArBetriebsstundenAggregat(i)
cmbBetriebsstundenAggregat.AddItem (strArray)
Next
Funktioniert jedoch nicht, da "Typen unverträglich". Ich würde mich über eure Hilfe sehr freuen, da ich mit Arrays bisher noch nicht gemacht habe.Gruß
Marcus