Excel VBA-Forum - Das Forum zu Microsoft Excel VBA

Ansicht des Beitrags:

Von:
Denzi

Datum:
22.09.2023 20:02:29

Views:
201

Rating:

Antwort:

Thema:
Druck 1 von 4, 2 von 4 usw

Das wäre der Code:

Sub drucken()

Dim wksTab1 As Worksheet, wksTab2 As Worksheet

Dim intAnzahl As Integer, intZeilen As Integer

Set wksTab1 = Worksheets("Einfügen")

Set wksTab2 = Worksheets("Ausdruck")

For intZeilen = 3 To wksTab1.Cells(Rows.Count, 1).End(xlUp).Row

wksTab2.Range("A5") = wksTab1.Cells(intZeilen, 1)

wksTab2.Range("A4") = wksTab1.Cells(intZeilen, 4)

wksTab2.Range("A3") = wksTab1.Cells(intZeilen, 3)

wksTab2.Range("A2") = wksTab1.Cells(intZeilen, 6)

wksTab2.Range("A1") = wksTab1.Cells(intZeilen, 5)

wksTab2.Range("B7") = wksTab1.Cells(intZeilen, 2)

intAnzahl = wksTab2.Range("B7")

wksTab2.PrintOut Copies:=intAnzahl, Preview:=0, Collate:=1, IgnorePrintAreas:=0

End Sub

Anbei ein Screenshot:

https://ibb.co/GVFdMYK

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