Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: formatierte Tabelle - letzte Zeile

formatierte Tabelle - letzte Zeile
11.11.2014 20:57:26
Ron
Hallo liebe Gemeinde,
ich habe mal wieder ein Problemchen und brauche Eure Hilfe. In einem Excelsheet habe ich eine formatierte Tabelle, die ja nach Tag mal länger oder kürzer ausfällt (derzeit ist für die Tabelle fest A4:F43 definiert). Täglich muß diese Aufgabensammlung einmal gedruckt werden. Je nach Länge hat man dann aber mal 1, mal 2 Leerseiten - also unschön. Ich habe mir daher ein Makro gebastelt, welches über
intRows = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
und dann später
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$" & intRows
den Druckbereich variabel halten soll. In einem unformatierten Tabellenblatt klappt das auch gut, jedoch wird grundsätzlich die letzte Zeile der formatierten Tabelle über den Zähler festgesetzt. Liegt es in der Tat an der Formatierung - oder gibt es da ein Hintertürchen?
Grüße und Danke schon einmal für Eure Ideen.
Ron

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: formatierte Tabelle - letzte Zeile
12.11.2014 06:53:53
Hajo_Zi
Hallo Ron,
formatiere die Tabelle als Tabelle, was Excel auch vorschlägt. Dann werden für neue Datensätze das Format übernommen.

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Dynamische Druckbereiche in Excel: So geht's


Schritt-für-Schritt-Anleitung

Um den Druckbereich einer formatierten Tabelle in Excel dynamisch anzupassen, kannst Du die folgenden Schritte befolgen:

  1. Öffne das Excel-Dokument mit der formatierten Tabelle.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Füge ein neues Modul hinzu: Klicke auf Einfügen > Modul.

  4. Kopiere und füge den folgenden Code ein:

    Sub DynamischerDruckbereich()
       Dim intRows As Long
       intRows = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
       ActiveSheet.PageSetup.PrintArea = "$A$1:$F$" & intRows
    End Sub
  5. Schließe den VBA-Editor und gehe zurück zu Excel.

  6. Führe das Makro aus: Drücke ALT + F8, wähle DynamischerDruckbereich und klicke auf Ausführen.

Nun sollte der Druckbereich automatisch an die Anzahl der Zeilen in Deiner formatierten Tabelle angepasst werden.


Häufige Fehler und Lösungen

  • Problem: Der Druckbereich wird nicht korrekt gesetzt.

    • Lösung: Stelle sicher, dass die Tabelle tatsächlich als formatierte Tabelle definiert ist. Gehe dafür zu Einfügen > Tabelle und wähle Deine Daten aus.
  • Problem: Das Makro funktioniert nicht wie erwartet.

    • Lösung: Überprüfe, ob Du das Makro im richtigen Arbeitsblatt ausgeführt hast. Das Makro sollte auf das aktive Arbeitsblatt zugreifen.

Alternative Methoden

Falls Du nicht mit VBA arbeiten möchtest, kannst Du auch die folgende Methode verwenden:

  1. Verwende die Funktion =ANZAHL(A:A) in einer Zelle, um die Anzahl der belegten Zeilen zu ermitteln.
  2. Setze den Druckbereich manuell: Gehe zu Seitenlayout > Druckbereich > Druckbereich festlegen und wähle den Bereich basierend auf der Anzahl der Zeilen.

Diese Methode ist weniger flexibel, aber einfach umzusetzen, besonders wenn Du keine Makros verwenden möchtest.


Praktische Beispiele

Angenommen, Du hast eine Tabelle, die täglich aktualisiert wird. Mit dem oben genannten VBA-Code wird der Druckbereich automatisch angepasst, sodass Du beim Drucken keine leeren Seiten mehr hast. Das ist besonders nützlich, wenn Du regelmäßig Berichte drucken musst.

Ein weiteres Beispiel könnte sein, dass Du die Anzahl der Zeilen in einer Tabelle mit einer dynamischen Quelle verknüpfen möchtest, z.B. Daten aus einer Datenbank oder einer externen Datei. Der dynamische Druckbereich bleibt immer aktuell, was eine effiziente Nutzung von Excel ermöglicht.


Tipps für Profis

  • Nutze Tastenkombinationen zur schnelleren Navigation in Excel.
  • Halte Deine VBA-Module organisiert, indem Du klare Bezeichnungen und Kommentare verwendest.
  • Überlege, benutzerdefinierte Formate für Deine Tabellen zu verwenden, um sie visuell ansprechender zu gestalten.
  • Erstelle Backup-Kopien Deiner Arbeit, bevor Du Makros oder Änderungen vornimmst, um Datenverlust zu vermeiden.

FAQ: Häufige Fragen

1. Kann ich das Makro anpassen?
Ja, Du kannst den Code anpassen, um andere Spalten oder Bereiche zu berücksichtigen.

2. Funktioniert dies in jeder Excel-Version?
Der VBA-Code sollte in den meisten modernen Excel-Versionen funktionieren, einschließlich Excel 2016 und höher. Achte darauf, dass Du Makros in Deinen Excel-Einstellungen aktivierst.

3. Gibt es eine Möglichkeit, die letzte Zeile manuell zu setzen?
Ja, Du kannst die Zeilennummer direkt im Code anpassen, indem Du intRows durch eine feste Zahl ersetzt, z.B. ActiveSheet.PageSetup.PrintArea = "$A$1:$F$10".

4. Warum funktioniert der Druckbereich nicht für formatierten Tabellen?
Formatierte Tabellen können spezielle Eigenschaften haben, die den Zugriff auf die tatsächliche Zeilenanzahl beeinflussen. Stelle sicher, dass Du die Tabelle korrekt formatiert hast.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige