Ich brauche noch eine Hilfe für das Finetunig in meines Werkes.
Über ein Hauptmenü möchte ich mit einem Makro 3 Arbeitsmappen öffnen, aber mit dem folgenden Makro öffne ich nur eine Mappe und ich weiß nicht genau, wie ich die zwei weiteren Mappen öffnen kann.
Nach dem öffnen der 3 Mappen soll das Hauptmenü geschlossen werden.
Sub oeffnen_mappen()
Dim sFile As String, sPath As String
sFile = "Mappe1.xls"
sPath = ThisWorkbook.Path & "\" & sFile
If WkbExists(sFile) = False Then
If Dir(sPath) = "" Then
MsgBox "Tabelle1" & sPath & " wurde nicht gefunden!"
Else
Workbooks.Open sPath
Workbooks("Hauptmenü.xls").Close SaveChanges:=False
End If
Else
Workbooks(sFile).Activate
Workbooks("Hauptmenü.xls").Close SaveChanges:=False
End If
End Sub
Vielen Dank und viele Grüße,Larissa