Office: (Office 2010) Userform mit Tabellenblatt öffnen

Liebe VBA Profi`s,

Nach langem Suchen im Netz, kam ich zu keiner richtigen Lösung.
Ich habe eine Excel-Datei mit 12 Tabellenblätter (Jänner -Dezember).
Jedes Tabellenblatt hat eine Userform.
Ich kann extern auf die Tabellenblätter zugreifen.
Nun möchte ich aber, dass die Tabellenblätter, bei anklicken (extern) mit den Userformen aufgehen.
Es öffnet sich immer nur der Jänner.
Bei Anklicken von z.B. Februar öffnet sich nur das Tabellenblatt Februar.
Die Userform öffnet sich nicht.

Ich habe folgenden Code in jedes Tabellenblatt eingegeben:

Code:

Deaktiviert wird es wieder mit einem Button auf der Userform und funktioniert auch.

Kann mir bitte jemand weiter helfen?

Danke, liebe Grüße Ivy

:)

 

Hallo Ivy,

Was verstehst Du unter extern anklicken ?
Ansonsten - wenn Du den Code im VBE jeweils beim betreffenden Tabellenblatt abgelegt hast, müßte es eigentlich funktionieren.

Gruß
Aloys

 

Hallo Aloys,

Danke für deine rasche Antwort.

Extern anklicken heißt bei mir:
Ich habe eine Datei, die mit einer Ribbonleiste versehen ist.
In dieser gibt es Schaltflächen (Buttons) zu einer anderen Datei, die 12 Tabellenblätter hat.
Wenn ich den Button Jänner in der Ribbonleiste anklicke, soll es mir das Tabellenblatt Jänner + Userform, das in einer anderen Datei ist, öffnen.
Wenn ich den Button Februar in der Ribbonleiste anklicke, soll es mir das Tabellenblatt Februar + Userform, das in der gleichen Datei ist, wie der Jänner, öffnen.

Mit meinen oben angeführten Code öffnet sich leider nur der Jänner + Userform. Der Februar öffnet sich zwar, aber die Userform nicht.
Wahrscheinlich ist es dann mit den anderen Monaten genauso.

Lg Ivy

 

Hallo,

kannst du ein Bespiel hochladen?

 

Hallo ihr Zwei,

Ich habe eine Datei, die mit einer Ribbonleiste versehen ist (Eingabemaske.xlsm).
In dieser gibt es Buttons (Jänner - Dezember), die mit einer anderen Datei (W1111Y.xlsm), die 12 Tabellenblätter hat, verlinkt ist.
Wenn ich den Button Jänner in der Ribbonleiste (Datei:Eingabemaske.xlsm)anklicke, soll es mir die Datei W1111Y mit dem Tabellenblatt Jänner + dazugehöriger Userform öffnen.
Wenn ich den Button Februar in der Ribbonleiste (Datei:Eingabemaske.xlsm)anklicke, soll es mir die Datei W1111Y mit dem Tabellenblatt Februar + dazugehöriger Userform öffnen.

Mit meinen oben angeführten Code öffnet sich leider nur der Jänner + dazugehöriger Userform.
Der Februar öffnet sich zwar, aber die dazugehörige Userform nicht.
Wahrscheinlich ist es dann mit den anderen Monaten genauso, weshalb ich auch noch nicht weiter gearbeitet habe.

Zur Info:
In der Datei W1111Y:
Wenn ich manuell auf Jänner klicke, öffnet sich die Userform vom Jänner.
Wenn ich manuell auf Februar klicke, öffnet sich ebenfalls die Userform vom Februar.

Ich weiß leider nicht, was ich falsch mache.

Ich hoffe, dass ich mein Anliegen gut und verständlich erklärt habe und
danke euch für eure Bemühungen.
Lg Ivy

 

Hallo,

dass sich die UF bei jedem Blattwechsel öffnet ist schlecht.

Nimm einen Button um die UF zu öffnen.

Du benötigst auch keine 12 UFs, EINE langt!

Ach ja, ist das Blatt bereits aktiviert wird das Activate-Ereignis
nicht ausgelöst und deswegen hat sich die UF nicht geöffnet.

Wie oben bereits erwähnt nimm Buttons (siehe Dateien)

 

Hallo xlph,

Ich bin nicht so bewandert, was VBA angeht.
Kannst du mir bitte beim Code helfen.
Das wäre nett, wenn man das so hinbekäme.

Danke, lg Ivy

 

Hallo,

zu W1111Y.xlsm:

In den Blättern habe ich die Ereignisse Worksheet_Activate gelöscht.

Der Aufruf des Formulars 'frmEingabe' wird jetzt von einem Button ('Formular')
(die Bezeichnung kannst du ändern) übernommen.

Jedes Monats-Blatt benötigt diesen Button. Den kannst du in die
anderen Monats-Blätter kopieren oder neu erstellen und die Prozedur
'FormularButton_Klick' zuweisen, indem du Rechtsklickst auf den Button,
[Makro zuweisen...], den Makronamen 'FormularButton_Klick' aus
der Liste wählst und mit [Ok] bestätigst.

Wie erwähnt benötigst du keine 12 identische Formulare sondern nur 1
Formular ('frmEingabe') dem du die entsprechende Monats-Bezeichnung zuweist.

Die Prozedur 'FormularButton_Klick' ermittelt über ActiveSheet.Name
die Monats-Bezeichnung, die an die Prozedur 'frmEingabe_Laden'
(ungebunden: Appliaction.OnTime) übergeben wird.

In dieser Prozedur wird der UserForm ('frmEingabe') nach dem Laden
aber vor dem Anzeigen (Activate) über die (selbstdefinierte) Eigenschaft
MonatName zugewiesen.

Der Userform ist jetzt bekannt aus welchem Monatsblatt es sich beziehen soll.

Bsp:

Vorher:

Code:

Geändert in:

Code:

Somit benötigst du nur ein Formular, das gefüllt wird entsprechend dem Monats-Blatt.

Kleiner Fehler:
Beim Betätigen des 'Beenden'-Buttons kommt ein Fehler.

Bitte Abändern wie folgt:

Code:

Zu Eingabemaske.xlsm:

Code:

Erklärung am Beispiel "Jänner":

Code:

Hier wird die Datei wie bereits vorhanden geöffnet. Den absoluten Pfad kannst du wieder setzen.

Code:

Innerhalb der Mappe wird zur Zelle [A1] im Blatt "Jänner" gesprungen.

Code:

Mit 'Application.Run' lassen sich externe Makros starten (die Zieldatei wird dabei
geöffnet, falls nicht bereits offen):
Da die Datei bereits geöffnet wurde, muss der Pfad nicht angegeben werden,
es reicht der Dateiname 'W1111Y.xlsm'. Gefolgt vom Modulname 'mdlFormular'
indem sich die Prozedur (das Start-Makro) befindet, sowie die der Prozedurname
'frmEingabe_Laden' mit der Übergabe der Monats-Bezeichnung "Jänner".

Hiermit wird das Blatt "Jänner" aktiviert und das Formular 'frmEingabe' mit
den Daten aus "Jänner" gefüllt.

Das funktioniert dann auch mit den folgenden Monaten.

 

Hallo xlph,

Das ist genau das Richtige, das ich wollte.
Du bist eine Koryphäe in VBA.
Ich bin froh, dass es Menschen wie dich gibt, die uns helfen,
sonst würden wir im VBA Dschungel verzweifeln.
Danke, für die gute Erklärung.
Ohne dich hätte ich das nicht zusammengebracht.
Wie kann ich dazu beitragen, dass du einen 4. Stern bekommst?

Ich will nicht unverschämt sein, aber könntest du mir bei diesem Thread auch helfen?
http://www.ms-office-forum.net/forum...d.php?t=322956

Danke
Lg Ivy