Noch mal Hallo alle zusammen,
weiß jemand wie ich die Makros und Steuerelemente herausnehmen kann,
wenn ich die Datei am Ende abspeichere!?
Danke für Eure Hilfe,
viele Grüße
Volker
Sub RechDruck() Dim strPfad As String strPfad = "C:\DeinPfad\" ' Rechnungs Nummer um 10000 hochzählen ' Übernahme Daten aus Rechungen nach RechNummern(Liste) ' Druckbereich Seite 1 (nur Rechnung) festlegen und 2 fach Drucken ' Schritt 1 Worksheets("Rechnungen").Range("I23").Value = Worksheets("Rechnungen").Range("I23").Value + 10000 ' Schritt 2 Dim laR As Long With Sheets("RechNummern") If .Cells(65536, 1).End(xlUp).Row + 1 > 1 Then laR = .Cells(65536, 1).End(xlUp).Row + 1 Else laR = 1 .Cells(laR, 1).Value = Sheets("Rechnungen").Range("I23").Value .Cells(laR, 2).Value = Sheets("Rechnungen").Range("I25").Value .Cells(laR, 3).Value = Sheets("Rechnungen").Range("G25").Value .Cells(laR, 4).Value = Sheets("Rechnungen").Range("B14").Value .Cells(laR, 5).Value = Sheets("Rechnungen").Range("I51").Value End With ' Schritt 3 ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=3, Collate:=True Sheets("Rechnungen").Copy ActiveWorkbook.SaveAs strPfad & Sheets(1).Range("I23") & ".xls" ActiveWorkbook.Close End Sub