|
Danke für die Hilfestellung, aber nun bin ich komplett raus...
i wird als Integer deklariert, richtig? (Ist ja eine Zahl)
Jetzt fehlt mir in Zeile 8: For i = i + 1 noch die To Zuweisung.
Ich bin der Festen Überzeugung das, folgendes Korrekt wäre... aber wie gesagt, bin absoluter Neuling.
Er soll ja aus Tabellenblatt 1, Spalte 2 (Collianzahl) hoch zählen
=> For i = i + 1 To wksTab1.Cells(Rows.Count, 2).End(xlUp).Row
Code sieht dann wie folgt aus:
Option Explicit
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
For i = i + 1 To wksTab1.Cells(Rows.Count, 2).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") = i & " von " & intAnzahl
'intAnzahl = wksTab2.Range("B7")
wksTab2.PrintOut Copies:=intAnzahl, Preview:=0, Collate:=1, IgnorePrintAreas:=0
Next
End Sub
Als Fehler ist: For ohne Next
Ich kann ja schlecht 2x Next am Ende zuweisen, zumal dann die Fehlermeldung 1004 erscheint: Zahl muss zwischen 1 und 32767 liegen.
|