Userform Fokus

Forumthread: Userform Fokus
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Userform Fokus

Userform Fokus

Lutz

Hallo,
habe in beiliegefügter Datei eine Userform, mit der ich den Dialog Öffnen anspreche.
Beim Schließen soll die Userform wieder den Fokus erhalten.
Dies funktioniert aber immer erst, wenn ich über die Schaltfläche in der Userform den Dialog das zweite mal gestartet und wieder geschlossen habe.
Wäre schön, wenn mir jemand eine Tipp geben könnte.
https://www.herber.de/bbs/user/71653.xls
M.f.G.
Lutz

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Der Übeltäter:ActiveSheet.Range("D5").Select

Matthias
AW: Der Übeltäter:ActiveSheet.Range("D5").Select

Lutz

Der Übeltäter:ActiveSheet.Range("D5").Select

25.09.2010 19:40:16

Matthias

Hallo Lutz
Lass diese Zeile weg
ActiveSheet.Range("D5").Select
'Pfad suchen

Private Sub CommandButton3_Click()
Workbooks(wkbname).Activate
'On Error Resume Next
ChDrive "C"
ChDir "C:\Temp"
pfad = Application.GetOpenFilename("Alle Microsoft Excel Dateien (*.xl*), *.xl*")
If pfad  False Then
Me.Repaint
Me.TextBox1.Value = pfad
Me.CommandButton1.SetFocus
Else
Me.CommandButton1.SetFocus
End If
'ActiveSheet.Range("D5").Select
End Sub