Seitenumbruch und Zellen ab Zeile x einfügen
18.11.2007 14:16:36
Frank
für ein weiteres Problem suche ich auch noch eine Lösung, ich habe das jetzt hier mal als getrennten Beitrag eingestellt.
Und zwar habe ich ein Makro, dass mir die Werte aus TabelleX in eine TabelleZiel kopiert.
In der TabelleZiel habe ich aber nur 15 Zeilen zur Verfügung, in die ab Zeile 30 bis 45 die Werte einkopiert
werden.
Nun meine Frage, wenn in TabelleX 16-bis 30 oder mehr Werte stehen, möchte ich am besten einen automatischen Seitenumbruch, und dass dann die Werte ab Zeile Y in der zweiten Seite der TabelleZiel einkopiert werden.
Hoffe, ich habe mich einigermassen verständlich ausgedrückt ;)
Hier ein Auszug aus dem Makro
shQuelle.Cells(1, 1).AutoFilter Field:=6, Criteria1:=">0"
If Quelle.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count > Ziel.Rows.Count Then
' für den RowCount ab Zeile 16 soll ab Y in TabelleZiel kopiert werden.
rngQuelle.Columns(1).SpecialCells(xlCellTypeVisible).Copy
rngZiel.Cells(1, 6).PasteSpecial xlPasteValues
rngQuelle.Columns(2).SpecialCells(xlCellTypeVisible).Copy
rngZiel.Cells(1, 2).PasteSpecial xlPasteValuesAndNumberFormatsusw.
Würde mich über einen Vorschlag sehr freuen. Vielen Dank im voraus für Eure Hilfe.
Frank