hi :-)
beschreibung wie die function einzufuegen ist
gruss nighty
p.s.
hatte ich schon erwaehnt,das es laenger dauerte die beschreibung zu schreiben als die function O_o
'die function ist einzufuegen unter alt+f11>einfuegen>modul>vbeditor_schliessen
'die function ist nun unter excel einfuegen>function>benutzerdefiniert>seiteninfo1 aufrufbar
'oder z.b. =SeitenInfo1(1) fuer 1 worksheet oder =SeitenInfo1(2) fuer die ganze mappe
Function SeitenInfo1(Schalter As Integer) As Integer
Dim AktiveSeite As Integer
Dim AlleSeiten As Integer
Dim Seitenzaehler As Integer
Dim AcNr As Integer
AcNr = ActiveSheet.Index
For Seitenzaehler = 1 To Worksheets.Count
AktiveSeite = Worksheets(Seitenzaehler).HPageBreaks.Count + 1 * Worksheets(Seitenzaehler).VPageBreaks.Count + 1
AlleSeiten = AlleSeiten + AktiveSeite
If Seitenzaehler = AcNr And Schalter = 1 Then SeitenInfo1 = AktiveSeite
Next Seitenzaehler
If Schalter = 2 Then SeitenInfo1 = AlleSeiten
End Function
fuer makros einfuegen suche ich vorsichtshalber mal im netz ^^
da gibt es ja sovieles was erwaehnenswert waere hmm