Supportnet / Forum / Tabellenkalkulation

Hallo zusammen, Ich habe eine kleines Problem. Ich habe in einer Mappe 2 Tabellenblätter. In der ersten werden verschiedene Werte eingegeben. Z. B. in Spalte A Datumsangaben, in Spalte B €-Beträge. (usw. ist glaube ich nicht so interessant, was da sonst noch steht) In Tabelle 2 werden einzelne Spalten aus Tabelle 1 übernommen mit =Tabelle1!A1 etc. Das klappt auch alles wunderbar. Das die Anzahl der Angaben in Tabelle 1 sehr schwankt (mal sind es 100 Einträge untereinander, mal nur 40, mal 400) habe ich die Formeln in Tabelle 2 sehr weit nach unten kopiert. Die entstehenden Nullen (wenn Tabelle 1 weniger Werte hat) bekomme ich weg (bedingte Formatierung oder Optionen -> Nullwerte nicht anzeigen). Beim Drucken bekomme ich aber u.U. zig leere Seiten gedruckt. Ist zwar nicht sooo schlimm, nervt aber. Ich kann zwar markieren und dann die Markierung drucken, das hätte ich aber gerne irgendwie automatisiert, wenns geht mit einer großen Schaltfläche, damit auch der "dümmste" Kollege klarkommt. Geht das irgendwie? Oder fällt euch eine andere Lösung ein? Habe ich mein Problem überhaupt klargemacht? Vielen Dank fürs Kopfzerbrechen. Schönes Wochenende ich rall es nicht

Du kannst doch generell einen Druckbereich festlegen; dann wird auch nur dieser gedruckt.

Bei E97 zu finden unter: Datei - Druckbereich - Druckbereich festlegen.

Da brauchst Du keinen Button und nichts. Ich habs zwar nicht probiert, aber wenn nach zB. 2 Zeilen Schluß und leer ist, denk ich mal, wird dann auch trotz Druckbereich nichts gedruckt.

Hi ich rall es nicht,

Zum ersten:

Ändere Deine Formeln von =Tabelle1!A1 in:
=WENN(Tabelle1!A1="";"";Tabelle1!A1)

Damit sind ersteinmal die Nullen weg, andererseits ist das auch für den weiteren Fortgang wichtig.

Nachdem ich jetzt die Struktur Deiner Tabelle nicht kenne, aber Du von Preisen gesprochen hast, nehme ich mal an, daß es auch eine Spalte gibt,
in der nur Werte stehen. Dann gehe ich mal davon aus, daß diese Werte lückenlos sind (also keine leeren Zellen dazwischen) und du in Zeile 1 Überschriften hast.

Nehmen wir mal an, es sollen die Spalten A bis E gedruckt werden.

Nun markierst Du einfach den Bereich A1 bis E1
Dann:
DATEI - DRUCKBEREICH - DRUCKBEREICH FESTLEGEN
Danach:
EINFÜGEN - NAMEN - DEFINIEREN (FESTLEGEN)

Du hast jetzt hier einen Eintrag Druckbereich Tabelle2

Da klickst Du einmal drauf. Im unteren Feld steht nun der von dir markierte Bereich bei bezieht sich auf. Da sollte jetzt dann stehen:
=Tabelle2!$A$1:$E$1
Daraus machst Du:

=INDIREKT("Tabelle2!$A$1:$E$"&ANZAHL(Tabelle2!$C:$C)+1)

OK.

Nun kannst Du einfach über den Druckerbutton drucken. Der Druckbereich sollte sich der Länge Deiner Tabelle anpassen.

Falls Du damit nicht zurecht kommst, dann noch mal posten und bitte den genauen Aufbau Deiner Tabelle2 beschreiben.

CU Aliba

Hi LouZipher,

das ist ja das Problem von ich rall...

Wenn da Formeln in den Zellen stehen, dann sind die auch nicht leer und Excel erkennt als Ende der Tabelle eben den letzten Formeleintrag, auch wenn von der Formel als Ergebnis "" und momentan ja 0 geliefert wird.

Und nur durch Ausschalten der Null-Anzeige werden die Zellen ja auch nicht leer.

CU Aliba

Er hat die Formeln doch weit weg geschrieben, er muß die ja nicht mit markieren ... nur den Ergebnisbereich ...

Hi,

ich hätte da mal wieder, wie sollt es auch anders sein, eine Makrolösung. Bedingung ist allerdings, dass in Zeile 1 in den einzellnen Spalten eine Überschriften stehen. Nachfolgenden Code in ein Standardmodul koieren.

Sub Daten()
    Application.ScreenUpdating = False
    Range("A2").AutoFilter Field:=1, _
    Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut _
    Copies:=1, Collate:=True
    Selection.AutoFilter
End Sub

Das Makro schaltet den AutoFilter ein, filtert in Spalte A nach nichtleeren Zellen, druckt dann die Blätter und schaltet zum Schluß den AutoFilter wieder aus.
Da ich nicht weiß, ob Du Dich mit VBA (Visual Basic) auskennst, kommt hier eine kurze Anweisung, wie Du den Code in Deine Tabelle bekommst.

1. Markiere die Anweisung aus diesem Beitrag und Kopiere (Strg c) diesen.

2. Klicke in Deiner Exceldatei in der Menüleiste nacheinander auf Extras => Makro => Visual Basic Editor oder drücke die Tastenkombination Alt F11

3. In dem neu geöffneten Fenster suche auf der linken Seite nach dem Eintrag VBA Projekt(Hier der Name Deiner Tabelle) und klicke doppelt auf diesen Eintrag

4. Klicke danach nacheinander in der Menüleiste auf Einfügen => Modul.

5. Füge nun die vorher kopierte Anweisung in das rechte leere Fenster ein.

Aufrufen kannst Du dann das Makro über eine Schaltfläche. Da ich nicht weiß, ob Du weißt, wie man eine Befehlsschaltfläche in ein Tabellenblatt einfügst, kommt hier eine kurze Anweisung.

1. Gehe in der Menüleiste auf Ansicht => Symbolleiste => Steuerelement-Toolbox

2. Klicke auf die 6.Schaltfläche von links (Schaltflächenkommentar: Befehlsschaltfläche)

3. Positioniere die Schaltfläche in Deinem Tabellenblatt und passe gegebenenfalls die Größe an.

4. Klicke in der Symbolleiste auf die 3.Schaltfläche von links (Schaltflächenkommentar: Code anzeigen).

5. In das geöffnete Fenster schreibst Du zwischen die Texte “Private Sub CommandButton1_Click()“ und “End Sub“ in die Leerzeile Call Makroname oder nur der Makroname.

6. Klicke in der Symbolleiste auf die erste Schaltfläche von links um den Entwurfmodus zu beenden (Schaltflächenkommentar: Entwurfmodus beenden).

Wenn Du alles richtig gemacht hast, sollte das Makro, nachdem Du die Schaltfläche betätigt hast, abgearbeitet werden.

Du solltest zum Abschluss noch die Sicherheitseinstellung, die beim Öffnen der Datei abgefragt wird, kontrollieren. Klicke dazu nacheinander in der Menüleiste wieder auf Extras => Makro und dann auf Sicherheit.... Gehe, falls nicht schon angezeigt, auf die Registerkarte Sicherheitsstufe und schaue dort nach, ob die Einstellung Mittel aktiviert ist. Wenn nicht, aktiviere diese Einstellung, da sonst der Code nicht ausgeführt werden kann. Beim nächsten Öffnen Deiner Datei kommt eine Abfrage, ob Makros aktiviert oder deaktiviert werden sollen. Klicke auf aktivieren und der Code wird ausgeführt.
Ich hoffe, Du kommst mit der Anleitung klar. Bei Fragen oder Problemen melde Dich noch mal.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo zusammen.

Danke erst mal für die Lösungsvorschläge. Muss ich nachher direkt mal ausprobieren.


@LouZipher
Das ist ja genau das Problem, die Länge des Druckbereiches ändert sich ja.


@aliba:
Ich kenne zwar die Option "Druckbereich festlegen", aber dass der sich auch automatisch anpassen kann ist mir völlig neu. Colle Sache!
Auf die Wenn-Funktion hätte ich auch selber kommen können, ich [ZENS] Tabellenaufbau ist eigentlich ganz einfach.
5 Spalten, jeweils mit Überschrift.
Spalte A: Datum
Spalte B: €-Beträge
Spalte C-D: Text1, Text2, Text3
Spalte E: evtl. vorhandene Bemerkung
Spalte A-D hat immer die gleiche Anzahl an Einträgen, also keine Lücken.


@coros:
Makrolösungen finde ich immer cool. Obwohl ich davon überhaupt keinen Plan habe, leider!!
Danke für die ausführlich Schritt-Für-Schritt-Anleitung.
Das werde ich auf jeden Fall testen.
Da fällt mir ein:
Die Datei soll mal zentral auf einem Server liegen und kann von 5 Kollegen bearbeitet werden.
Muss man da was bezüglich der Sicherheitseinstellung beachten. Muss man an jedem der 5 PCs die Makroeinstellung verändern? Die würde ich gerne auf "Hoch" lassen.
Diese Arbeitsmappe sollte sich aber ohne Nachfrage öffnen lassen.


Ich melde mich dann nochmal wenn ich eure Lösungen probiert habe.
Bis hierhin auf jeden Fall schon einmal ein fettes DANKESCHÖN euch dreien.

Einen schönen Gruß

Hi,

damit Du die Sicherheitseinstellung auf Hoch lassen kannst, musst Du das VBA Projekt digital signieren. Das macht man in der VBA Umgebung und dann in der Menüleiste auf Extras => Digitale Signatur... klicken. Bei Dir wird wird sicherlich noch keine digitale Signatur vorhanden sein. Die musst Du erst noch erstellen. Suche mal auf Deiner Platte nach der Anwendung SELFCERT.EXE. Wenn es nicht auf Deiner Platte ist, dann nimm Deine Office CD und gehe in das Verzeichnis PFILES\MSOFFICE\OFFICE und klicke dort die Anwendung SELFCERT.EXE an. Damit wird eine digitale Signatur erstellt, die Du dann für Makros verwenden kannst. Dann wird nach dem die Datei mit dem signierten Makro erneut gestartet wurde einmalig ein Fenster angezeigt, mit der Frage, ob Makros aus dieser Quelle, sprich mit der Signatur, dauerhaft akzeptiert werden soll. Beim Klick auf ja, erscheint keine Abfrage mehr, wenn eine Datei mit Makros diese Signatur haben geöffnet wird. Das funktioniert dann auch bei Sicherheitseinstellung Hoch

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

@coros

Dein Makro funktioniert wie gewünscht. Die wenn-Funktion von Aliba brauchte ich allerdings. Sonst sind die Zellen ja nicht wirklich leer und der Autofilter "greift" nicht.
Nachsem ich das dann auch geändert habe funktioniert es einwandfrei.

Dank deiner Anleitung habe ich jetzt auch eine schöne Schaltfläche, das sollte also jeder meiner Kollegen hinbekommen.

Vielen, vielen Dank

Tach auch

@Aliba.

Das klappt nicht so richtig. Irgendwas mache ich da wohl falsch.
Ich hätte natürlich sagen sollen, dass in Zeile 1 und 2 nicht die Spaltenüberschriften stehen. Da steht Text, welcher mitgedruckt werden soll.

A1 bis E1 ist verbungen und zentriert.
A2 bis E2 ist verbunden und zentriert.
Die Spaltenüberschriften stehen in Zeile 3, A3 bis E3.
A4 bis AXX stehen Datumsangaben
B4 bis BXX steht Text
C4 bis CXX steht Text
D4 bis DXX stehen Zahlen (EURO)
E4 bis EXX stehen evtl. Text-Kommentare.

A, B, C, D sind lückenlos
In E können Lücken auftauchen

Ich habe zwar schon eine zufriedenstellende Lösung von Coros, aber man will ja auch was lernen - Damit ich nicht immer fragen muss.

Wenn Du mir also nochmal helfen könntest, wäre das echt super.

Liege Grüße

Hi,

in deinem Fall sollte dann die INDIREKT-Anweisung in "bezieht sich auf" so aussehen:

=INDIREKT("Tabelle2!$A$1:$E$"&ANZAHL(Tabelle2!$D:$D)+3)

CU Aliba

Hi zusammen.


@aliba
Ich krieg das nicht hin. Wahrscheinlich bin ich echt zu blöd dafür.
Liegt das evtl. daran, dass die Zellen a1-e1 und a1-e2 verbunden sind?


@coros.
Bei dem Makro habe ich noch ein kleines Problem.
In dem zweiten Tabellenblatt (das mit dem Makro) hätte ich gerne den Blattschutz drin. Dann bekomme ich beim Ausführen des Makros eine Fehlermeldung. Ist das normal?
Kann man das irgendwie abstellen?
Wäre klasse, wenn du da auch eine Lösung parat hättest.

Vielen Dank und liebe Grüße

Hi,

dann musst Du am Anfang des Makos den Blattschutz entfernen und am Ende wieder setzen. Nachfolgender Code enthält diese beiden Dinge.

Sub Daten()
ActiveSheet.Unprotect "Hier_Dein_Passwort"
Application.ScreenUpdating = False
Range("A2").AutoFilter Field:=1, _
Criteria1:="<>"
ActiveWindow.SelectedSheets.PrintOut _
Copies:=1, Collate:=True
Selection.AutoFilter
ActiveSheet.Protect "Hier_Dein_Passwort"
End Sub

Ich habe die beiden relevanten Zeilen mal fett dargestellt. Du musst allerdings noch den Text

Hier_Dein_Passwort

gegen Dein Blattschutzpasswort tauschen.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hi ralle....

mit den verbundenen Zellen hat das nichts zu tun.
Das funzt bei mir.

Was funzt denn nicht? Wird trotzdem alles gedruckt, wird zu wenig/ zu viel gedruckt, wird gar nichts gedruckt? Erhälts Du bereits eine Fehlermeldung wenn Du den Bereichsnamen änderst??

Du kannst mir gerne mal die Datei schicken. Kannst ja ausser den Werten und den Überschriften alle anderen Daten löschen. Wichtig ist für mich die Spalte D und die Einträge in A1 bis E2

CU Aliba

ali-gitti@t-online.de

Moin moin zusammen.

Danke für das Angebot Aliba, die Datei habe ich gerade an dich verschickt.

Das Makro habe ich jetzt entsprechend geändert und es klappt einwandfrei.
Danke Coros!!!

Ich muss sagen, ich bin jetzt ein wenig schlauer als vorher.


Heute morgen ist mir allerdings ein Kuriosum aufgefallen.
Ich habe meine Testliste ausgedruckt, allerdings ganz normal. Bin auf die Druckschaltfläche gekommen.
Und siehe da, er hat trotzdem nur die eingetragenen Werte gedruckt, keine leere Folgeseite.
Jetzt habe ich schon gedacht ich hätte mir das alles sparen können und hab überlegt, was ich vorher wohl für einen Mist gemacht habe, damit die leeren Seiten gedruckt werden.

Dann habe ich nochmal übers Druckmenü gedruckt, diesmal einen anderen Drucker gewählt, und siehe da: Die leeren Seiten werden wieder gedruckt.

???????? HÄH!!!!!

Mein Epson Laserdrucker druckt nur ausgefüllte Blätter.
Canon und HP Tinte druckt alles.

Jetzt bin ich komplett verwirrt und gehe am Besten nach Hause und leg mich hin.


Jetzt möchte ich noch allen, die sich über mein Problem den Kopf zerbrochen haben, ein fettes DANKESCHÖN aussprechen.


LG
Rallnix

• Excel Print Makro Problem bei Belegdrucker
• Farblaser druckt keine Bilder mehr
• wortsuche in excel
• Drucker druckt nicht aus MS Programmen
• Inhalt von Textfeldern nach Excel importieren