Makro läuft nicht Warum ?
07.05.2005 10:17:30
Walter
habe folgendes Makro, mit Hilfe vom Forum zusammengebastelt.
Sub N_NW_Dialog_aufrufen()
Application.ScreenUpdating = False
Dim bolOpen As Boolean
Dim Datei, Fname As String
Dim wb As Workbook
Dim wbDatabase As Workbook
Dim wsDatabase As Worksheet
Datei = "1-nw-plk-vb.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
End If
Next
If bolOpen = False Then Workbooks.Open Filename:=Fname
Windows("1-nw-plk-vb.xls").Activate
Sheets("Prov-Blatt").Select
Application.ScreenUpdating = True
End Sub
Das Makro läuft, wenn die Datei NICHT vorhanden ist, wenn die Datei aber offen ist und ich Sie nur aktivieren will kommt HINWEIS soll erneut geöffnet werden
JA oder NEIN etc., ich möchte das dann ebenfalls die Datei aktiviert wird genau wie vor.
Was muß ich hier ergänzen ?
Gruß Walter mb