Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zwei UF und die Sanduhr

Forumthread: Zwei UF und die Sanduhr

Zwei UF und die Sanduhr
16.10.2018 16:09:40
Ulf
Hallo Freunde,
folgende Situation zum ganz, ganz schnellen Nachbau.
Wir brauchen nur 2 UF, 2 TextBoxen und ein Commandbutton.
UserForm1 erhält eine TextBox1 mit dem Code

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
UserForm2.Show
End Sub

UserForm2 erhält auch eine TextBox1 ohne Code
und ein CommandButton mit dem Code

Private Sub CommandButton1_Click()
UserForm1.TextBox1.Text = Me.TextBox1.Text
Unload Me
End Sub

Nun rufen wir UF1 auf, klicken die TextBox doppelt,
UF2 erscheint. Dort geben wir irgendetwas in das Testfeld ein
und klicken unseren Button, !!! nun nirgends klicken !!!
UF2 verschwindet, unsere Eingabe ist nun in UF1.
Unser Mauszeiger bleibt nun eine Sanduhr bis wir in UF1 klicken
und genau das möchte ich nicht.
Das ist anders, wenn wir UF2 ungebunden aufrufen, das ist aber nicht
gut, das UF2 liegt dann möglicherweise irgendwo rum und wird zu einer
Unzeit geschlossen.
Auch irgendwelche Fokus-Sachen haben bei mir nicht Abhilfe gebracht.
Könnt ihr den Effekt nachvollziehen?
Hab ihr einen Ausweg?
Viele Grüße
Ulf
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zwei UF und die Sanduhr
16.10.2018 17:40:53
Dieter
Hallo Ulf,
wenn du die CommandButton1_Click-Prozedur folgendermaßen schreibst, dann funktioniert es:
Private Sub CommandButton1_Click()
UserForm1.TextBox1.Text = Me.TextBox1.Text
Me.TextBox1 = ""
Me.Hide
End Sub
Viele Grüße
Dieter
AW: Zwei UF und die Sanduhr
16.10.2018 18:03:31
Ulf
Hallo Dieter,
danke, das ist eine Lösung,
ich muss nur mal sehen wo ich die UF2 dann mal schließe,
ist aber auch kein Problem.
Ulf
Anzeige
AW: Zwei UF und die Sanduhr
16.10.2018 18:32:33
Dieter
Hallo Ulf,
ich denke eine passende Stelle wäre die Terminate-Prozedur von UserForm1:

Private Sub UserForm_Terminate()
Unload UserForm2
End Sub
Viele Grüße
Dieter
AW: Zwei UF und die Sanduhr
16.10.2018 18:35:22
Werner
Hallo Ulf,
das ist, weil durch den Doppelklick deine TextBox1 auf Userform1 im "Bearbeitungsmodus" ist.
Das kannst du umgehen durch:
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = True
UserForm2.Show
End Sub
Gruß werner
Anzeige
AW: Zwei UF und die Sanduhr
16.10.2018 19:44:17
Ulf
Hallo Werner,
Sub danke
With Ulf
.begeistert = True
.msg = "Danke"
.Ation = "Feierabend"
End With
End Sub
Tschüß
Ulf
Gerne u.Danke für die Rückmeldung. o.w.T.
16.10.2018 20:23:29
Werner
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige