Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Werkzeug
BildScreenshot zu Werkzeug Werkzeug-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Gegenteil von Application.run"..." gesucht

Betrifft: Gegenteil von Application.run"..." gesucht von: udo(Stgt.)
Geschrieben am: 20.08.2004 15:11:02

Hallo Excelperten ,

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
  


Betrifft: AW: Gegenteil von Application.run"..." gesucht von: Hans W. Herber
Geschrieben am: 21.08.2004 07:52:02

Hallo Udo,

zwei Sachen vorweg:
- verwende bei Prozedur-Aufrufen innerhalb einer Arbeitsmappe Call statt Run
- verwende das Workbook_Open statt dem älteren Auto_Open-Ereignis

Du beendest Prozedurabläufe brutalstmöglich mit End ;-)

Gruss hans


  


Betrifft: Vielen lieben dank , hans ;-) konnte mich erst .. von: udo
Geschrieben am: 24.08.2004 17:21:59

Hallo Hans ,
recht herzlichen Dank , konnte mich erst jetzt zurückmelden ...
werde es gleich mal testen ...

Schöne Grüße aus Stuttgart

udo