ich hab mal wieder ein Proplem und hoffe auf Hilfe.
Das Nachfolgende Makro............
Private Sub CommandButton2_Click()
Dim vLinks, ii As Integer, strB As String
Workbooks.Open Filename:= _
"C:\Dokumente und Einstellungen\Werner\Eigene Dateien\Kalkulation Kostenrechnung 25.08. _
2008\Mitarbeiterablage.xls"
Windows("Kalkulation-Kostenrechnung Römerbad 25.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
End Sub
.....fünktioniert sehr gut, ich möchte aber noch folgendes dazufügen.
Wenn die Datei Mitarbeiterablage geschlossen wird komme ich wieder in die Datei:
"C:\Dokumente und Einstellungen\Werner\Eigene Dateien\Kalkulation Kostenrechnung 25.08.2008\Mitarbeiterablage.xls"
Windows("Kalkulation-Kostenrechnung Römerbad 25.08.2008.xls").Activate
Sheets("Tabelle1").Select zurück.
Wenn ich in der Datei in Tabelle1 binn sollen noch die Zellen E2,E3 und B4 gelöscht werden. Wie kann ich das obige Makro so erweidern das das klappt?
Viele Grüße
Werner