Makro
07.01.2009 14:39:00
Werner
ich habe in folgenden Makro ein Problem....
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
' 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
...und zwar funktioniert der Bereich Mitarbeiterablage speichern und schließen nicht. Woran könnte das liegen?
Gruß Werner