Makro läuft nicht Warum ?
11.12.2004 20:05:10
walter
wenn ich das Makro gestartet von einem Command-Button auf der Mappenoberfläche aus, funktioniert nicht.
Grund wenn ich die Datei:"1-NW-PLK-Datenbank.xls" schon geschlossen habe, gibt
es keine Reaktion. Wenn ich die Datei: "1-NW-PLK-Datenbank.xls" aber geöffnet habe, wird das Makro ausgeführt und die UserForm gestartet.
Wieso ?
Hier mein Makro:
Sub Auto_Open()
Application.ScreenUpdating = False
Dim Datei, Fname As String
Dim wb As Workbook
Dim wbDatabase As Workbook
Dim wsDatabase As Worksheet
Datei = "1-NW-PLK-Datenbank.xls" ' Name der Datenbank
Fname = "C:\1_PKW_Verkauf\" & Datei ' kompletter Pfad der Datenbank
bolOpen = False
For Each wb In Application.Workbooks
If wb.Name = Datei Then ' Datenbank schon geöffnet?
bolOpen = True
Exit For
End If
Next
If bolOpen = False Then Workbooks.Open Filename:=Fname
Windows("1-NW-PLK-VB.xls").Activate
Sheets("Prov-Blatt").Select
Range("a1").Select
Walter.Show
Application.ScreenUpdating = True
End Sub
Danke wenn mir jemand helfen kann,
gruß Walter