Dringend! Seriendruck mit Beispiel - Klappt net...
22.11.2005 19:50:01
Leo
3ter Versuch, langsam wird es elendig Dringende... Darum noch mal meine Bitte um hilfe, ich weiß nicht, wo der Fehler liegt... Ich hab nun mal meine Datei im Original hochgeladen. Die Datensätze werden aus anderen Tabellen kopiert, aber vielleicht ersetzt Ihr die ja mal Testweise, die Datei liegt hier:
www.xanaa.de/xcel/paketmarkenerstellung
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 hab ich ja 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 nun diese Woche damit fertig werden.....
Gruß und schon mal ein dickes Danke,
Leo