Tabellen in neue Mappe per VBA, umbennen
24.02.2005 13:25:39
Drazen
ich möchte aus Mappe1 2 Blätter in Mappe2 exportieren, was mir auch gelingt mit folgendem Code:
Sub EXPORT()
Const LW = "C:\"
Const Pfad = "C:\Programme\RECHNUNGEN"
Dim Mappe As Workbook
Dim Tabelle1 As Worksheet, Tabelle2 As Worksheet
Dim s As String
ChDrive LW
ChDir Pfad
Set Tabelle1 = ThisWorkbook.Sheets("RECHNUNG")
Set Tabelle2 = ThisWorkbook.Sheets("RECHNUNGFF")
s = Sheets("RECHNUNG").Range("A4").Value & " Rechnung " & Sheets("RECHNUNG").Range("K11").Value
Set Mappe = Workbooks.Add
Tabelle1.COPY Before:=Mappe.Worksheets(Worksheets.Count)
Tabelle2.COPY Before:=Mappe.Worksheets(Worksheets.Count)
Application.DisplayAlerts = False
Application.DisplayAlerts = True
ActiveWorkbook.SaveAs Filename:=s
ActiveWorkbook.Close
MsgBox ("Ihre Rechnung wurde im Ordner ") & Pfad & (" gespeichert."), vbOKOnly
End Sub
Jetzt wollte ich gerne, dass alle anderen Blätter in dieser neuen MAppe2 gelöscht werden, etwas wie :
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name "RECHNUNG" Or "RECHNUNGFF" Then ws.Delete
Next ws
Das klappt aber irgendwie nicht, hat jemand einen Rat?
Grüsse
Drazen
Anzeige