makros löschen
13.12.2004 23:15:31
carlo
ich habe ein kleines rg programm geschrieben und möchte jetzt mit hilfe
des letzten makros das ganze speichern...
beim speichern soll nur die rechnungsseite bleiben alle anderen tabellen
werden gelöscht.
meine zwei probleme:
1. ich habe ein xlt, der user bekommt durch klick auf der quick launch ein xls
mein makro "speichern" macht eine kopie der rg tabelle und gibt ihr einen namen. wie kann ich im hintergrund die xls mappe löschen ohne dass der user dies bestätigen muss?
2. auf dieser kopie erscheinen noch die anderen makros... wie kann ich diese löschen?
hier mein makro:
Sub Speichern()
' rechnungstabelle kopieren und mit rgNr. speichern in...
Dim Adr As String
Dim altname As String
Adr = ThisWorkbook.Sheets("RechnungsVorlage").Range("RechnNo")
If Len(Adr) > 0 Then
On Error Resume Next
ThisWorkbook.Sheets("RechnungsVorlage").Copy
altname = ActiveWorkbook.Name
Workbooks(altname).Sheets(1).Name = Adr
Workbooks(altname).SaveAs Filename:="u:\bfc Privat\Privat Home\Chiri\" & Adr
ActiveSheet.Protect Password:="carlo", DrawingObjects:=True, _
Contents:=True, Scenarios:=True
MsgBox ("Erfolgt")
On Error GoTo 0
Else
MsgBox ("Hei! Ohne Nummer keine Rechnung")
Range("RechnNo").Select
End If
Application.Quit
End Sub
danke und gruss
carlo