Anzeige
Archiv - Navigation
1112to1116
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Öffnen mehrerer Arbeitsmappen

Öffnen mehrerer Arbeitsmappen
Larissa
Hi,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
da fehlte noch etwas..
07.11.2009 11:40:36
Larissa
Sorry, dieses Teil fehlte noch zu dem Makro damit es funktioniert:
Private Function WkbExists(sFile As String) As Boolean
Dim wkb As Object
On Error Resume Next
Set wkb = Workbooks(sFile)
If Not wkb Is Nothing Then
WkbExists = True
End If
On Error GoTo 0
End Function
Gruß, Larissa
so müsste es funktionieren.
08.11.2009 11:57:08
Tino
Hallo,
Sub oeffnen_mappen()
Dim sFile As String, sPath As String
Dim sFehler As String
'erste Datei **********************************************************************
sFile = "Mappe1.xls"
sPath = ThisWorkbook.Path & "\" & sFile
If Not WkbExists(sFile) Then
If Dir(sPath) = "" Then
sFehler = "Tabelle1 '" & sFile & "' wurde nicht gefunden!" & vbCr
Else
Workbooks.Open sPath
End If
End If
'zweite Datei **********************************************************************
sFile = "Mappe2.xls"
sPath = ThisWorkbook.Path & "\" & sFile
If Not WkbExists(sFile) Then
If Dir(sPath) = "" Then
sFehler = sFehler & "Tabelle2 '" & sFile & "' wurde nicht gefunden!" & vbCr
Else
Workbooks.Open sPath
End If
End If
'dritte Datei **********************************************************************
sFile = "Mappe3.xls"
sPath = ThisWorkbook.Path & "\" & sFile
If Not WkbExists(sFile) Then
If Dir(sPath) = "" Then
sFehler = sFehler & "Tabelle3 '" & sFile & "' wurde nicht gefunden!" & vbCr
Else
Workbooks.Open sPath
End If
End If
If sFehler = "" Then
Workbooks("Hauptmenü.xls").Close SaveChanges:=False
Else
MsgBox sFehler, vbCritical, "Fehler"
End If
End Sub
Gruß Tino
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige