Serienbrief die 2te...
10.11.2005 17:13:23
Leo
hat etwas länger gedauert, hier aber nun neben einem hoffentlich kleinen Problem die Antwort zu Euren Tips:
Folgendes Makro habt Ihr mir zu meiner Idee "Serienbrief aus einer Tabelle" empfohlen:
Sub Seriendruck()
Dim wks As Worksheet
Dim iRow As Integer
Set wks = Worksheets("Grundtabelle")
iRow = 21
Do Until IsEmpty(wks.Cells(iRow, 2))
Range("$G$1") = wks.Cells(iRow, 2)
ActiveSheet.PrintOut
iRow = iRow + 1
Loop
End Sub
So, nun funktioniert das Makro als solches auf nem leeren Blatt prima. In meiner Tabelle aber hab ich ein Problem:
Grundsätzlich ahbe ich eine Tabelle mit 620 Zeilen,
Spalte 1: Nummerierung 1 - 620, Spalte 2: Name, Vorname, Spalte 3: Registrierungsnummer, Spalte 4: Kürzel für Wohnort
Wende ich hier das Makro so wie oben beschrieben an, druckt er mir die ersten Einträge doppelt, überspringt dann einige, druckt bis Eintrag 49 und fängt wieder bei 3 an....
Mache ich aus
iRow = iRow + 1 eine "+ 2" druckt er jedes Blatt nur noch einmal, überspringt aber trotzdem immer die Einträge 6, 9,10, usw.... Und auch hier bis 49, dann wieder Start bei 1.... Ich blick nicht durch, ehrlich ...
Hat von Euch jemand ne Idee? Ich versteh das nicht, so ein Mist, und ich muss bis nächste Woche damit fertig werden.....
Gruß und schon mal ein dickes Danke,
Leo