Datei öffnen/schließen
09.02.2009 18:21:28
Werner
zu folgenden Makro hab ich zwei Fragen.
Das Makro ist in einer Datei die sich auf LW "E" befindet, da fuktioniert ja auch der Zugriff. Wenn ich die Datei in einen anderen LW benützen möchte, müßte ich jedesmahl das LW im Makro ändern (bei über 170 Makros etwas umschtändlich). Gibt es da eine Möglichkeit?
Die zweite Frage betrifft den Teil des Makros :
ActiveWorkbook.Save
ActiveWindow.Close
Die Datei wird nicht geschlossen!! Woran könnte das liegen?
Private Sub CommandButton2_Click()
Dim vLinks, ii As Integer, strB As String
Workbooks.Open Filename:= _
"E:\Kalkulation-Kostenrechnung-Römerbad\Mitarbeiterablage.xls"
Windows("KalkulationKostenrechnungRömerbad25_08_2008.xls").Activate
Sheets("Tabelle1").Select
Sheets("Tabelle1").Copy after:=Workbooks("Mitarbeiterablage.xls").Sheets(1)
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
' Blatt umbenennen
strB = ActiveSheet.Cells(2, 2)
If SheetTest(strB) Then
MsgBox "Das kopierte Blatt konnte in " & ActiveWorkbook.Name & _
" nicht umbenannt werden." & vbLf & vbLf & "Blatt '" & strB & _
"' war bereits vorhanden.", vbExclamation, "weise hin..."
Else
ActiveSheet.Name = strB
Workbooks("Mitarbeiterablage.xls").Close True ' Mitarbeiterablage _
_
speichern + schließen
ActiveWorkbook.Save
ActiveWindow.Close
End If
Windows("KalkulationKostenrechnungRömerbad25_08_2008.xls").Activate
Sheets("Tabelle1").Select
Sheets("Tabelle1").Range("B4,E2,E3").ClearContents
End Sub
über eine Lösung würde ich mich sehr freuen :-)
Viele Grüße
Werner