Gegenteil von Application.run"..." gesucht
20.08.2004 15:11:02
Application.run"..."
weis mir bitte zufällig Jemand einen Rat , ...
Hab beim Starten ein " auto_open() " - Makro am laufen,
In diesem Makro werden verschieden Leisten& Werkzeuge ausgeblendet, usw.
und letzt endlich wird dann eine USERFORM aufgerufen , in der eine Textbox1
für die Zugangscode eingabe verankert ist , sieht wie folgt aus:
Private Sub UserForm_Activate()
'***** kann man hier eine Anweisung setzten die die auot open prozedur beendet ?
TextBox1.SetFocus
End Sub
Private Sub TextBox1_AfterUpdate()
Cells(95, 2).Value = TextBox1
If Cells(95, 2).Value = " ... " Then
Application.Run "auto_open_2"
TextBox1 = ""
frmPrgStart.Hide
GoTo Ende:
Else
[A1].Select
TextBox1 = ""
frmPrgStart.Hide
ActiveWorkbook.Saved = True
If Workbooks.Count = 1 Then Application.Quit
If Workbooks.Count > 1 Then ThisWorkbook.Close
End If
Application.St
Ende:
End Sub
Ich habe folgendes Problem :
wenn ich in dem Textfeld die Eingabe beende mit return oder Enter, dann passiert nichts , obwohl ja oben im Textbox_after update dann entsprechend angewiesen wird.
Meine Vermutung :
kann es sein, dass das nicht klappt , weil der eigentlche auto open Ablauf ja nur unterbrochen wurde, indem ich die Userform aufrufe, und das dieser zuerst geschlossen werden muss?
In der auto_open Anweisung kommt nach dem Aufruf der Userform eh nur noch
End Sub ?
Muss ich da noch bei ... Userform activate das auto open Ereignís schliesen
Wenn ja , weis mit bitte jemand einen Rat.
gibts sowas wie Application.cut oder Stop oder so ähnlich ?
oder kennt ihr einen anderen Weg ...
Wäre euch sehr dankbar . lieben Gruß
udo
Anzeige