Bis Spalten-Ende Drucken

Forumthread: Bis Spalten-Ende Drucken
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Bis Spalten-Ende Drucken

25.10.2002 12:26:28

André

Hallo,
ich habe folgende Frage:
Wie lautet der VBA Code wenn ich einen Ausdruck (immer von Spalte A bis J breit)bis zur letzten beschrifteten Zelle in Spalte B benötige?

Vielen Dank im Voraus
André

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Bis Spalten-Ende Drucken

25.10.2002 13:03:20

Bernd
Re: Bis Spalten-Ende Drucken

25.10.2002 14:04:48

André
Re: Bis Spalten-Ende Drucken

25.10.2002 14:05:43

André

Re: Bis Spalten-Ende Drucken

25.10.2002 13:03:20

Bernd

Hallo André,

mit diesen Zeilen
Sub DruckbereichFestlegen()
Range("b65536").Select
Selection.End(xlUp).Select
Zeilenende = ActiveCell.Row
ActiveSheet.PageSetup.PrintArea = "$A$1:$J" & Zeilenende
End Sub

Danach dann ausdrucken.

Ich hoffe es hilft weiter.

Gruß

Bernd

Re: Bis Spalten-Ende Drucken

25.10.2002 14:04:48

André

Hallo Bernd,
danke für Deine Hilfe. Es klapt super.
André

Re: Bis Spalten-Ende Drucken

25.10.2002 14:05:43

André

Hallo Bernd,
danke für Deine Hilfe. Es klapt super.
André