Active Datei wieder auf Oberfläche
22.04.2021 17:25:23
kurt
ich bearbeite eine Stundendatei.xlsm (es sind 32 Dateien, deshalb kann ich da nicht mit Namen arbeiten.
Für die Eingabe nutze ich die Userform= UF_Std_Eingabe aus der Datei: Std_EingabeMaske.xlsm
Von der aktuellen 1. aktiven Datei, Sheet aktiviere ich dieses Makro, welches sich in einem Modul befindet:
Sub Stunden_Eingabe_Maske_aktivieren()
Workbooks.Open Filename:="C:\###_Std_Eingabe_Programm\_Std_EingabeMaske.xlsm"
End Sub
Die Datei wird aufgerufen und das Makro für die Userform wird in der"DieseArbeitsmappe" hiermit gestartet:
Private Sub Workbook_Open()
Windows(ThisWorkbook.Name).Visible = False
UF_Std_Eingabe.Show
End Sub
Hiermit soll die Datei mit der Userform geschlossen werden.
Private Sub Image1_Click()
Dim awn
Set awn = ActiveWorkbook
Windows(ThisWorkbook.Name).Visible = True
Unload Me
ThisWorkbook.Close savechanges:=True
Windows(awn).Select
End Sub
da ich und auch die Kollegen mehrer Dateien offen haben, klappt dies nicht.
Was muss ich ändern ?
würde mich um eine Lösung freuen !
mfg kurt b