Thema Datum  Von Nutzer Rating
Antwort
Rot Excel Zeilen einfügen Makro
15.12.2022 08:45:15 Markus Keckeisen
NotSolved
15.12.2022 15:14:43 Gast43495
Solved
15.12.2022 15:53:54 Markus Keckeisen
Solved

Ansicht des Beitrags:
Von:
Markus Keckeisen
Datum:
15.12.2022 08:45:15
Views:
267
Rating: Antwort:
  Ja
Thema:
Excel Zeilen einfügen Makro

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:\Firma\"

    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 Firma").Range("G16") = ThisWorkbook.Sheets("Bestellung Firma").Range("G16") + 1

End Sub

 

Vielen Dank für die Hilfe vorab!

Gruß Markus


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Excel Zeilen einfügen Makro
15.12.2022 08:45:15 Markus Keckeisen
NotSolved
15.12.2022 15:14:43 Gast43495
Solved
15.12.2022 15:53:54 Markus Keckeisen
Solved