ich versuche mich immer mehr in VBA und habe nun Klassen Module entdeckt.
Leider hänge ich aber jetzt schon seit Stunden über einem wahrscheinlich leicht zu lösenden Problem.
1. Ich habe ein Formular mit einem Kalender (Form "calendar")
-------------------------------------------------------------------------------
2. im Klassenmudul habe ich folgenden Code:
Option Explicit
Private Sub Class_Initialize()
calendar.Show
End Sub
Public Sub einrichten(datval As Date, cap As String)
calendar.Calendar1.Value = datval
calendar.Calendar1.Caption = cap
DoEvents
End Sub
Private Sub Class_Terminate()
calendar.Hide
End Sub
-----------------------------------------------------------------
3. ich versuche nun das ganze aus einem anderen Formular aufzurufen
Private kalender As cl_calendar
Public Sub TextBox1_Enter()
Set target1 = AnalyseOptions.TextBox1
Set kalender = New cl_calendar
kalender.einrichten(target1.Value, "Test") !!!!
---------------------------------------------------------------
Genau an diesem letzten Punkt komme ich nicht weiter.
kalender.einrichten(target1.Value, "Test") - ist rot markiert solange ich versuche 2 Variablen zu übergeben.
Ist das nur auf eine Variable begrenzt?
Public Sub einrichten(datval As Date) + Aufruf durch > kalender.einrichten(target1.Value) _
funktioniert.
Wie rufe ich den Sub / Function in meiner Klasse auf und kann mehr als eine Variablen übergeben? _
Vielen lieben Dank für einen hilfreichen Hinweis
Niels