Mappe öffnen ohne Makro auszuführen !

###########################################################

Public Sub CommandButton1_Click()
Dim stName As String

Application.ScreenUpdating = False

With ActiveWorkbook

ActiveWorkbook.RunAutoMacros xlAutoDeactivate
Workbooks.Open "L:\Pflege\Inpuls\Basis\Arbeitsblatt Beatmung.xls"
ActiveWorkbook.Sheets("Datenblatt").Select


End With


'Workbooks.Open "L:\Pflege\Inpuls\Basis\Arbeitsblatt Beatmung.xls"



'ActiveWorkbook.Sheets("Datenblatt").Select

Dim Msg As String
Msg = "Bitte etwas Gedult, die Daten werden übertragen !"
MsgBox Msg, vbInformation Or vbOKOnly, "Version 8.0"

Call Datenuebertrag(strDAtum)

End Sub

############################

Gruß Ingo