Hallo Leute,
ich habe ein UserForm mit 11 Buttons (cmdBtn_201 bis cmdBtn_211). Welcher Button geklickt wurde, speichere ich in der Public Variable „activeBtn“ und übermittele diese an die Funktion. Dort ziehe ich dann die 3 Ziffern in die Variable „idNmbrs“. Dann habe ich 11 Arrays (w201 bis w211) als „Datenbank“ und würde davon jetzt gerne, anhand von „idNmbrs“ das relevante Array ansteuern können.
Public activeBtn As String
Public Sub fnc_execute()
Dim actualDate As Date, finalDate As Date, idNmbrs As String
' Public Variable activeBtn enthält den Namen der betätigten Schaltfläche
' Variable idNmbrs enthält die letzten 3 Nummern des Inhalts von activeBtn
idNmbrs = Right(activeBtn, 3)
w201 = Array("Saiga AS 12", TimeValue("09:50:00"))
w202 = Array("HK MK 3 (HK 33)", TimeValue("09:23:00"))
w203 = Array("SIG SW Commando (551)", TimeValue("11:15:00"))
w204 = Array("Colt M16", TimeValue("12:23:00"))
w205 = Array("Colt M4A1", TimeValue("12:09:00"))
w206 = Array("Kalashnikov AK 47", TimeValue("09:50:00"))
w207 = Array("Ingram UZI (Mac10)", TimeValue("08:06:00"))
w208 = Array("HK MP5 SD", TimeValue("08:06:00"))
w209 = Array("HK AP II (SMG II)", TimeValue("05:38:00"))
w210 = Array("HK Mark23", TimeValue("05:24:00"))
w211 = Array("Easton Stealth CNT", TimeValue("02:24:00"))
End Sub
MsgBox w + idNmbrs(0) funktioniert ja offenbar leider nicht.
Grüße
|