Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

Userform aktivieren

Betrifft: Userform aktivieren von: Klaus
Geschrieben am: 03.09.2004 11:24:10

Hallo nochmals
Mit dem folgenden Code aktiviere ich die Mappe "Hebezeuge":

Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
    ActiveWorkbook.Close True
    Windows("Hebezeuge.xls").Activate
End Sub


Nun möchte ich noch die Userform1, die in dieser Mappe ("Hebezeuge") ist, aktivieren.
Geht soetwas??

Gruss Klaus
  


Betrifft: Userform aktivieren von: Dieter.K
Geschrieben am: 03.09.2004 11:49:53

Hallo Klaus,

....
....
Userform1.Show


Gruß
Dieter.K


  


Betrifft: AW: Userform aktivieren von: Klaus
Geschrieben am: 03.09.2004 11:59:45

leider gehts so einfach nicht, da die mappe vorher geschlossen wird und das makro nicht abläuft....
gruss klaus


  


Betrifft: AW: Userform aktivieren von: AndréL.
Geschrieben am: 03.09.2004 12:25:54

Hallo Klaus,

Dies in das gerade neu geöffnete Blatt "Hebezeuge"
(Diese Arbeitsmappe)

Private Sub Workbook_Open()
userform1.show
End Sub


Gruß
AndréL.


  


Betrifft: AW: Userform aktivieren von: Klaus
Geschrieben am: 03.09.2004 12:30:25

Hallo André
Das problem ist, "Hebezeuge" ist schon geöffnet. Ich aktiviere nur das Fenster
Gruss Klaus


  


Betrifft: AW: Userform aktivieren von: AndréL.
Geschrieben am: 03.09.2004 12:34:18

Hallo Klaus,
dann vielleicht als:

Private Sub Worksheet_Activate()
in das Tabellenblatt?

Gruß
AndréL.


  


Betrifft: AW: Userform aktivieren von: Klaus
Geschrieben am: 03.09.2004 12:46:06

Hallo André
Ich rufe das Fenster ja nur auf. ich aktiviere nicht das Blatt. vorallem, durch den Befehl

ActiveWorkbook.Close True
Windows("Hebezeuge.xls").Activate

Wird ja die aktuelle MAppe geschlossen und die Anweisung

Windows("Hebezeuge.xls").Activate

gar nicht mehr ausgeführt.

Gruss Klaus


  


Betrifft: muss leider passen.........oT. von: AndréL.
Geschrieben am: 03.09.2004 12:48:55

.


  


Betrifft: Verständnisproblem von: AndréL.
Geschrieben am: 03.09.2004 13:32:16

Hallo Klaus,
doch noch mal.
Als erstes schreibst Du: "Mit dem folgenden Code aktiviere ich die Mappe "Hebezeuge":...."
Jetzt aber:" wird
Windows("Hebezeuge.xls").Activate
gar nicht mehr ausgeführt."
Das verstehe ich nicht.

Vorschlag:
Statt : ActiveWorkbook.Close True
ActiveWindow.Close True
Dann vielleicht (NICHT getestet)
With ActiveWindow
UserForm1.Show
End With

Gruß
AndréL.


  


Betrifft: AW: Verständnisproblem von: Klaus
Geschrieben am: 03.09.2004 13:44:01

Hallo André
Ja, du hast recht, ich habe es blöd ausgedrückt. ich aktiviere nicht die Datei, sondern das Fenster...

Gruss Klaus

PS Weiter oben habe ich mein Problem unter "2 Mappen" nochmals beschrieben, vielleicht ist es dort klarer


 

Beiträge aus den Excel-Beispielen zum Thema "Userform aktivieren"