Ich möchte aus Mappe1 per CB aus UF Mappe2 aufrufen, gleichzeitig soll Mappe1 geschlossen werden.
Mein Versuch:
Private Sub cmd_BKB_starten_Click() 'Mappe2
Dim wbAktiv As Workbook 'Mappe1
Set wbAktiv = ActiveWorkbook 'Mappe1
Workbooks.Open "D:\Firma\Vorlagen\BKB.xlsm" 'Öffnet Mappe2
wbAktiv.Close 'schließt Mappe1
End Sub
Klappt so nicht! Was muss ich ändernMappe1 wird durch folgenden Code geschlossen:
Private Sub cmd_BKK_schließen() 'Mappe1
Dim sPfad As String
Dim iClick As Integer
sPfad = "D:\Firma\Backup\"
With ActiveWorkbook
.Save
iClick = MsgBox(prompt:="Möchten Sie eine Sicherungskopie anlegen?", Buttons:=vbYesNo)
If iClick = vbYes Then
.SaveCopyAs sPfad & ThisWorkbook.Name
If iClick = vbNo Then
Exit Sub
End If
End If
End With
Application.Quit
End Sub
Danke schon mal im Voraus!!!Gruß
Bernd