ich möchte mit einem Makro aus einer Excel Mappe eine PowerPoint ausleiten. Dazu möchte ich, dass das Makro zunächst nach der Excel Mappe fragt, die herangezogen werden soll. Das mache ich über Application.GetOpenFilename. Danach prüfe ich noch ob eine Angabe getätigt wurde und mit der Function unten, ob die Mappe bereits geöffnet ist. Ansonsten lasse ich die angegebene Excel-Datei öffnen.
Das funktioniert soweit auch, allerdings läuft der Rest des Makros mit diesem Abschnitt teilweise nicht korrekt durch. Wenn ich eine bestimmte Excel-Datei direkt anspreche (für die spätere Nutzung unhandlich) läuft das Makro ohne Probleme.
Auch die schrittweise Ausführung über F8 funktioniert nur bis zu dem unten angegebene Teil des Codes, ab dort läuft das Makro einfach weiter ohne, dass Einfluss genommen werden kann.
Hat jemand eine Idee was das Problem sein könnte?
Sub Mappe()
Dim Excel as string
Excel = Application.GetOpenFilename
If Excel = "Falsch" Then
MsgBox "Keine Mappe ausgewählt "
Exit Sub
End If
If MAPPEOFFEN(Excel) = False Then
Workbooks.Open (Excel)
End If
End Sub
Function MAPPEOFFEN(MappeName As String) As Boolean
Dim Mappe As Workbook
MAPPEOFFEN = False
For Each Mappe In Application.Workbooks
If Mappe.Name = MappeName Then
MAPPEOFFEN = True
Exit Function
End If
Next Mappe
End Function