Hallo Gast,
Vielen Dank für Deine wertvollen Hinweise.
Ich werde diese zukünftig berücksichtigen.
Ich habe meine Variablendefinition habe ich verbessert.
Byval habe ich entsprechend eingebaut und berücksichtige ich zukünftig.
Option Explicit hatte ich im Modul bereits berücksichtigt, werde ich aber in den Optionen einstellen.
Ein wirklich hilfreicher Tipp, wegen der verfl… Tippfehler.
Nun zu meinen Erkenntnissen
Der Aufruf mit nur einer 1 Variable klappt, warum weiß ich allerdings nicht so genau.
Ich habe die Funktion auf Public gesetzt, dann steht diese mir wenigstens in weiteren Modulen ebenfalls zur Verfügung, sollte allerdings keine Auswirkungen auf meine derzeitigen Versuche haben.
Mit 2 Variablen klappt es (so wie ich es gemacht habe) immer noch nicht.
Allerdings, ein bisschen Tutorial lesen hat bei mir folgende Erkenntnis gebracht:
Eine Funktion sollte eine Rückgabe liefern.
Meine Funktion liefert aber derzeitig nichts zurück- baue ich dann mir noch ein- später.
Ich sollte also das einfach in ein Sub packen da gehört es ohne Rückgabewert dann ja wohl auch hin.
1. Frage: Ist meine Annahme bzgl. Funktionen und Sub richtig?
2. Frage: Warum klappt die Übergabe mit nur dem Parameter Wert BtnValue allerdings fordert der Editor bei 2 Werten dann die Rückgabe via Expected= ein? Finde ich unlogisch. Enweder immer oder eben nicht immer. bei nur einer Variable ist er ja auch nicht so pingelig.
3. Ich habe die Funktion einfach mit Call aufgerufen –klappt- ist das kritisch?
Hier nun noch einmal der verbesserte Code, Erste Sub "Sub btnLevel_Click" schlägt fehl,
Die Private Sub btnOvw_Click() - klappt (aufruf mit Call)
Private Sub btnLeveL_Click()
Dim btnValue As Integer
Dim fldLang As String
Dim intStructur As Integer
'Used Values
' btnValue=1 Create from internal Index
' btnValue=2 create from Level
' fld=fldLanguage.Value Sprache
btnValue = 2
fldLang = fldLanguage.Value
'MsgBox "Variable " & b
fktCreateStructur(btnValue, fldLang)
Unload fConfirm
End Sub
Private Sub btnOvw_Click()
Dim fldLang As String
Dim btnValue As Integer
'Used Values
' btnValue=1 Create from internal Index
' btnValue=2 create from Level
' fld=fldLanguage.Value Sprache
btnValue = 1
fldLang = fldLanguage.Value
'MsgBox "Variable " & b
Call fktCreateStructur(btnValue, fldLang)
Unload fConfirm
End Sub
|