Excel-Problem___Seitenanzahlanzeigen in Zelle

Ohne Macro geht das nicht Micha, muss nun erst mal meinen neuen Lappi fertig machen, und wenn ich Zeit hab versuch ichs nachher mal dir eins zu bauen....

Mal anderst rum gefragt Micha

Willst du sie ausdrucken und brauchst sie deswegen????

Wenn ja....

... geh auf Datei --> Seite einrichten --> Lasche(Kopf/Fußzeile) da kanst du dir aussuchen was du drin stehen haben möchtest.....

Gruss
Cris

Und wieso wenn ich fragen darf!?

Hallo,
habe folgenden VBA-Code gefunden:

_____________________________________

Public Function Seite()
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim NumPage As Integer

If ActiveSheet.PageSetup.Order = xlDownThenOver Then
HPC = ActiveSheet.HPageBreaks.Count + 1
VPC = 1
Else
VPC = ActiveSheet.VPageBreaks.Count + 1
HPC = 1
End If
NumPage = 1
For Each VPB In ActiveSheet.VPageBreaks
If VPB.Location.Column > ActiveCell.Column Then Exit For
NumPage = NumPage + HPC
Next VPB
For Each HPB In ActiveSheet.HPageBreaks
If HPB.Location.Row > ActiveCell.Row Then Exit For
NumPage = NumPage + VPC
Next HPB

Seite = NumPage

End Function
_____________________________________

Anschliessend hast du dann die gewünschte Funktion.
Hab es schnell probiert und hat auf den ersten Blick prima geklappt...

-miezn-

Also in der Zeit von 09:04 Uhr bis 09:57 Uhr hätte ich dir die Seiten zweimal beschriftet.

Gruß
PowerMike

oder so:

Sub Worksheetcounter()

Dim wks As Worksheet

i = 0

For Each wks In ActiveWorkbook.Worksheets
i = i + 1
wks.Cells(2, 3) = ("Blatt" & " " & i)
Next
MsgBox i



End Sub

Eine Lösung innerhalb des Dokuments kann aber sehr unpraktisch sein, nämlich dann, wenn der Inhalt sich ändert, du Leerzeilen einfügst etc. Dann darfst du jedes mal alles ändern/anpassen.

Ich würde über eine Änderung deines Layouts nachdenken und solche Sachen in der Kopf/Fußzeile abbilden.

Goofi wieso große Änderung???

Zum einen ist das Macro Worksheetabhängig, also wirkt sich als Tamplate aus,

und zum andern is es kein Problem diese Zeile zu editieren:

wks.Cells[red](2, 3)[/red] = ("Blatt" & " " & i)

ne, schon klar, nen Makro geht auch. Ich meinte halt einfach nur grundsätzlich

*lol* ne,ne du is, klar*gg*

..ich würd mir einfach das Makro mit in ne Vorlage Speichern und dann wäre gut....Schlecht wäre es wenn er die Zeilen Einträge immer in anderen Zellen bräuchte

Gruss

Miezn,

der Code fügt doch nen Seitenbruch in die Tabellen ein....

Oder hab ich's Micha's Vorgaben voll verhauen

So Micha,
hier ist nun dein fertiges macro:

Sub Worksheetcounter()
   Dim wks As Worksheet
   Anzahl = ActiveWorkbook.Worksheets.Count
   i = 0
   For Each wks In ActiveWorkbook.Worksheets
      i = i + 1
      wks.Cells(2, 3) = ("Blatt" & " " & i & " " & "von" & " " & Anzahl)
   Next
End Sub

Und gehts???