Markobezug auf bestimmte Zeilen mit Grenzezeil
10.06.2015 16:02:08
matthias
ich kann mittels des Codes (steht im Modul) aus einer Tabelle mit Daten ein anderes Datenblatt (Vorlage) füllen lassen und automatisch alle ausgefüllten Vorlagen ausdrucken.
Ich habe nur das Problem, dass ich ihm vorgeben möchte wann er mit dem durchlaufen aufhören soll.
Bis jetzt ist es so, dass er einfach dann aufhört wenn kein weiterer Datensatz mehr vorhanden ist.
Ich würde ihm, aber lieber eine Zelle vorgeben die als untere Grenze dient.
Werden darüber Zeilen eingefügt, dann verschiebt dich der Bereich, auf das sich das Makro bezieht um eins nach unten.
Wie kann ich sowas umsetzen?
Option Explicit
Sub SQ1()
Dim wks As Worksheet
Dim iRow As Integer
Set wks = Worksheets("Zusammenfassung")
iRow = 8
Do Until IsEmpty(wks.Cells(iRow, 1))
Worksheets("SQ1").Range("$T$1") = wks.Cells(iRow, 1)
Worksheets("SQ1").PrintOut
iRow = iRow + 1
Loop
End Sub