Von UF Focus zurück auf Ursprungszelle
15.04.2018 15:30:51
Ronald
Mein hoffentlich letztes Problem.
Ich habe eine UserForm, die zur Laufzeit immer angezeigt wird. Wenn ich im Sheet
eine Zeile anklicke, werden aus dieser Zeile die jeweiligen Daten ausgelesen und
auf der UserForm angezeigt. Ich kann also ganz normal mit den Pfeiltasten im
Excel navigieren. Wenn ich nun aber in die UserForm klicke, bekommt die den Focus
und behält ihn auch. Ich kann in der UserForm per Tab navigieren... Nun zu meinem
Problem: Ich möchte nun einen Button einrichten, mit dem der Focus wieder aufs
Excelsheet gesetzt wird. Und zwar auf dieselbe Zelle, die vorher aktiv war, bevor
ich auf die UserForm geklickt und diese damit aktiviert habe. Und zwar soll man
dann mit dem Focuswechsel wieder auf dem Excelsheet navigieren können, wie gehabt.
Ich könnte das auch per Mausklick machen. Jedoch kann dann der erweiterte Quellcode
nicht abgearbeitet werden.
Momentan sieht es bei mir so aus.
Private Sub Workbook_SheetSelectionChange(ByVal sh As Object, ByVal Target As Excel.Range)
Call Workbook_Open
End Sub
Private Sub Workbook_Open()
Application.Calculation = xlCalculationManual
With frmService
.Left = intFormularStartPositionLeft
.Top = intFormularStartPositionTop
.Height = 220
.Show vbModeless
End With
Call Test2
End Sub
Private Sub Test2()
SetForegroundWindow (Application.hwnd)
Application.WindowState = xlMaximized
End Sub
UserForm zurückkommt, von Belang ist.
Ich habe natürlich bereits das
Internet durchgekämmt und da alle möglichen Varianten durchprobiert, aber es
hat alles nicht funktioniert. Teilweise hatte ich auch eine Fehlermeldung.
Irgendwas mit Global, aber ich kann momentan nicht nachgucken, sonst hätte ich
natürlich auch veröffentlicht, was ich bereits versucht habe und jeweils auch,
welche Meldung kam.
Ich hoffe, Ihr habt einen guten Tip für mich.
Danke im Voraus.
Gruß Ronald