Bereich B4:G bis zur 0 Null drucken. Die Anzahl Zeilen sind variabel.

HannaAregger · 24. Januar 2021

Ich möchte einen Bereich B4:G bis zur 0 Null drucken. Die Anzahl Zeilen sind variabel im vorliegenden Beispiel ist es der Bereich B4:G

B C C E F G

XXX XXX XXX XXX XXX XXX

XXX XXX XXX XXX XXX XXX

XXX XXX XXX XXX XXX XXX

XXX XXX XXX XXX XXX XXX

XXX XXX XXX XXX XXX XXX

XXX XXX XXX XXX XXX XXX

XXX XXX XXX XXX XXX XXX

0

Mit dem nachstehenden Markro geht es nicht.

Sub Druck_Click

Application.PrintCommunication = True

With Sheets"Tabelle1".PageSetup

iRow = Application.Match0, .Range"G4:G", 0 - 1

.PrintArea = "B4:G4" & iRow.Select

End With

Application.PrintCommunication = False

End Sub

Wie muss ich den Druckbereich selektionieren?

Hanna

Claus Busch

Hallo Hanna,

du musst den Druckbereich nicht selektieren. Du musst ihn nur zuweisen. Du brauchst auch keine 0 am Ende. Du kannst die letzte befüllte Zeile in Spalte B ermitteln:

Sub Druck()Dim LRow As LongWith Sheets("Tabelle1") LRow = .Cells(.Rows.Count, "B").End(xlUp).Row With .PageSetup .PrintArea = "B4:G" & LRow End WithEnd WithEnd Sub

Claus

HannaAregger

Hallo Claus

Funktioniert tip top.

Vielen Dank

Hanna

Claus Busch

Hallo Moya,

probiere mal in H4:

=ANZAHL(B4:G4)+ZÄHLENWENNS($B$1:$G$1;"s";B4:G4;">0")

Claus

Tonga91

Hi Claus,

Also den Filter als Makro aufzuzeichnen war natürlich eine gute Idee. Wie setze ich aber die richtige Range zum markieren und kopieren?

Die Anzahl der Zeilen ist ja variabel. Bzw. die Anzahl der Zellen in einer Spalte mit Inhalt ist ja variabel.

Für mich sind nur die Spalten A bis K fix zu markieren, die Zeilen variabel...

Vielen Dank im Voraus.

Moya Husky

Hallo CB,

vielleicht war meine Erklärung nicht gut genug, jedenfalls habe ich die Aufgabe mit ZählenwennS folgendermaßen gelöst:

Es soll kontrolliert werden, ob die Teilnehmer regelmäßig an den Sitzungen teilnehmen und ihre Aufgaben abgeben.

Wenn Teilnehmer die Aufgabe abgegeben (AA) haben bzw. an einer Sitzung teilgenommen haben, wird eine 1 gesetzt, ansonsten wird eine 0 gesetzt

Lösung für die Ergebnisse mit ZähenwennS:

In Spalte H Abgabe Check soll die Anzahl der 0 (Nullen) gezählt werden, wenn in Zeile 1 der Text "*AA" gefunden wird:

=ZÄHLENWENNS($B$1:$G$1;"*AA";B3:G3;"=0")

In Spalte I Anwesenheit Check soll die Anzahl der 0 (Nullen) gezählt werden, wenn in Zeile 1 der Text "*Sitzung" gefunden wird:

=ZÄHLENWENNS($B$1:$G$1;"*Sitzung";B3:G3;"=0")

LG und Danke

Moya

Hi,

willkommen im Windows Forum!

Bereich B4:G bis zur 0 Null drucken. Die Anzahl Zeilen sind variabel. - Similar Threads - Bereich Null drucken	Forum	Datum
Einfügen unterschiedlicher Anzahl Zeilen in Excel Einfügen unterschiedlicher Anzahl Zeilen in Excel: Guten Tag Ich habe eine Adressliste 3000 Adressen - Name, Vorname, Strasse, PLZ, Ort. Diese Adressen müssen auf ein Blatt gedruckt werden, auf dem 3 Karten vorgesehen sind. Nun sollen aber...	Microsoft Office	15. Februar 2020
Wie kann ich Spider Solitär unter Win10 auf Null zurücksetzten ?(sowohl Anzahl der Spiele,... Wie kann ich Spider Solitär unter Win10 auf Null zurücksetzten ?(sowohl Anzahl der Spiele,...: Wie kann ich Spider Solitär unter Win10 auf Null zurücksetzten ?(sowohl Anzahl der Spiele, wie auch Level), danke, es gelingt mir nämlich nicht mehr Peter	Games und Spiele	13. August 2019
Unbekannter Fehler - Zeile: 0, Spalte: 0 Unbekannter Fehler - Zeile: 0, Spalte: 0: Guten Tag zusammen Ich habe ein Word-Formular erstellt auf Basis einer Word-Vorlage. Dies funktionierte alles reibungslos. Danach wollte ich das Dokument speichern, klappt aber irgendwie nicht....	Microsoft Office	6. Juni 2019
Zeile mit Formeln unter bereich Einfügen Zeile mit Formeln unter bereich Einfügen: Guten Tag Allerseits, Ich bin an meinen beschiedenen vba Kenntnissen am Anschlag :-( und hoffe auf Aufmunterung :-) Ich habe ein Excel Formular wo ich bis zu 500 Zeilen Eingeben muss die mit...	Microsoft Office	10. August 2017
Zeile mit Formeln unter bereich Einfügen Zeile mit Formeln unter bereich Einfügen: Guten Tag Allerseits, Ich bin an meinen beschiedenen vba Kenntnissen am Anschlag :-( und hoffe auf Aufmunterung :-) Ich habe ein Excel Formular wo ich bis zu 500 Zeilen Eingeben muss die mit...	Microsoft Office	9. August 2017
wenn in Zeile a1 eine summe x<0 ist, soll diese summe in die zeile b1 wenn in Zeile a1 eine summe x<0 ist, soll diese summe in die zeile b1: Hallo Leute, ich komm einfach nicht weiter, obwohl es bestimmt eine Kleinigkeit ist, aber ich stehe auf dem Schlauch. Wer hilft mir? Ich möchte gerne, dass wenn I<0 ist, dann soll diese...	Microsoft Office	16. März 2017
ZÄHLENWENN Wert in jeder 4. Zeile von einem Bereich > 0 ist ZÄHLENWENN Wert in jeder 4. Zeile von einem Bereich > 0 ist: Hallo, ich suche eine Formel für folgendes Problem. Ich würde gerne die Zählen wie häufig Werte von einem Zeilen bereich (angenommen es sei B3:B27) > 0 ist, dabei aber nur jede 3. Zeile davon...	Microsoft Office	19. November 2016

Bereich B4:G bis zur 0 Null drucken. Die Anzahl Zeilen sind variabel.

Bereich B4:G bis zur 0 Null drucken. Die Anzahl Zeilen sind variabel.

Bereich B4:G bis zur 0 (Null) drucken. Die Anzahl Zeilen sind variabel.

Bereich B4:G bis zur 0 (Null) drucken. Die Anzahl Zeilen sind variabel.

Noten errechnen - Schulaufgaben zählen doppelt

Zelleninhalte suchen und Bereich markieren und kopieren

Problem mit Zählenwenns()

User Advert

Bereich B4:G bis zur 0 Null drucken. Die Anzahl Zeilen sind variabel. - Microsoft Office

Bereich B4:G bis zur 0 Null drucken. Die Anzahl Zeilen sind variabel. - Similar Threads - Bereich Null drucken

Einfügen unterschiedlicher Anzahl Zeilen in Excel

Wie kann ich Spider Solitär unter Win10 auf Null zurücksetzten ?(sowohl Anzahl der Spiele,...

Unbekannter Fehler - Zeile: 0, Spalte: 0

Zeile mit Formeln unter bereich Einfügen

Zeile mit Formeln unter bereich Einfügen

wenn in Zeile a1 eine summe x<0 ist, soll diese summe in die zeile b1

ZÄHLENWENN Wert in jeder 4. Zeile von einem Bereich > 0 ist

Bereich B4:G bis zur 0 Null drucken. Die Anzahl Zeilen sind variabel. solved