Ich stehe gerade auf dem Schlauch.
Bitte nicht lachen, aber ich scheitere wahrscheinlich an einer Kleinigkeit.
Nach dem Klick auf "speichern" in meiner UF, möchte ich die Werte der beiden Textboxen an eine Sub übergeben.
Jedoch habe ich einen Syntaxfehler beim aufruf der Sub.
Aber wo soll der sein?
UF:
Private Sub CBspeichern_Click()
Dim id As Long
Dim beute As Long
'Prüfen ob beide Eingaben numerisch sind
If Not IsNumeric(TBID) Then
MsgBox "falsche Eingabe im Feld ID"
Exit Sub
End If
If Not IsNumeric(TBBeute) Then
MsgBox "falsche Eingabe im Feld Beute"
Exit Sub
End If
id = TBID
beute = TBBeute
'Aufruf der Eintragen sub
neuerFarm(ID, Beute)
End Sub
Modul:
Public Sub neuerFarm(ByVal id As Long, ByVal beute As Long)
MsgBox "geht"
End Sub