Re: ! worksheet dynamisch
22.07.2002 18:18:37
Nepumuk
Hallo Thomas
eine mögliche Lösung deines ProblemsOption Explicit
Option Base 1
Sub hour_speichern()
Dim bereich As Variant, Arbeitsblatt As Worksheet, Blattname As String, Mappenname As String
' Umwandeln von Formeln in Werte
Worksheets("hour").Select
bereich = Worksheets("hour").Range(Cells(1, 1), Cells.SpecialCells(xlCellTypeLastCell))
Worksheets("hour").Range(Cells(1, 1), Cells.SpecialCells(xlCellTypeLastCell)) = bereich
' Alle Arbeitsblätter außer "hour" löschen
Application.DisplayAlerts = False
For Each Arbeitsblatt In Worksheets
Blattname = Arbeitsblatt.Name
If Blattname <> "hour" Then
Sheets(Blattname).Select
ActiveWindow.SelectedSheets.Delete
End If
Next Arbeitsblatt
' Arbeitsmappe speichern und schließen
With ActiveWorkbook
Mappenname = .Name
.SaveAs " " & Mappenname
.Close SaveChanges:=False
End With
End Sub
In die Anführungszeichen des Befehls - SaveAS - kommt dein Pfad z.B. "C:/Eigene Dateien/Eigene Sicherungsdateien/" . Bitte den letzten Schrägstrich nicht vergessen!
Gruß
Nepumuk