Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Seite druckenm per VBA

Forumthread: Seite druckenm per VBA

Seite druckenm per VBA
06.07.2007 09:30:00
PeTeR
Hallo VBA-Freaks,
meine Tabelle druckt 14 Seiten. Ich möchte per VBA nur die eine einzige Seite drucken, in der sich der Zellzeiger befindet. Woher weiß ich auf welcher Seite sich die activecell befindet?
Vielen Dank für eure Hilfe
PeTeR

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Seite druckenm per VBA
06.07.2007 09:42:00
Hajo_Zi
Hallo Peter,

Sub AktuelleSeiteDrucken()
'   Von JensF
Dim Seite As Long
Seite = SeitenNr()
ActiveWindow.SelectedSheets.PrintOut From:=Seite, To:=Seite
End Sub
Function SeitenNr() As Long
Dim x As Long
Dim Zelle As Range
Dim HBs As Long, VBs As Long
Dim H As Long, V As Long
Set Zelle = ActiveCell
HBs = Tabelle1.HPageBreaks.Count
VBs = Tabelle1.VPageBreaks.Count
H = 1
V = 1
For x = 1 To HBs
If Tabelle1.HPageBreaks(x).Location.Row 



Anzeige
AW: Seite druckenm per VBA
06.07.2007 11:43:32
PeTeR
Hallo Hajo,
vielen Dank für das Makro. Sieht echt gut aus!
PeTeR
;

Beliebteste Forumthreads (12 Monate)

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