Datei schließt nicht, verkürzt.
14.05.2005 23:48:21
Walter
hatte schon mal geschrieben leider keiner einen Tip gehabt.
Nun habe folgendes Makro verkürzt:
Private Sub CommandButton5_Click()
Application.ScreenUpdating = False
ComboBox3.SetFocus
With ComboBox3
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
Dim Antwort
Antwort = MsgBox(" Beenden >>> JA drücken" & _
Chr(13) & Chr(13) & " oder" _
& Chr(13) & Chr(13) & _
"Datei OFFEN lassen, für späteres arbeiten ? " & Chr(13) & Chr(13) & _
" dann >>> NEIN drücken ", vbYesNo + vbQuestion, " Hinweis !")
If Antwort = vbYes Then
Windows("1-NW-PLK-VB.xls").Activate
Worksheets("Prov-Blatt").Select
Range("A1").Select
Worksheets("Prov-Blatt").Unprotect ("wwpa") 'schutz aufheben
Columns("A:A").Select
Selection.ColumnWidth = 120
Columns("B:B").Select
Range("B2").Activate
ActiveWindow.FreezePanes = True
Columns("A:A").Select
Range("A2").Activate
Selection.ColumnWidth = 170
Worksheets("Prov-Blatt").ScrollArea = "A1:A30" 'Zeilen bis sperren
Worksheets("Prov-Blatt").Select
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _
:=True, Password:="wwpa"
Worksheets("Prov-Blatt").Select
Range("A1").Select
ChDir "C:\1_PKW_Verkauf"
Application.DisplayAlerts = False ' Sicherheitsabfrage unterdrücken
ActiveWorkbook.SaveAs Filename:="C:\1_PKW_Verkauf\1-NW-PLK-VB.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
If Worksheets("GF-TAB-Neu").Visible = True Then
Worksheets("GF-TAB-Neu").Select
Range("A40").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _
:=True, Password:="wwpa"
Sheets("GF-TAB-Neu").Visible = False
End If
If Worksheets("Auftragsblatt").Visible = True Then
Worksheets("Auftragsblatt").Select
Range("A40").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _
:=True, Password:="wwpa"
Sheets("Auftragsblatt").Visible = False
End If
If Worksheets("Kulanzblatt-VK").Visible = True Then
Worksheets("Kulanzblatt-VK").Select
Range("A40").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _
:=True, Password:="wwpa"
Sheets("Kulanzblatt-VK").Visible = False
End If
Windows("1-NW-PLK-Datenbank.xls").Activate
ActiveWorkbook.Close
MsgBox "ww1111" <<<<< wird nicht angezeigt, die Mappenoberfläche von
Prov-Blatt wird angezeigt.
' will ich nun die Mappe: Worksheets("Prov-Blatt").Select
' schließen geht auch nicht keine Reaktion.
Windows("1-NW-PLK-VB.xls").Activate
Worksheets("Prov-Blatt").Select
Range("a1").Select
ActiveWorkbook.Close 'so läuft in excel97
Else
Unload Me
End If
End Sub
Ich möchte aber das die Datei: Windows("1-NW-PLK-VB.xls") geschlossen wird.
Wie gesagt die MsgBox "ww1111" wird NICHT angezeigt die Datei:
"1-NW-PLK-Datenbank.xls" ist geschlossen.
Wieso klappt das nicht ????
Gruß Walter