Thema Datum  Von Nutzer Rating
Antwort
22.09.2023 19:58:50 Denzi
Solved
22.09.2023 20:02:29 Denzi
Solved
23.09.2023 09:14:19 ralf_b
Solved
23.09.2023 20:35:35 Gast85237
Solved
23.09.2023 20:41:10 ralf_b
Solved
23.09.2023 21:44:22 Gast36475
Solved
24.09.2023 22:03:49 Denzi
Solved
Blau Druck 1 von 4, 2 von 4 usw
24.09.2023 22:24:47 xlKing
Solved
25.09.2023 08:43:17 Denzi
Solved
25.09.2023 18:02:35 xlKing
Solved
24.09.2023 23:17:32 ralf_b
*****
Solved
25.09.2023 08:44:10 Denzi
Solved

Ansicht des Beitrags:
Von:
xlKing
Datum:
24.09.2023 22:24:47
Views:
190
Rating: Antwort:
 Nein
Thema:
Druck 1 von 4, 2 von 4 usw

i wird als Integer  deklariert, richtig? (Ist ja eine Zahl) - Korrekt!

Aber den Rest hast du dann doch falsch verstanden. Einfach nur i = i +1 ohne alles andere, nur halt nach der For Zeile als neue Zeile. So meinte ich das:

Sub drucken()
Dim wksTab1 As Worksheet, wksTab2 As Worksheet
Dim intAnzahl As Integer, intZeilen As Integer
Dim i As Integer
Set wksTab1 = Worksheets("Einfügen")
Set wksTab2 = Worksheets("Ausdruck")
For intZeilen = 3 To wksTab1.Cells(Rows.Count, 1).End(xlUp).Row
i = i + 1
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.Range("B7") = i & " von " & intAnzahl
wksTab2.PrintOut Copies:=intAnzahl, Preview:=0, Collate:=1, IgnorePrintAreas:=0
Next
End Sub

oder du verwendest in Zeile 16 den Codevorschlag von Ralf, dann kannst du auf i = i + 1 auch verzichten. In dem Fall müsstest du die Zeile dann aber immer anpassen, wenn du z.B. For intZeilen = 4 oder so machst. daher der Eigene Counter.

Gruß Mr. K.


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
22.09.2023 19:58:50 Denzi
Solved
22.09.2023 20:02:29 Denzi
Solved
23.09.2023 09:14:19 ralf_b
Solved
23.09.2023 20:35:35 Gast85237
Solved
23.09.2023 20:41:10 ralf_b
Solved
23.09.2023 21:44:22 Gast36475
Solved
24.09.2023 22:03:49 Denzi
Solved
Blau Druck 1 von 4, 2 von 4 usw
24.09.2023 22:24:47 xlKing
Solved
25.09.2023 08:43:17 Denzi
Solved
25.09.2023 18:02:35 xlKing
Solved
24.09.2023 23:17:32 ralf_b
*****
Solved
25.09.2023 08:44:10 Denzi
Solved