Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1648to1652
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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
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
Anzeige
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
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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige