|
Hallo an alle Fachfrauen und Fachmänner,
ich bin ohne VBA-Kenntnisse und benötige Hilfe mit folgendem Problem, welches für Euch sicher keines darstellt:
Wie schaffe ich es im Excel 2016, dass in den folgenden beiden Befehlen nach der Copy in die nächste freie Zeile gesprungen wird ohne den vorigen Eintrag zu löschen?
Worksheets("Bestellung Firma").Range("B26").Copy Worksheets("Anhang Firma").Range("A2") _
Worksheets("Bestellung Firma").Range("G16:H16").Copy Worksheets("Anhang Firma").Range("C2") _
Komplettes Makro:
Sub aktivesBlattToPdf()
ChDir "U:\Strassacker\Namenschilder bestellen\"
ActiveSheet.ExportAsFixedFormat Type:=x1TypePDF, Filename:= _
Range("B26").Value & " " & Range("G16").Value & Format(Date, "-YYYY") & ".pdf", Quality:=x1QualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Worksheets("Bestellung Firma").Range("B26").Copy Worksheets("Anhang Firma").Range("A2") _
Worksheets("Bestellung Firma").Range("G16:H16").Copy Worksheets("Anhang Firma").Range("C2") _
ThisWorkbook.Sheets("Bestellung Strassacker").Range("G16") = ThisWorkbook.Sheets("Bestellung Strassacker").Range("G16") + 1
End Sub
Vielen Dank für die Hilfe vorab!
Gruß Markus
|