peterleb
Jan 22, 2022
view1476
view11
0
Goto Top

Word VBA Arrays

GermansolvedQuestionVB for ApplicationsDevelopment
Hallo Leute,

ich brauche Euch mal zur Code-Berichtigung (es geht um ein Calendar Control)

Den Code:

cmbMonth.AddItem Choose(lngIndex, "January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December")

hatte ich (wegen der lokalen Sprache) geändert auf:

cmbMonth.AddItem Choose(lngIndex, VBA.MonthName(1), VBA.MonthName(2), VBA.MonthName(3), VBA.MonthName(4), VBA.MonthName(5), VBA.MonthName(6), _
               VBA.MonthName(7), VBA.MonthName(8), VBA.MonthName(9), VBA.MonthName(10), VBA.MonthName(11), VBA.MonthName(12))

Das funktioniert auch.
Um es noch einfacher zu machen, ist daraus entstanden:

cmbMonth.AddItem VBA.MonthName(lngIndex)

Jetzt stoppt es mit dem Fehler "Ungültiger Prozeduraufruf oder ungültiges Argument".
Warum klappt das nicht?

Vielen Dank für einen Tipp.
Peter
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 1750485182

Url: https://administrator.de/contentid/1750485182

Printed on: April 25, 2024 at 16:04 o'clock

11 Comments
Latest comment
Goto Top
Member: colinardo
colinardo Jan 22, 2022 updated at 18:03:28 (UTC)
Goto Top
Servus.
Da wir hier den Inhalt von lngIndex nicht sehen können, benutze ich mal meine Glaskugel und tippe darauf das der Index 0-basiert ist, und dann kommt es verständlicherweise zum Fehler weil 0 kein definierter Wert der MonthName Funktion ist die ja bei 1 beginnt und nicht bei 0.
Hast du also einen 0-basierten Index dann rechne einfach +1 zum Index hinzu und dein Problem lost sich in Luft auf.
cmbMonth.AddItem MonthName((lngIndex+1))
Grüße Uwe
Member: PeterleB
PeterleB Jan 22, 2022 updated at 22:30:03 (UTC)
Goto Top
Danke erstmal, ich poste morgen mal den ganzen Code.
(Gefunden - nicht mein "geistiges Eigentum")
Member: PeterleB
PeterleB Jan 23, 2022 at 10:33:52 (UTC)
Goto Top
So Ihr Lieben, hier ist der ganze Text. Leider finde ich den originalen Verfasser nicht mehr.
Der gesamte Code hat 1600 Zeilen.
Ich versuche mal den kompletten Abschnitt rauszuziehen und die Datei als Link.

cmbMonth ist eine ComboBox auf dem Formular.
Private Sub SetMonthCombobox(lngYearIn As Long, lngMonthIn As Long)
'Clears and sets value in month combobox.  
'Ensures months displayed in the combobox don't violate bounds set by the minimum or maximum date.  
Dim lgnYearMinDate As Long    'Year of the minimum date  
Dim lngYearMaxDate As Long    'Year of the maximum date  
Dim lngMonthMinDate As Long   'Month of the minimum date  
Dim lngMonthMaxDate As Long   'Month of the maximum date  
Dim lngIndex As Long          'Used for looping  
   
  'Get month and year of minimum and maximum dates and clear combobox  
  lgnYearMinDate = Year(m_varMinDate)
  lngYearMaxDate = Year(m_varMaxDate)
  lngMonthMinDate = Month(m_varMinDate)
  lngMonthMaxDate = Month(m_varMaxDate)
  cmbMonth.Clear
  'Evaluate and populate month combobox.  
  Select Case True
    Case lngYearIn = lgnYearMinDate And lngYearIn = lngYearMaxDate 'Both minimum and maximum dates occur in selected year.  
      For lngIndex = lngMonthMinDate To lngMonthMaxDate
        If Not m_bAbbreviateMonths Then
          'cmbMonth.AddItem Choose(lngIndex, "January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December")  
'          cmbMonth.AddItem Choose(lngIndex, VBA.MonthName(1), VBA.MonthName(2), VBA.MonthName(3), VBA.MonthName(4), VBA.MonthName(5), VBA.MonthName(6), _  
'                VBA.MonthName(7), VBA.MonthName(8), VBA.MonthName(9), VBA.MonthName(10), VBA.MonthName(11), VBA.MonthName(12))  
          cmbMonth.AddItem VBA.MonthName(lngIndex)
        Else
          'cmbMonth.AddItem Choose(lngIndex, "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")  
'          cmbMonth.AddItem Choose(lngIndex, VBA.MonthName(1, True), VBA.MonthName(2, True), VBA.MonthName(3, True), VBA.MonthName(4, True), VBA.MonthName(5, True), VBA.MonthName(6, True), _  
'                VBA.MonthName(7, True), VBA.MonthName(8, True), VBA.MonthName(9, True), VBA.MonthName(10, True), VBA.MonthName(11, True), VBA.MonthName(12, True))  
          cmbMonth.AddItem VBA.MonthName(lngIndex, True)
        End If
      Next lngIndex
      If lngMonthIn < lngMonthMinDate Then lngMonthIn = lngMonthMinDate
      If lngMonthIn > lngMonthMaxDate Then lngMonthIn = lngMonthMaxDate
      cmbMonth.ListIndex = lngMonthIn - lngMonthMinDate
    Case lngYearIn = lgnYearMinDate 'Only minimum date occurs in selected year.  
      For lngIndex = lngMonthMinDate To 12
        If Not m_bAbbreviateMonths Then
          'cmbMonth.AddItem Choose(lngIndex, "January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December")  
'          cmbMonth.AddItem Choose(lngIndex, VBA.MonthName(1), VBA.MonthName(2), VBA.MonthName(3), VBA.MonthName(4), VBA.MonthName(5), VBA.MonthName(6), _  
'                VBA.MonthName(7), VBA.MonthName(8), VBA.MonthName(9), VBA.MonthName(10), VBA.MonthName(11), VBA.MonthName(12))  
          cmbMonth.AddItem VBA.MonthName(lngIndex)
        Else
          'cmbMonth.AddItem Choose(lngIndex, "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")  
'          cmbMonth.AddItem Choose(lngIndex, VBA.MonthName(1, True), VBA.MonthName(2, True), VBA.MonthName(3, True), VBA.MonthName(4, True), VBA.MonthName(5, True), VBA.MonthName(6, True), _  
'                VBA.MonthName(7, True), VBA.MonthName(8, True), VBA.MonthName(9, True), VBA.MonthName(10, True), VBA.MonthName(11, True), VBA.MonthName(12, True))  
          cmbMonth.AddItem VBA.MonthName(lngIndex, True)
        End If
      Next lngIndex
      If lngMonthIn < lngMonthMinDate Then lngMonthIn = lngMonthMinDate
      cmbMonth.ListIndex = lngMonthIn - lngMonthMinDate
    Case lngYearIn = lgnYearMinDate 'Only maximum date occurs in selected year.  
      For lngIndex = 1 To lngMonthMaxDate
        If Not m_bAbbreviateMonths Then
          'cmbMonth.AddItem Choose(lngIndex, "January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December")  
'          cmbMonth.AddItem Choose(lngIndex, VBA.MonthName(1), VBA.MonthName(2), VBA.MonthName(3), VBA.MonthName(4), VBA.MonthName(5), VBA.MonthName(6), _  
'                VBA.MonthName(7), VBA.MonthName(8), VBA.MonthName(9), VBA.MonthName(10), VBA.MonthName(11), VBA.MonthName(12))  
          cmbMonth.AddItem VBA.MonthName(lngIndex)
        Else
          'cmbMonth.AddItem Choose(lngIndex, "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")  
'          cmbMonth.AddItem Choose(lngIndex, VBA.MonthName(1, True), VBA.MonthName(2, True), VBA.MonthName(3, True), VBA.MonthName(4, True), VBA.MonthName(5, True), VBA.MonthName(6, True), _  
'                VBA.MonthName(7, True), VBA.MonthName(8, True), VBA.MonthName(9, True), VBA.MonthName(10, True), VBA.MonthName(11, True), VBA.MonthName(12, True))  
          cmbMonth.AddItem VBA.MonthName(lngIndex, True)
        End If
      Next lngIndex
      If lngMonthIn > lngMonthMaxDate Then lngMonthIn = lngMonthMaxDate
      cmbMonth.ListIndex = lngMonthIn - 1
    Case Else 'No minimum or maximum date in selected year. Add all months to combobox.  
       If Not m_bAbbreviateMonths Then
          'cmbMonth.List = Array("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December")  
'          cmbMonth.List = Array(VBA.MonthName(1), VBA.MonthName(2), VBA.MonthName(3), VBA.MonthName(4), VBA.MonthName(5), VBA.MonthName(6), _  
'                VBA.MonthName(7), VBA.MonthName(8), VBA.MonthName(9), VBA.MonthName(10), VBA.MonthName(11), VBA.MonthName(12))  
          cmbMonth.AddItem VBA.MonthName(lngIndex)
       Else
          'cmbMonth.AddItem Choose(lngIndex, "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")  
'          cmbMonth.List = Array(VBA.MonthName(1, True), VBA.MonthName(2, True), VBA.MonthName(3, True), VBA.MonthName(4, True), VBA.MonthName(5, True), VBA.MonthName(6, True), _  
'                VBA.MonthName(7, True), VBA.MonthName(8, True), VBA.MonthName(9, True), VBA.MonthName(10, True), VBA.MonthName(11, True), VBA.MonthName(12, True))  
          cmbMonth.AddItem VBA.MonthName(lngIndex)
       End If
      cmbMonth.ListIndex = lngMonthIn - 1
  End Select
lbl_Exit:
  Exit Sub
End Sub

Gruß
Peter
Member: PeterleB
PeterleB Jan 23, 2022 updated at 10:45:59 (UTC)
Goto Top
Und hier die Datei.
frmDatePicker.frm

oder die ganze Word-Datei:
DatePicker Custom Calendar Form Rev 1.5.dotm
Member: colinardo
Solution colinardo Jan 23, 2022 updated at 13:59:56 (UTC)
Goto Top
Fixed. Du hast vergessen im letzten Select Vergleich die Schleife über die Monate um das Konstrukt hinzuzufügen, deswegen war lngIndex nicht definiert und verständlicherweise meckert er das dann an. Des weiteren war eine unbenutzte nicht deklarierte Variable strTemp in dem Wust vorhanden, die er bei Option Strict natürlich ebenfalls anmeckert.
Download der gefixten Vorlage

Grüße Uwe
Member: PeterleB
PeterleB Jan 23, 2022 updated at 13:14:05 (UTC)
Goto Top
Hallo colinardo,

vielen Dank.
Habe jetzt auch den Urheber wiedergefunden.
Trevor Eyre

Das Control ist recht gut einsetzbar.
Ich muß jedoch auch mehrere Tage (wenigstens hintereinanderliegende) markieren / selektieren können.
Kann man das dem DatePicker noch beibringen?

Noch eine Frage:
Wenn ich die Demo teste und den Button "Insert in Document" drücke, gibt's einen Laufzeitfehler.

Gruß
Peter
Member: colinardo
colinardo Jan 23, 2022 updated at 14:00:46 (UTC)
Goto Top
Zitat von @PeterleB:
Das Control ist recht gut einsetzbar.
Btw. es gibt bereits ein Microsoft-Calendar-Picker-Control, da braucht man sich nicht zwingend ein eigenes bauen ...
screenshot

Ich muß jedoch auch mehrere Tage (wenigstens hintereinanderliegende) markieren / selektieren können.
Kann man das dem DatePicker noch beibringen?
Realisieren kann man alles, alles eine Frage des Preises. Durch den Code arbeite ich mich jetzt aber ehrlich gesagt nicht für lau durch. Frage halt mal den Urheber.
Noch eine Frage:
Wenn ich die Demo teste und den Button "Insert in Document" drücke, gibt's einen Laufzeitfehler.
Lies mal den Hinweistext zu "E", der übergibt der Funktion ein Control als Parameter, welches es in der Demo verständlicherweise nicht gibt ... Peng (hat er nicht bedacht). Schon mal was vom VBA-Debugger Breakpoints und F8 gehört? Vermutlich nicht face-smile.
Member: PeterleB
PeterleB Jan 23, 2022 at 14:30:40 (UTC)
Goto Top
Sorry.
Bin leider kein Profi.

Aber das Microsoft Date and Time Picker Control funktioniert in den 64bit Officeversionen nicht mehr.

Deswegen versuche ich diese Lösung hier anzupassen.

Nochmals vielen Dank und noch
einen schönen Sonntag.

Gruß
Peter
Member: colinardo
colinardo Jan 23, 2022 updated at 18:44:47 (UTC)
Goto Top
Aber das Microsoft Date and Time Picker Control funktioniert in den 64bit Officeversionen nicht mehr.
Dann baut man sich mit Visual Studio ein eigenes, mit dem .NET DatePicker gibt es ja schon ein fertiges, das zieht man in sein custom control rein exposed den Wert des DateTimePickers als Custom Property und macht das ganze COM-Visible face-smile. Man erhält eine DLL die keine 7KB groß ist und die man mit
C:\Windows\Microsoft.NET\Framework64\v4.0.30319\RegAsm.exe /codebase DatePickerControl.dll
in einer elevated Shell für das 64Bit Office registriert.

Schon hat man dort auch ein Control zur Verfügung face-smile

screenshot

An den Wert des Controls kommt man dann über die Property DateTimeValue
strDatum =  Format(dtControl1.DateTimeValue,"dd.MM.yyyy")

Feedich.

Grüße Uwe
Member: PeterleB
PeterleB Jan 23, 2022 updated at 19:36:18 (UTC)
Goto Top
Lieber Freund,

das übersteigt meine Kenntnisse und Erfahrungen.
Ich bin doch nur ein kleiner Hobby-Bastler.

Aber Danke für Deinen Tipp.

Gruß
Peter.

PS: Warum macht das MS nicht endlich selbst?
Member: colinardo
colinardo Jan 24, 2022 updated at 07:03:12 (UTC)
Goto Top
Zitat von @PeterleB:
Ich bin doch nur ein kleiner Hobby-Bastler
Sollte nur die Möglichkeiten aufzeigen 🙂
PS: Warum macht das MS nicht endlich selbst?
Weil VBA ehrlich gesagt eine Technik von gestern ist, es gibt inzwischen bessere Lösungen die auch Geräteubergreifend funktionieren. Man denke nur an Smartphone Tablet & Co. die damit nichts anfangen können. Formulare auf Word/Excel Basis sind eben veraltet, da steckt man keine Manpower mehr rein.
Für sowas entwickelt man heutzutage Web-Anwendungen/Formulare die dann von überall nutzbar sind.
GermansolvedQuestionVB for ApplicationsDevelopment
Hotly discussed
gleixnerdCheck of ZFW Firewallgleixnerd - 5 CommentsjstrickerWireguard VPN on UDM Pro behind Fritzbox - Handshake did not completejstricker - 3 Comments