Bring eine Leerzeile vor der Summe an.
Jetzt kannst du einen Autofilter einrichten in der Zeile 1 und dann in Spalte C einen Benutzerdefinierten Filter >0 anlegen. Es werden alle anderen Positionen ausgeblendet.
Reicht das ?
Gruss Rainer
oder Drucken über ein Makro
Gruß Hajo
Wo muß ich den Code denn einsetzen?
Silvia
ich habe den Code gestest unter BS XP und Excel XP, aber es sind keine Besonderheiten con XP drin.
Was steht dann in der Zeile wo der Fehler kommt, Llasse Dir doch mal in VBA beim Fehler den Wert von I anzeigen und schaue mal nach was in dieser Zelle steht.
Das Makro gehört in ein Modul
Gruß Hajo
ich dachte aus Deiner Tabelle entnehmen zu können, dass es reicht hier die Werte auszublenden um dann drucken zu können.
Sorry, dann ist die Lösung von Hajo besser.
Gruss Rainer
ich mache jetzt erstmal paar Stunden Pause
ich kann aus Deinen Angaben nicht vermuten wo der Fehler liegt. Ersetzte
Gruß Hajo
Schön wäre auch eine Angabe wo genau die Daten eingetragen werden,
weil auf dem anderen Tabellenblatt
(Tabelle2) schon oberhalb der Seite andere Informationen stehen.
ZB. Eintragung im Bereich ab Zelle A50.
Silvia
Hajo`s Code:
in Deiner gepostete Tabelle war die Menge in Spalte c (3) hat sich das jetz geändert auf Spalte D (4) ???
Sollen die Daten von Tabelle1 ab Zeile 50 in Tabelle2 eingetragen werden???
Einschließlich Tabellenkopf???
Immer ab Zeile 50 bei erneuten Start???
Gruß Hajo
Ich möchte alle Werte und Textinhalte in ein anderes
Tabellenblatt (Tabelle2) übertragen. Dort befinden
sich bereits zusätzliche Infos. Deshalb sollen alle Werte
ab ca. Zeile A50 eingesetzt werden.
Ich habe mittlerweile eine Codezeile hinzugefügt.
Sie ermöglicht mir zuvor eine Ansicht als Preview.
Aber alleine komme ich nicht weiter.
Silvia
Die Aussage
"ab ca. Zeile A50 eingesetzt werden"
ist aber keine Aussage für VBA das muß schon genauer sein
Gruß Hajo
Innerhalb dieser Tabelle2 befinden sich bereits Daten bzw. Werte, deshalb müßte eine Übertragung von Tabellel1 nach Tabelle2 ab Zeile A50 erfolgen.
Nach unten oder nach rechts habe ich genug Platz, nur nicht darüber.
Silvia
Dein Beitrag ist mir gestern abend irgendwie untergegangen.
Gruß Hajo
habe ich was überlesen???
Tabelle 1 hat eine Überschrift, die wird zuerst in Zeile 50 der Tabelle2 übertragen, damit kann ich dann auch eindeutig feststellen wohin die nächste Zeile soll ((.[D65536].End(xlUp).Row + 1), ohne mir afür noch einen Zähler eínzubauen.
Nun müßen nur noch die Daten aus Tabelle1 ab Zeile 2 übertragen werden die verschieden von Null sind.
Den einzigen Fehler den ich sehen würde ist das die Summe nicht mehr gebildet wird. Aber Silvia hat im Verlauf des Beitrages die Struktur geändert, damit habe ich keinen Ansatz mehr in welcher Spalte die Summe hin kommt.
Gruß hajo
habe nochmals gelesen, die Idee ist, das EINFÜGEN in Blatt 2 kann ab Zeile 50 erfolgen wobei die Startzeile in Blatt 2 einstellbar sein soll wegen Tabellenkopf evtl. unterschiedlich.
Könnte diese Variante auch für mich brauchen.
gruss
geri
Silvia hat die 50 Zeile festgeschrieben, falls sie nicht fest ist müßte die Überschrift wie folgt kopiert werden
Also vermute ich mal ich habe es richtig gesehen??
Gruß Hajo
Der Übertrag auf Tabelle2 Zeile 50 funzt einwandfrei.
Ich hab auch gleich den letzten Code ausprobiert und ich sehe
eigentlich nur einen Unterschied. Der Übertrag spring nun in Unterschiedliche Zeilen, mal 60, mal 55 usw.
Könnt Ihr mir mal den unterschied erklären.
Silvia
im ersten Code wird die Überschrift immer in Zeile 50 kopiert und im zweiten Code wird der benuzte Bereich festgestellt und +1
.Rows(.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
Gruß Hajo
Ich möchte den Auswahlbereich, zum kopieren, nach rechts einschränken,
weil dort noch andere Daten stehen die nicht mit Übertragen
werden sollen. Übertragungsbereich müßte A bis F sein, nach
unten allerdings uneingeschränkt (65536).
Coding by Hajo:
Silvia
von dieser Einschränkung stand bisher aber nichts in den Beiträge. Die Spalte C ist inzwischen F.
Gruß Hajo
Bitte sein nachsichtig mit mir. Außerdem dachte ich,
ich könnte ja eine Schaltfläche zum Auslösen
der Funktion einsetzen. Wäre natürlich blöd, wenn das
immer mit kopiert würde.
Mit Deinem Beitrag werde ich das ganze step by step
ausbauen und daher auch nochmal dieser Ergänzungsbeitrag.
Silvia
ich habe nun die Datei nochmal angelegt und es geht ohne Problem. Falls Deine Datei keine Staatsgeheimnisse enthält kannst Du Sie mir mal schicken. Der Fehler muß woanders liegen.
E-Mail sollte aber die Ausnahme sein, nur nach Absprache
Gruß hajo