Thema Datum  Von Nutzer Rating
Antwort
Rot Array ansteuern
 28.03.2020 10:27:13 Holzkopf
NotSolved
28.03.2020 10:59:22 Gast68106
Solved
28.03.2020 11:41:22 Gast604
NotSolved
28.03.2020 11:54:40 Gast0815
NotSolved
28.03.2020 12:10:50 Gast51551
NotSolved
28.03.2020 13:25:30 Gast72790
NotSolved

Ansicht des Beitrags:
Von:
Holzkopf		 Datum:
28.03.2020 10:27:13		 Views:
1026		 Rating:
     
Antwort:
  Ja
Thema:
Array ansteuern

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.

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Array ansteuern
 28.03.2020 10:27:13 Holzkopf
NotSolved
28.03.2020 10:59:22 Gast68106
Solved
28.03.2020 11:41:22 Gast604
NotSolved
28.03.2020 11:54:40 Gast0815
NotSolved
28.03.2020 12:10:50 Gast51551
NotSolved
28.03.2020 13:25:30 Gast72790
NotSolved