Re: Tabellenblatt
24.01.2003 09:37:27
Knud
Hi Martin,
ich habe mit Hilfe dieses Forums in den letzten Tagen folgendes Makro erstellt:Private Sub cmdWksCopy_Click()
' Speichert das ausgefüllte Formular in einer neuen Datei und löscht alle Makros
' Es wird nur das Formularblatt gespeichert.
Dim wks As Worksheet
' Kopieren des Tabellenblattes "Bestellung" in eine neue Arbeitsmappe
Worksheets("Bestellung").Copy
Set wks = ActiveSheet
' Löschen aller Makros und Module in der neuen Arbeitsmappe
With ActiveWorkbook.VBProject _
.VBComponents(wks.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
' Speichern des unter vorgegebenem Namen aus Zelle a9 und h9
ActiveWorkbook.SaveAs Filename:="C:\rechnung\archiv\" & Range("a9") & Range("h9") & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="" _
, ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
sollte funktionieren... Knud