Anzeige
Archiv - Navigation
624to628
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
624to628
624to628
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige