komme einfach nicht weiter und zwar habe ich folgendes Problem: 1.Mappe offen mit UF, aus der UF öffne ich eine 2te Excelmappe mit folgendem Code ...
Private Sub cmdBaufinanzierung_Click()
Application.WindowState = xlMinimized
Me.Hide
Workbooks.Open "D:\Firma\Vorlagen\BKBaufi.xlsm"
End Sub
Die 2te Mappe schließe ich wie folgt ...Sub cmdBKBaufi_schließen()
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
If Workbooks.Count > 2 Then
ThisWorkbook.Close
Else
Application.Quit
End If
ThisWorkbook("BKKunde.xlsm").Activate
frm_Kundenliste.Show vbModeless
End Sub
Die verbleibende geöffnete Datei soll wieder mit der UF "frmKundenliste" starten. Ich schaffe es einfach nicht. Am Ende im VBACode seht ihr meine Versuche.Wer kann mir helfen?
Danke schon mal im Voraus!!
Gruß
Bernd