Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
624to628
624to628
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nach Seiten selektierter Code

Forumthread: Nach Seiten selektierter Code

Nach Seiten selektierter Code
17.06.2005 11:31:13
Marc
Hallo zusammen,
gibt es eine Möglichkeit in einem Tabellenblatt (Sheet) die VB Anweisung zu erteilen auf der 1. Seite einen bestimmten Code auszuführen und auf allen folgenden Seiten einen anderen Code auszuführen?
Vielen Dank schon mal für die Hilfe!
Grüße,
Marc Richter
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Nach Seiten selektierter Code
17.06.2005 12:19:35
Hajo_Zi
Halli Marc,
bei VBA Gut müßtest Du folgenden Code einbinden können.


Option Explicit



Sub AktuelleSeiteDrucken()
'   Von JensF
Dim Seite As Long
Seite = SeitenNr()
ActiveWindow.SelectedSheets.PrintOut From:=Seite, To:=Seite, Copies:=1, Collate:=True
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 <= Zelle.Row Then
H = H + 1
Else
Exit For
End If
Next
For x = 1 To VBs
If Tabelle1.VPageBreaks(x).Location.Column <= Zelle.Column Then
V = V + 1
Else
Exit For
End If
Next
SeitenNr = H + (V - 1) * (HBs + 1)
End Function

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem Windows 2000 SP4 und Excel Version 2000 SP3.


Anzeige
AW: Nach Seiten selektierter Code
17.06.2005 12:37:58
Marc
Vielen Dank für die Hilfe!!!
ich probiere es gleich aus!
Grüße,
Marc Richter
;

Beliebteste Forumthreads (12 Monate)

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