weiß jemand wie man ein Private Sub das z.B. im Tabellenblatte 1 hinterlegt ist in einem Userform aufruft? Mit Call allein funktioniert es nicht.
Grüße
MarC
Public Sub SearchTerm_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Wenn ich "Call SearchTerm_KeyUp" im Userform angebe kommt die Meldung "Sub oder Funktion nicht definiert"
Call Tabelle1.SearchTerm_KeyUp(13, 0)
Gruß Daniel
Public Sub SearchTerm_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
im anderen Modul:
dim x as MSForms.ReturnInteger
call Tabelle1.SearchTerm_KeyUp(x , 0)
das Problem ist, dass die übergebene Variable KeyCode im Makro SearchTerm_KeyUp nicht angewendet werden darf, wenn es über das makro aufgerufen wird und nicht normal als Eventmakro, denn KeyCode ist in diesem fall Leer und das führt dann zu einem Fehlerabbruch, wenn du die Variable verwendest.
Public Sub SearchTerm_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
if KeyCode is nothing then
hier der Codeteil ohne die verwendung von KeyCode
else
hier der Codeteil, in dem KeyCode verwendet wird.
End if
Gruß Daniel