Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
276to280
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
276to280
276to280
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Druckbereich mit makro anpassen

Druckbereich mit makro anpassen
11.07.2003 14:27:41
björn
Ich möchte folgendes erreichen:
Es soll die Spalte A ab der Zelle A4 so lange untersucht werden, bis man die erste leere Zelle findet. Nehmen wir an die Zelle A6 ist leer, dann soll der Druckbereich so angepasst werden, dass dieser von A1 bis AK6 geht. Oder nehmen wir weiterhin an die Zelle A7 ist leer, dann soll der Druckbereich so angepasst werden, dass dieser von A1 bis AK7 geht. Der Zeilenindex der leeren Zelle soll also der Zeilenindex der unteren rechten Begegrenzung des Druckbereichs werden und damit variieren.
Ich hatte mich daran versucht, wobei ich es nicht schaffe den Zeilenindex des Druckbereich variabel zu gestalten.


                    

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

Betreff
Datum
Anwender
Anzeige
AW: Druckbereich mit makro anpassen
11.07.2003 14:59:14
WernerB.
Hallo Björn,
was hältst Du hiervon?

Sub Bjoern()
Dim c As Range
Dim laR1 As Long, laR2 As Long
laR1 = Cells(Rows.Count, 1).End(xlUp).Row
If laR1 < 5 Then Exit Sub
For Each c In Range("A4:A" & laR1 + 1)
If c.Value = "" Then
laR2 = c.Row
Exit For
End If
Next c
ActiveSheet.PageSetup.PrintArea = "$A$1:$AK$" & laR2
End Sub

Viel Erfolg wünscht
WernerB.

AW: Vielen Dank funktioniert bestens
11.07.2003 15:31:25
björn
Vielen Dank funktioniert wunderbar.
Gruss
Björn

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige