Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
776to780
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
776to780
776to780
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Druckbereich - Nur Zellen mit Inhalt drucken

Druckbereich - Nur Zellen mit Inhalt drucken
03.07.2006 16:51:12
Ina
Hallo Forum,
ich habe ein Problem mit dem Druck...
In meiner Tabelle ist der Druckbereich (B3 - M151) definiert.
Die Zeilen 3 - 5 und die Zeile 151 sollen immer gedruckt werden, der Bereich B6 - M150 jedoch nur, wenn er Daten enthält.
Beispiel:
B6 - M15 enhalten Daten. Also sollen die Zeilen 3 - 5, der Bereich B6 - M15 und die Zeile 151 gedruckt werden.
Gibt es dafür in VBA eine Lösung? Und wenn ja, kann mir jemand ein Code-Beispiel geben?
Vielen Dank,
Ina

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Druckbereich - Nur Zellen mit Inhalt drucken
03.07.2006 18:45:40
ChrisL
Hallo Ina
Es lassen sich auch manuell keine nicht zusammenhängende Druckbereiche definieren. Eine Alternative:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Tabelle1" Then   ' hier anpassen (Tabellennamen)
On Error GoTo ErrorHandler
Cancel = True
If Range("B150") = "" Then Rows(Range("B150").End(xlUp).Row & ":" & 150).Hidden = True
Application.EnableEvents = False
ActiveSheet.PrintOut
Rows("1:151").Hidden = False
Application.EnableEvents = True
Exit Sub
ErrorHandler:
Application.EnableEvents = True
MsgBox "Makrofehler"
End If
End Sub

Alt + F11, links Doppelklick auf DieseArbeitsmappe, Code einfügen.
Der Code blendet vor dem Druck die Zeilen z.B. 6-150 aus und anschliessend wieder ein. Massgebend ist Spalte B d.h. die Zeile z.B. 6 wird anhand dieser Spalte ermittelt.
Bezüglich Druckoptionen gibt es kleinere Einschränkungen. Die entsprechende Tabelle (im Code ergänzen) muss das aktive Blatt sein. Es wird immer nur diese eine Tabelle gedruck (z.B. Druckoption "gesamte Arbeitsmappe" ist nicht möglich).
Gruss
Chris
Anzeige
AW: Druckbereich - Nur Zellen mit Inhalt drucken
03.07.2006 20:05:36
Ina
Hallo Chris,
vielen Dank für Deine Antwort.
Der Code funktioniert fast perfekt, aber...
Problem:
Die letzte Zeile mit eingetragenen Daten wird unterschlagen...
Das heisst, Zeile 100 enthält noch Daten, gedruckt wird jedoch nur einschliesslich Zeile 99.
Hast Du noch eine Idee?
Danke,
Ina
AW: Druckbereich - Nur Zellen mit Inhalt drucken
03.07.2006 20:13:23
ChrisL
Hallo Ina
ups... probier nochmal:
If Range("B150") = "" Then Rows(Range("B150").End(xlUp).Row + 1 & ":" & 150).Hidden = True
(Zeile ersetzen)
Viel Spass
Chris
AW: Druckbereich - Nur Zellen mit Inhalt drucken
03.07.2006 20:36:24
Ina
Hallo Chris,
die " + 1 " hat den Code perfekt gemacht!
Vielen Dank!
Grüsse,
Ina
Anzeige

312 Forumthreads zu ähnlichen Themen

Farbige Zellen suchen und Zuordnung auflisten
Excel-Opfer

Hallo zusammen,
ich hab nicht so die Ahnung von Makros und Automationen im Excel, bräuchte allerdings "dringend" eine Vereinfachung meines Excelchaos.
es dreht sich um folgende Problematik:
ich muss diverse Dienstpläne in unsere Personalplanung einarbeiten, leider liefert eine Abtei...
08.08.2008 06:47:00
Thread-ID: 1000143
16 Beiträge
Anzeige
Zelle mit heutigem Datum finden
Steffi

Hallo liebe Spezialisten,
hier im Forum hat man mir den unten stehenden Code gezeigt um im Bereich "F:F" die Zelle mit dem heutigen Datum zu finden. Das klappt soweit auch prima :-)
Wenn das Datum jedoch per Formel wie z.B. =HEUTE() erzeugt wurde, funktioniert der Code nicht.
Könnt...
05.09.2008 11:46:00
Thread-ID: 1007634
12 Beiträge
Zellwerte aus markierten Tabellen übertragen
obelix-xxl

Hallo,
in mehreren Tabellen habe ich in der gleichen Spalte X11:X100 Summenwerte eingetragen.
Die Spaltenbeschriftung ist in der Zelle X10 und ist gleich dem Tabellennamen, z.B. -1.234.
Ich benötige nur die Ergebnisse der markierten Tabellenblätter. Diese in den markierten Tabellen...
06.09.2008 17:29:20
Thread-ID: 1007869
3 Beiträge
Anzeige
Zellenhöhe mit Zelleninhalt berechnen
Christoph

Hallo,
ich möchte das vba-skript von https://www.herber.de/forum/archiv/1004to1008/t1006435.htm
(ganz unten) gerne etwas anpassen, und zwar so, dass die Zellenhöhe direkt aus dem Zelleninhalt berechnet wird. Hier ist mein Versuch, der aber leider nicht funkti0oniert:
Sub zeilenhö...
24.09.2008 17:32:00
Thread-ID: 1012131
8 Beiträge
Zellen zählen mit Inhalt
nathan

Guten Morgen,
ich hab da mel eine Frage. Und zwar habe ich eine Liste in Excel erstellt mit Teilnehmern, jetzt benötige ich eine Formel die mir alle beschriebenen Felder zählt. Denn ich hab auch leere Zellen dazwischen. Und von Hand zählen ist etwas mühsam. Ich habe schon die Datenbankforme...
22.10.2008 11:13:00
Thread-ID: 1018269
3 Beiträge
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
Werte aus Tabelle finden
Florian

Hallo und Guten Morgen,
ich habe ein kleines Problem!
Ich habe eine Tabelle (Matrix), die Vergütungsgruppen und deren Unterteilung in Stufen, enthält.
Hier ist die Datei: https://www.herber.de/bbs/user/56583.xls
Wie kann ich für die Mitarbeiter z. B. in den Zellen "D2" bis "D7"...
07.11.2008 08:56:00
Thread-ID: 1022516
2 Beiträge
Zellen mit gleicherm Inhalt verbinden
marcl

Hallo Froumsgemeinde,
ich bin auf der Suche nach einer aus meiner Sicht komplizierten Schleife.
Ich möchte ab einer gewissen Zellen alle darunter befindlichen, welche den gleichen Inhalt oder keine Inhalt haben und links oder rechts daneben belegt sind, zusammen fassen. Das so lange, bi...
17.11.2008 13:37:00
Thread-ID: 1025198
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
15
2
11
2
1
7
2
2
1
4
4
2
4
2
3
4
8
9
7
5
3
5
2
11
1