Blatt per Makro ausschneiden und speichern?
05.02.2004 14:25:58
Markus H.
habe mir dieses Makro zusammengebastelt:
Private Sub CommandButton4_Click() 'Neue Rg
Application.ScreenUpdating = False
If MsgBox("Möchten Sie eine Neue Rechnung erstellen?", vbYesNo, "Neue Rechnung?") = vbYes Then
Sheets("Rechnung").Copy After:=Sheets(1)
Sheets("Rechnung (2)").Name = "RGNR" & Range("H13")
Worksheets("RGNR" & Range("H13")).OLEObjects("CommandButton4").Delete
Worksheets("RGNR" & Range("H13")).OLEObjects("CommandButton2").Delete
Worksheets("RGNR" & Range("H13")).OLEObjects("CommandButton5").Delete
Worksheets("RGNR" & Range("H13")).OLEObjects("ListBox1").Delete
Datei = "RNR " & Range("B13")
ActiveSheet.SaveAs (Datei)
ActiveSheet.Delete
Sheets("Rechnung").Select
MsgBox ("gespeichert")
End If
Application.DisplayAlerts = True
End Sub
Von der Funktionsweise hatte ich mir das so vorgestellt:
Zuerst wird das ursprungsblatt ("Rechnung") kopiert, und eingefügt ("Rechnung(2)") dann wird dieses Blatt umbenannt in RGNR&Rechnung!H13 (was einer zahl entspricht)
Jetzt soll dieses Arbeitsblatt in einen neue Datei eingefügt werden, und dort sollen alle buttons gelöscht werden. und die Datei an eine bestimmte stelle gespeichert, und dann geschlossen werden. -> man soll dann zurück zur ursprungstabelle kommen udn dort soll eine MsgBox erscheinen die sagt, dass die datei gespeichert wurde!
ich weiß das viel in dem script falsch ist bzw. fehlt.
Hoffe ihr könnt mir helfen..
MfG
Markus