Absolut Genial,
Sorry der Fehler lag bei mir
wirklich cool das erspart mir fast eine halbe stunde arbeit in der Woche.
noch eine letzte Frage, da ich das alles über eine Schaltfläche laufen lassen will
wie kann ich es so hinbekommen das nur daten der Tabelle markiert werden da die anzahl der Zellen variiert
also hier : With Range("A2:R5000") '< Datenbereich der Tabelle. manchmal ist die Liste 10 Seiten manchmal 800
wenn ich sie drucke kommen bei 5000 Zellen und nur 100 einträgen hunderte seiten raus!
danke wirklich
YOU MADE MY DAY
|