Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1152to1156
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
1152to1156
1152to1156
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro für Ausdruck

Makro für Ausdruck
Jens
Hallo Excelfreunde,
ich habe folgende Aufgabenstellung.
In einem Arbeitsblatt soll ich bis zur letzten Daten-Zeile der Spalte C ausdrucken,
jedoch soll der Druckbereich von der letzten Datenzeile in Spalte C
sein bis in Spalte A das Wort "Zwischensumme" erscheint.
d.h. der Druckbereich soll z.B. von A243 bis C500 sein, falls in A243 das Wort "Zwischensumme"
und in Zeile 500 noch Daten stehen in Spalte C.
Wie kann ich diesen Druckbereich über ein Makro erstellen?
Besten Dank im voraus für Hilfe.
Jens

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Makro für Ausdruck
26.04.2010 19:27:15
fcs
Hallo Jens,
z.B. so.
Gruß
Franz 
Sub Druckbereich()
Dim wks As Worksheet
Dim Zeile1 As Long, ZeileL As Long
Set wks = ActiveSheet
With wks
'Letzte Datenzeile in Spalte C
ZeileL = .Cells(.Rows.Count, 3).End(xlUp).Row
'"Zwischensumme" in Spalte A suchen
For Zeile1 = ZeileL To 1 Step -1
If .Cells(Zeile1, 1) = "Zwischensumme" Then Exit For
Next
If Zeile1 = 0 Then
MsgBox """Zwischensumme"" in Spalte A nicht gefunden"
Zeile1 = 1
End If
'Druckbereich setzen
.PageSetup.PrintArea = .Range(.Cells(Zeile1, 1), .Cells(ZeileL, 3)).Address
End With
End Sub

Anzeige
AW: Makro für Ausdruck
27.04.2010 08:10:21
jens-claus
Hallo Franz,
herzlichen Dank für das Super-Makro.
Einen schönen Tag wünscht
Jens

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige