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

Ansicht des Beitrags:
Von:
Gast43495		 Datum:
15.12.2022 15:14:43		 Views:
632		 Rating:
     
Antwort:
 Nein
Thema:
Excel Zeilen einfügen Makro

Hallo

ein wenig umgebaut..


Sub aktivesBlattToPdf()
    Dim TB1, TB2
    
    Set TB1 = ThisWorkbook.Sheets("Bestellung Firma")
    Set TB2 = ThisWorkbook.Sheets("Anhang Firma")
    
    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
        
    LR = TB2.Cells(TB2.Rows.Count, "A").End(xlUp).Row + 1 'erste freie Zeile der Spalte
    TB1.Range("B26").Copy TB2.Range("A" & LR)
    
    LR = TB2.Cells(TB2.Rows.Count, "C").End(xlUp).Row + 1
    TB1.Range("G16:H16").Copy TB2.Range("C" & LR)
    
    TB1.Range("G16") = TB1.Range("G16") + 1
    
End Sub

LG UweD

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
15.12.2022 08:45:15 Markus Keckeisen
NotSolved
Blau Excel Zeilen einfügen Makro
 15.12.2022 15:14:43 Gast43495
Solved
15.12.2022 15:53:54 Markus Keckeisen
Solved