Hallo Mr. K
erstmal noch besten Dank für Deine Mühen !
in 2 Dokumenten funktioniert das jetzt, bei einem Dritten ist es merkwürdig.
In der 2 Fusszeilen auf 2 Seiten sind 3 Bilder. Alle sind eigentlich gleich. Es ist das identische Bild, auf dem nur jeweils etwas andres zur Unterscheidung markeirt ist.
Wenn ich eine FN lösche geht der Zähler richtig 1 runter bei der anderen nicht. In einem der anderen Doks ist das nicht so.
Für mich sehr misteriös...
Wie auch immer, ich werde damit leben und dann ist vielleicht mal eine Seite falsch gezählt. Nicht schön, aber immer noch besser als alles händisch oder mit Abakus abzuzählen ;-)
Aber vielleicht schaust Du hier nochmal bitte drauf..
Dass es (sonst) läuft habe ich
If pgn > oldpgn And shp.PictureFormat.ColorType = msoPictureAutomatic And InStr(1, gezaehltf, pgn) = 0 Then
auskommentiert...
DC
|