Workbook wechseln
10.04.2019 08:32:27
Peter
aus Workbook1 starte ich workbook2. Nach dem Öffnen soll dann die UF aus Workbook1 im Vordergrund sein und nicht Workbook2.
'manuelle Berichtigung ändern
<pre>Private Sub OptionButton16_Click()
'Anfang Prüfung ob Berichtigung vorhanden
Dim wb As Workbook
Dim wksH As Worksheet
Set wb = ThisWorkbook
Set wksH = wb.Worksheets("Hilfstabelle")
If wksH.Range("M2") = "" Then
MsgBox "neue Berichtigung-Datei anlegen und öffnen"
Call zBerichtigung_Basis_Datei_kopieren_12Berichtigung_einfügen
Call Berichtigung_öffnen
UF11_manuelleBerKorrektur.Show
Unload Me
Else
'MsgBox "Berichtigung-Datei öffnen"
'Call Berichtigung_öffnen '=Workbook2
Workbooks("Kopierkostenabrechnung_Basis.xlsm").Activate '=Workbook1
UF11_manuelleBerKorrektur.Show
Call Berichtigung_öffnen
Unload Me
End If
'Ende Prüfung ob Berichtigung vorhanden
End Sub</pre>
Was mache ich hier falsch?
Besten Dank für eure Hilfe.
Gruss
Peter