Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
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
584to588
584to588
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Druckprobleme

Forumthread: Druckprobleme

Druckprobleme
18.03.2005 04:47:37
Werner
Hallo EXCEL-Fans, ich benötige mal wieder fachmännische Hilfe.
In einer Tabelle werden im Laufe des Tages in zwei Spalten Daten eingegeben, in anderen Spalten werden damit Berechnungen ausgeführt. Es werden so bis zu 300 Zeilen täglich. Am Ende des Tages benötige ich einen Ausdruck. Wie kann ich den Ausddruck (per Makro) so einrichten, dass nur bis zur letzten gefüllten Zeile der Spalten C und F gedruckt wird. Das Makro sollte also prüfen, in welcher der beiden Spalten mehr Daten stehen und die Ausdrcklänge danach ausrichten. Da die Tabelle für bis zu 1000 Zeilen vorbereitet (formatiert) ist, werden im Moment viele leere Seiten ausgedruckt.
Außerdem sollen die ersten 5 Zeilen der Tabelle nicht mit ausgedruckt werden, die 6. und 7. Zeile der Tabelle (Überschriften) sollen jedoch auf jeder Seite über den Werten stehen (es wäre schön, wenn zwischen den Überschriften und den Werten ein kleiner Zwischenraum wäre).
Herzlichen Dank im Voraus
Werner
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Druckprobleme
18.03.2005 07:09:53
Ramses
Hallo
probier das mal aus
Option Explicit

Sub Print_DataArea()
Dim lR1 As Long, lR2 As Long, lR As Long
Dim cC1 As Byte, cC2 As Byte
Dim i As Long
'cc1 = C, cc2 = f
cC1 = 3
cC2 = 6
'Letzen Eintrag in Spalte C
For i = 6 To Cells(65536, cC1).End(xlUp).Row
If Cells(i, cC1) = "" Then
lR1 = i
Exit For
End If
Next i
'Letzen Eintrag in Spalte f
For i = 6 To Cells(65536, cC2).End(xlUp).Row
If Cells(i, cC2) = "" Then
lR2 = i
Exit For
End If
Next i
If lR1 > lR2 Then
lR = lR1
Else
lR = lR2
End If
With ActiveSheet.PageSetup
.PrintTitleRows = "$5:$6"
.PrintArea = "$A$5:$D$" & lR
End With
ActiveSheet.PrintOut
ActiveSheet.PageSetup.PrintArea = ""
End Sub

Gruss Rainer
Anzeige
;

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