Live-Forum - Die aktuellen Beiträge
Datum
Titel
02.11.2025 10:33:56
Grafische Auswertung täglicher Personaleinsätze
02.11.2025 10:08:41
Datenüberprüfung mit Formel / Auswahlkriterium
02.11.2025 09:18:06
?Teile einer Matrix können nicht geändert werden
01.11.2025 21:43:38
Hilfe bei Wenn- oder anderer Formel?
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
388to392
388to392
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelle -> Zeilen ausblenden und nicht drucken.

Forumthread: Tabelle -> Zeilen ausblenden und nicht drucken.

Tabelle -> Zeilen ausblenden und nicht drucken.
03.03.2004 13:28:37
Armin
Hallo,
ich habe folgendes Problem:
Ich habe eine Tabelle mit einer Kopfzeile. Unterhalb der Kopfzeile steht eine lange Liste. Ich möchte nun, dass alle Zeilen der Liste unterhalb der Kopfzeile ausgeblendet werden, bis in "A1" der Wert "Armin" kommt. Die ausgeblendeten Zeilen sollen dann auch aus dem Druckbereich entfernt werden. Also unterhalb der Kopfzeile soll in der ersten Zeile "Armin" stehen. Sollte die Liste den Wert "Armin" nicht enthalten, soll das Makro auch bitte nicht ewig laufen.
Kann mir jemand helfen?
Wäre toll!
Gruß
Armin
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelle -> Zeilen ausblenden und nicht drucken.
03.03.2004 13:41:30
y
hi Arnim,
was gefällt dir im anderen Forum nicht an dem letzten code ??
das funktioniert doch genauso wie von dir gewünscht und "Arnim" und "Afrika" auszutauschen dürfte ja selbst für dich kein problem sein oder ?

Sub ausblenden_bis_afrika()
Dim i As Long
i = 2
Application.ScreenUpdating = False
Do While Cells(i, 1).Value <> ""
If Cells(i, 1).Value = "Afrika" Then Exit Sub: Application.ScreenUpdating = True
Cells(i, 1).EntireRow.Hidden = True
i = i + 1
Loop
Application.ScreenUpdating = True
End Sub

nicht ganz so freundliche grüsse
Micha
Anzeige
AW: Tabelle -> Zeilen ausblenden und nicht drucken.
03.03.2004 13:45:50
Armin
Hallo Micha,
ich sorry, ich wollte dich nicht ärgern. Ich such aber nach einer Ergänzung wegen dem Drukbereich. Dein Makro ist o.k. und ich habe es auch in meiner Datei. Aber die ausgeblendeten Zahlen dürfen nicht gedruckt werden.
Gruß
Armin
AW: Tabelle -> Zeilen ausblenden und nicht drucken.
03.03.2004 13:49:39
y
ausgeblendete zeilen werden doch nie gedruckt
deswegen versteh ich dein problem ja auch nicht
wie druckst du denn ? über ein zusätzliches makro ?
cu Micha
Anzeige
AW: Tabelle -> Zeilen ausblenden und nicht drucken.
04.03.2004 09:25:14
Armin
Hallo Micha,
ich weiß, wie es besser funktionieren würde.
Also unterhalb meiner Kopfzeile (die ist 6 Zeilen lang) sind 10 ausgeblendete Zellen. Die müssen auch bleiben, sonst werden nämlich Zellbezüge zerstört. Aber unter diesen 16 Zeilen kann angefangen werden, alle Zeilen bis zum Wert "Armin" zu LÖSCHEN! Dann müsste alles passen.
Kannst du mir da nochmal helfen?
Anzeige
AW: Tabelle -> Zeilen ausblenden und nicht drucken.
04.03.2004 12:05:36
y
hi Armin,
ist doch ganz einfach
die anfangszeile wird mit i = x bestimmt
also wenn du mit der 17.ten zeile beginnen willst
nur diese zeile ändern auf:
i = 17
warum willst du denn auf einmal löschen ??
cu Micha
AW: Tabelle -> Zeilen ausblenden und nicht drucken.
04.03.2004 12:47:30
Armin
HiMicha,
ich möchte von Zeile 17 an (6 Zeilen ist die Kopfzeile und 10 Zeilen sind ausgeblendet mit Zellbezügen) alle Zeilen löschen, bis in A1 der Wert "Armin" steht.
Gruß
Armin
Anzeige
AW: Tabelle -> Zeilen ausblenden und nicht drucken.
04.03.2004 13:11:04
y
hi Armin,
du weisst aber was du letztendlich willst ?
das ist jetzt die letzte änderung !!

Sub loeschen_bis_afrika()
Dim i As Long
Dim j As Long
Dim gefunden As Boolean
i = 17
j = Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
For j = Cells(Rows.Count, 1).End(xlUp).Row To i Step -1
If gefunden = True Then
Rows(j).Delete shift:=xlShiftUp
End If
If Cells(j, 1).Value = "Afrika" Then gefunden = True
Next
Application.ScreenUpdating = True
End Sub

cu Micha
Anzeige
AW: Tabelle -> Zeilen ausblenden und nicht drucken.
04.03.2004 14:34:48
Armin
Hi Micha,
danke! Super! So hab ich mir das vorgestellt!
Gruß
Armin
danke für die rückmeldung :-) o.t.
04.03.2004 14:36:32
y
...
;

Forumthreads zu verwandten Themen

Spalte nicht ausdrucken
Edwin

Hallo,
ich möchte in einem Sheet, dass eine bestimmte Spalte nicht ausgedruckt wird.
Ich weiß, dass ich Spalten ausblenden kann und dass diese dann nicht ausgedruckt werden.
Kann ich aber auch der Spalte die Eigenschaft zuweisen, dass sie nicht ausgedruckt wird?
Gruß
Edwin
05.11.2008 10:42:43
Thread-ID: 1021789
4 Beiträge
Anzeige
Spalte keine Ansicht und nicht drucken
Frederic

Hallo Zusammen
Hätte eine blöde Frage:
Wie kann ich mit VBA erreichen, dass die Spalte C1:C60 nicht in der Seitenansicht und auch nicht gedruckt wird. Grund: Habe dort Listenvermerke drin.
Für Eure generöse Hilfe danke ich schon im Voraus
Salvus
Frederic
20.12.2008 19:23:00
Thread-ID: 1034447
23 Beiträge
Anzeige
Combobox ausgeblendete Zeilen nicht anzeigen
helena

Schönen Guten Morgen
Kleines Problem ich verstecke Zeilen wenn in Spalte C Begriff nicht vorhanden dies klappt auch
aber via Combobox suche ich Namen (Adressvergabe) aber es werden mir immer alle aufgelistet auch wenn Zeilen ausgeblendet sind, ich Blende aus ob ich nur G_kunden oder P_...
28.12.2008 09:10:32
Thread-ID: 1035521
12 Beiträge
Anzeige
Zeilen nicht drucken, wenn Spalte leer oder 0
Berlenbach

Hallo,
ich habe ein Problem mit dem unten angegebenen und hier veröffentlichten Makro:
Sub Drucken() Dim iRowL As Integer, iRow As Integer iRowL = Cells(Rows.Count, 3).End(xlUp).Row For iRow = 1 To iRowL If IsEmpty(Cells(iRow, 3)) Or Cells(iRow, 3).Value = 0 Then Rows(iRow).Hidden = T...
01.04.2009 09:37:06
Thread-ID: 1065835
8 Beiträge
Anzeige
In Tabelle Zellfarbe abfragen - Spalte ausblenden
Gegga

So und weitergehts :)
Ich baue gerae iene etwas aufwendigere Tabelle, wo ich mit mehreren Hilfsspalten arbeiten muss die ausgeblendet werden.
Ich habe einen Com.Button eingefügt mit folgendem Code:
Columns("BJ:BK").Select
Selection.EntireColumn.Hidden = True
Funzt, klar. Da...
21.12.2009 09:56:44
Thread-ID: 1125270
9 Beiträge
beim PDF drucken ausblenden
knab

Hallo,
dank Tino habe ich es geschafft beim drucken störende Formular-Links auszublenden. siehe Tread
https://www.herber.de/forum/archiv/1164to1168/t1164165.htm#1164165
Leider geht das nicht wenn ich es in eine pdf-Datei drucke. Kann man obiges erweitern und wie?
Außerdem ich m...
09.07.2010 21:06:09
Thread-ID: 1166392
8 Beiträge
Leere Zeilen nicht drucken. Makro optimieren
chandler

Hallo,
das Makro durchsucht Bereiche und blendet Zeilen aus, wenn in Spalte C die Zellen leer sind um dann das Blatt zu drucken.
Sub print_n() Dim iCol As Integer Dim i As Integer Dim iRow As Integer Dim iRowL As Integer Dim i2 As Integer Dim iRow2 As Integer Dim iRowL2 As Integer iCol...
04.01.2012 14:21:35
Thread-ID: 1244557
10 Beiträge
Tabelle filtern und Zeilen/Spalten ausblenden
Micha

Hallo zusammen
ich habe eine Tabelle in der in den Spalten Mitarbeiternamen und in den Zeilen Tätigkeiten stehen. Die Tätigkeiten werden den verschiedenen Kollegen nun per Markierung, z.B. "x" zugeordnet.
Nun möchte ich per z.B. Dropdown etc. einen bestimmten Mitarbeiter anwählen können...
28.08.2014 10:21:28
Thread-ID: 1378611
2 Beiträge
Ausgeblendete Zeilen nicht berechnen
Robert

Hallo Zusammen,
ich habe zwei Datenblätter. Im ersten mache ich eintragungen, die ich später ggf. nach Datum filtern möchte.
Im zweiten Datenblatt habe ich folgende Formel:
=WENN(UND(INDEX(Eingabe!$D:$D;ZEILE()-4)=A$5;INDEX(Eingabe!$E:$E;ZEILE()-4)=$A$3);1)
Wenn im ersten Daten...
17.12.2014 10:22:25
Thread-ID: 1398541
7 Beiträge
Word-Tabelle, Zeilenschaltungen in Zelle ->Excel
Ingrid

Hallo liebe Community!
Ich habe eine Aufgabe übertragen bekommen, welche zum Haare raufen ist.
Und zwar soll ich Tabellen aus 5 Word-Dokumenten in eine Excel-Tabelle überführen.
Die Probleme dabei sind:
1.!!! Einzelne Zellen im Word können Zeilenschaltungen enthalten - aus Gründ...
23.04.2015 13:56:01
Thread-ID: 1422740
2 Beiträge
Aus Excel Word Tabelle aus Kopfzeile auslesen
Milo

Hallo Zusammen,
habe schon alles versucht aber ....
Mein Problem ist, dass ich nicht schaffe, aus Excel über einen Makro, von einer Word-Datei, auf einer Tabelle in der Kopfzeile zuzugreifen. Die Kopfzeile ist immer so aufgebaut, dass in den ersten 3 Zeilen normaler Text steht und danac...
01.03.2017 10:47:51
Thread-ID: 1544832
4 Beiträge
Tabelle Spalten ausblenden
Mole

Hallo zusammen,
ich habe eine Tabelle, die durch einen VBA code berechnet wird. Manchmal gibt es Spalten in der Tabelle die alle den gleichen Eintrag "0(0 %)" haben. Ich möchte diese Spalten ausblenden oder löschen. Ich habe nun zwei Probleme.
1. ist über dieser Tabelle ist eine weitere...
02.08.2018 15:12:13
Thread-ID: 1637205
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Zeilen in Excel ausblenden und nicht drucken

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und lade die Tabelle, in der Du die Zeilen ausblenden möchtest.
  2. Öffne den VBA-Editor:
    • Drücke ALT + F11, um den VBA-Editor zu öffnen.
  3. Einfügen eines neuen Moduls:
    • Klicke auf Einfügen > Modul.

  4. Kopiere den folgenden Code in das Modul:

    Sub loeschen_bis_armin()
   Dim i As Long
   Dim j As Long
   Dim gefunden As Boolean
   i = 17 ' Startzeile nach Kopfzeile
   j = Cells(Rows.Count, 1).End(xlUp).Row
   Application.ScreenUpdating = False
   For j = Cells(Rows.Count, 1).End(xlUp).Row To i Step -1
       If gefunden = True Then
           Rows(j).Delete shift:=xlShiftUp
       End If
       If Cells(j, 1).Value = "Armin" Then gefunden = True
   Next
   Application.ScreenUpdating = True
End Sub
  5. Starte das Makro:
    • Gehe zurück zu Excel, drücke ALT + F8, wähle loeschen_bis_armin und klicke auf Ausführen.
  6. Überprüfe das Ergebnis: Die Zeilen unterhalb der Kopfzeile, bis der Wert "Armin" erreicht ist, sollten gelöscht sein.

Häufige Fehler und Lösungen

  • Problem: Die ausgeblendeten Zeilen werden trotzdem gedruckt.

    • Lösung: Stelle sicher, dass Du die ausgeblendeten Zeilen nicht im Druckbereich hast. Gehe zu Seitenlayout > Druckbereich > Druckbereich festlegen.

  • Problem: Das Makro läuft ewig.

    • Lösung: Überprüfe, ob der Wert "Armin" in der Spalte vorhanden ist. Andernfalls wird das Makro endlos laufen, bis es auf das Ende der Liste stößt.

Alternative Methoden

  • Verwendung von Filter: Du kannst auch Filter verwenden, um die Zeilen auszublenden. Wähle die Kopfzeile aus, gehe zu Daten > Filtern und setze die Bedingungen, um nur die gewünschten Zeilen anzuzeigen.

  • Druckbereich anpassen: Du kannst den Druckbereich manuell anpassen, indem Du nur die gewünschten Zeilen markierst und dann Seitenlayout > Druckbereich > Druckbereich festlegen wählst.

Praktische Beispiele

  • Beispiel 1: Wenn Du eine Liste von Verkaufsdaten hast und nur die Zeilen drucken möchtest, die einen bestimmten Verkäufer enthalten, kannst Du das oben genannte Makro anpassen, um die Zeilen auszublenden, die nicht relevant sind.

  • Beispiel 2: In einer Word-Tabelle kannst Du die Funktion Word Tabelle Zeilen ausblenden verwenden, um bestimmte Zeilen nicht anzuzeigen, bevor Du das Dokument druckst.

Tipps für Profis

  • Drucklinien ausblenden: Um die Drucklinien nicht anzuzeigen, gehe zu Seitenlayout und deaktiviere Drucklinien.

  • Seitenränder anpassen: Mit Seitenlayout > Seitenränder kannst Du die Seitenränder ausblenden, um mehr Platz für Deine Tabelle zu schaffen.

  • Spalten anpassen: Um bestimmte Spalten beim Drucken auszublenden, kannst Du die Funktion excel spalten nicht drucken nutzen, indem Du die Spalten auswählst, Rechtsklick machst und Ausblenden wählst.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass ausgeblendete Zeilen nicht gedruckt werden?
Die ausgeblendeten Zeilen werden standardmäßig nicht gedruckt. Achte darauf, dass der Druckbereich nur die sichtbaren Zeilen umfasst.

2. Was passiert, wenn ich die Zeilen lösche?
Wenn Du Zeilen löschst, werden alle Zellbezüge in den gelöschten Zeilen entfernt. Stelle sicher, dass Du eine Sicherungskopie Deiner Daten hast, bevor Du Änderungen vornimmst.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige