Office: (Office 2019) UserForm wechseln

Hallo
Vorweg der Hinweis, dass ich ein VBA-Programm habe, welches von einem anderen erstellt wurde der mir nicht mehr zur Verfügung steht. Habe Erweiterungen bisher mühsam durch Zusammentragen von Programmteilen aus dem Internet erledigt.

In diesem bestehenden Programm möchte ich nun zwischen 2 UserForm’en wechseln (Namen der beiden UserForm’en: „Eingabemaske“ und „Eingabemaske2“) und möchte dabei auf eine bestimmte Seite (Page) eines MultiPage-Buttom kommen (jeweils mit dem Namen „MultiPage1“)

Auf beiden User-Form’en haben beide „MultiPage1“ jeweils 6 Pages.

Gewechselt werden soll immer zur gleichen Page. Wenn ich also in der UserForm „Eingabemaske“ auf Page1 bin, dann soll der Wechsel durch Betätigen eines CommandButton zur UserForm „Eingabemaske2“ ebenfalls zur Page1 erfolgen.

Bisher habe ich nur folgenden Code zum Wechseln von einer UserForm mit dem Namen „Eingabemaske“ und der zweiten UserForm mit dem Namen „Eingabemaske2“ eingegeben.

Private Sub CommandButton10 Click()
Eingabemaske2.Hide
Eingabemaske.Show
End Sub

bzw. für den Rückwechsel

Private Sub CommandButton11 Click()
Eingabemaske.Hide
Eingabemaske2.Show
End Sub

Beste Grüße
A.Ruck

 

Hallo,

lade bitte eine Beispieldatei hoch, wer soll so eine Lösung suchen und vor allem testen? Grundsätzlich halte ich die Arbeit mit mehreren UserForms eher für fragwürdig.

 

Moin A.Ruck,

ganz ohne Beispielmappe (die brauchen nur KDs...) , aber mit VBA, mit dem Du ja schon konfrontiert bist, ein kurzer Code:

Code:

Private Sub UserForm_Initialize()
     MultiPage1.Value = 0
End Sub

Deine Multipage wird vermutlich einen Namen haben. Den musst Du dann im Code als Ersatz für Multipage1 auch verwenden. Im Code für den Button also s.o. angepasst.

Die Seitennummern einer Multipage sind Null-basiert, d.h. die o.g. öffnet die Seite 1 der Multipage. Der Value zeigt auf die gewünschte Multipage-Seite.

Dann kannst Du den User direkt mit SetFocus in das Eingabefeld führen, das er als erstes bearbeiten soll.

Wenn du eine Beispielmappe mit Erläuterungen haben möchtest, stell die Frage noch mal hier. Kostet nix, ist aber freundlicher...

Grüße

 

Moin A.Ruck, SORRY MEINNE GANZEN SERMON NOCH MAL, WEIL LEIDER IM FORUMSEDITOR ZU LANGSAM ...

Code:

Private Sub UserForm_Initialize()
    MultiPage1.Value = 0
End Sub

ganz ohne Beispielmappe (die brauchen nur KDs...) , aber mit VBA, mit dem Du ja schon konfrontiert bist, ein kurzer Code:
Deine Multipage wird vermutlich einen Namen haben. Den musst Du dann im Code als Ersatz für Multipage1 auch verwenden. Im Code für den Button also s.o. angepasst.

Die Seitennummern einer Multipage sind Null-basiert, d.h. die o.g. öffnet die Seite 1 der Multipage. Der Value zeigt auf die gewünschte Multipage-Seite.

Dann kannst Du den User direkt mit SetFocus in das Eingabefeld führen, das er als erstes bearbeiten soll.

Wenn du eine Beispielmappe mit Erläuterungen haben möchtest, stell die Frage noch mal hier. Kostet nix, ist aber freundlicher...

Nachtrag: Zwei Userforms sind (auch wenn KDs das nicht verstehen) gelegentlich sinnvoll. Tatsächlich ist es aber häufig einfacher Userforms dynamisch zu gestalten. Z.B. für den ersten Arbeitsschritt nimmst Du das Design A, für den zweiten das Design B. Oder Du erweiterst einfach Design A so, dass, falls notwendig Design B sichtbar wird.

Beispiel: Daten zu einem Produkt, die unveränderlich sind, (Artikelnummer, Farbe, Lieferant) blendest Du nach Eingabe einfach aus und verwaltest dann nur noch Mengen und Lagerplätze. Ändert sich der Lieferant, blendest Du diese Eingabefelder wieder ein. Ein Klick - aber alles in einer Userform und einer Tabelle. Nennt sich Trennung von Stamm- und Bewegungsdaten.

Grüße

 

Und noch einen Nachtrag: Es funktionieren auch mehrere Userform gleichzeitig, wenn man sie entsprechend aufruft. Das hat den Vorteil, dass sie bei hide/unload ihre Werte nicht verlieren.

Grüße von hier.

 

Moin d'r Bastler,

zunächst einmal vielen Dank für deine Antwort und Hilfestellung.
War leider einige Tage außer Haus und kann mich deshalb erst jetzt wieder melden.
Ich werde heute Nachmittag versuchen, deine Vorschläge umzusetzen.
Ich bin mir jedoch nicht sicher, ob der vorgeschlagene Code reicht.
Zu deiner Infor füge ich zwei jpg-Dateien bei in denen der Kopf der beiden UserFormen ersichtlich ist.
Bei meinem VBA-Programm handelt es sich um Berechnungen bei denen die Dachform eines Gebäudes wichtig ist.
Wenn ich in der UserForm "Eingabemaske" z.B. eine Berechnung mit der Dachform "Walmdach" (3. Seite der MultiPage) durchgeführt habe, möchte ich durch Betätigen des CommandButton "Weiter mit vorgelagerter Bebauung" auf die zweite UserForm "Eingabemaske2" wechseln und zwar wieder auf die Dachform "Walmdach" (3. Seite der MultiPage).
Das gleiche soll auch möglich sein, wenn ich durch Betätigen des CommandButton "zurück" wieder auf die erste UserForm "Eingabemaske" zurück will, um ggf. dort Änderungen in der Berechnung durchzuführen.
Falls deshalb der Code doch geändert werden muss, dann wäre ich dankbar für eine weitere Hilfe.
Beste Grüße A. Ruck

 

Hallo,

eine Hilfe anhand von Bildern ist in aller Regel nicht möglich.

 

Tj@ KD: Wer lesen kann ist klar im Vorteil! Denn völlig unabhängig von den durchaus Aussage-kräftigen Grafiken hat A.Ruck in seinem Text sehr gut beschrieben, was er vorhat.

Moin A.Ruck!

Dein Thema ist -anders formuliert- der Zugriff auf eine Historie. Du möchtest gerne einmal ausgewählte Werte wiederverwenden. Falls Du diesen Wert von einer Userform zu anderen mitnehmen möchtest, lässt sich leicht entweder über Globale Variablen oder Parameter beim Aufruf der Button_Click Sub lösen. Innerhalb einer USF brauchst Du noch nicht einmal das, solange der Wert nicht anderweitig geändert wird.

Ob heute Abend noch, kann ich nicht versprechen, aber nur so als Fingerübung für mich, bastle ich Dir mal ein Modell mit einer und eines mit zwei USF und stelle es in den Basteleien unter Excel / "Multipage merken" ein.

Schönen Abend noch!

 

Moin A,Ruck!

Schaust Du hier

Grüße