Sie sind nicht angemeldet.

Excel-Problem___Seitenanzahlanzeigen in Zelle

Paramedic_LU

Steuerketten-Querulant

  • »Paramedic_LU« ist männlich
  • »Paramedic_LU« ist der Autor dieses Themas

Beiträge: 47 500

Registrierungsdatum: 21. May 2004

Aktuelles Auto: Audi A3 3.2

Postleitzahl: 67459

Wohnort: Böhl-Iggelheim

Danksagungen: 2205 / 1318

  • Nachricht senden

1

Thursday, 8. June 2006, 09:04

Excel-Problem___Seitenanzahlanzeigen in Zelle

Wie kann ich auf einem Excelblatt in einer bestimmten Zelle die Seitenanzahl anzeigen lassen? Also diese Funktion wie sie in der Fußzeile ist.

Ich hab ne Excel-Mappe mit 55 Blättern.
Auf jedes Blatt soll in einer Zelle folgendes drinstehn:

Seite 1 von 55
dann halt etc weiter Seite 2 von 55

Aber nicht unten sondern in ner freien Zelle.
Wißt ihr was ich meine?
A3 3.2 quattro mauritiusblau seit 16.9.03
+ AUDI-Werkstuning 8087 seit Juni 2007
[customized] - NWT powered by Custom-Chips (Engineering by Stefan - Powered by Zoran)
VCDS Ross-Tech HEX+CAN USB







Öl-Finder für VW und Audi Fahrzeuge und die Übersicht der derzeit empfehlenswerten Öle und mein Blog Baubericht BK-117 B2 Christoph 53

crislee

Administrator

Beiträge: 1 342

Registrierungsdatum: 7. August 2004

Aktuelles Auto: A4 Avant

Postleitzahl: 75...

Danksagungen: 12 / 11

  • Nachricht senden

2

Thursday, 8. June 2006, 09:08

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....

Paramedic_LU

Steuerketten-Querulant

  • »Paramedic_LU« ist männlich
  • »Paramedic_LU« ist der Autor dieses Themas

Beiträge: 47 500

Registrierungsdatum: 21. May 2004

Aktuelles Auto: Audi A3 3.2

Postleitzahl: 67459

Wohnort: Böhl-Iggelheim

Danksagungen: 2205 / 1318

  • Nachricht senden

3

Thursday, 8. June 2006, 09:24

schad. hatte schon versucht den Code der Fußzeile zu finden und zu kopieren. Ohne Erfolg :(
A3 3.2 quattro mauritiusblau seit 16.9.03
+ AUDI-Werkstuning 8087 seit Juni 2007
[customized] - NWT powered by Custom-Chips (Engineering by Stefan - Powered by Zoran)
VCDS Ross-Tech HEX+CAN USB







Öl-Finder für VW und Audi Fahrzeuge und die Übersicht der derzeit empfehlenswerten Öle und mein Blog Baubericht BK-117 B2 Christoph 53

crislee

Administrator

Beiträge: 1 342

Registrierungsdatum: 7. August 2004

Aktuelles Auto: A4 Avant

Postleitzahl: 75...

Danksagungen: 12 / 11

  • Nachricht senden

4

Thursday, 8. June 2006, 09:24

Mal anderst rum gefragt Micha :D

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

Paramedic_LU

Steuerketten-Querulant

  • »Paramedic_LU« ist männlich
  • »Paramedic_LU« ist der Autor dieses Themas

Beiträge: 47 500

Registrierungsdatum: 21. May 2004

Aktuelles Auto: Audi A3 3.2

Postleitzahl: 67459

Wohnort: Böhl-Iggelheim

Danksagungen: 2205 / 1318

  • Nachricht senden

5

Thursday, 8. June 2006, 09:35

Nee es soll in der Zelle stehn
A3 3.2 quattro mauritiusblau seit 16.9.03
+ AUDI-Werkstuning 8087 seit Juni 2007
[customized] - NWT powered by Custom-Chips (Engineering by Stefan - Powered by Zoran)
VCDS Ross-Tech HEX+CAN USB







Öl-Finder für VW und Audi Fahrzeuge und die Übersicht der derzeit empfehlenswerten Öle und mein Blog Baubericht BK-117 B2 Christoph 53

crislee

Administrator

Beiträge: 1 342

Registrierungsdatum: 7. August 2004

Aktuelles Auto: A4 Avant

Postleitzahl: 75...

Danksagungen: 12 / 11

  • Nachricht senden

6

Thursday, 8. June 2006, 09:39

Und wieso wenn ich fragen darf!?

Paramedic_LU

Steuerketten-Querulant

  • »Paramedic_LU« ist männlich
  • »Paramedic_LU« ist der Autor dieses Themas

Beiträge: 47 500

Registrierungsdatum: 21. May 2004

Aktuelles Auto: Audi A3 3.2

Postleitzahl: 67459

Wohnort: Böhl-Iggelheim

Danksagungen: 2205 / 1318

  • Nachricht senden

7

Thursday, 8. June 2006, 09:57

Das ist n Berichts-Protokoll
Da soll oben in nem Extra Schriftkopf die Seitenzahl stehn.
Normalerweise trag ich das von Hand ein bei 2 oder 3 Seiten.
Aber das sind 55 !!!
A3 3.2 quattro mauritiusblau seit 16.9.03
+ AUDI-Werkstuning 8087 seit Juni 2007
[customized] - NWT powered by Custom-Chips (Engineering by Stefan - Powered by Zoran)
VCDS Ross-Tech HEX+CAN USB







Öl-Finder für VW und Audi Fahrzeuge und die Übersicht der derzeit empfehlenswerten Öle und mein Blog Baubericht BK-117 B2 Christoph 53

miezn

Anfänger

  • »miezn« ist männlich

Beiträge: 30

Registrierungsdatum: 4. February 2006

  • Nachricht senden

8

Thursday, 8. June 2006, 11:16

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-

PowerMike

Profi

  • »PowerMike« ist männlich

Beiträge: 1 152

Registrierungsdatum: 4. October 2004

  • Nachricht senden

9

Thursday, 8. June 2006, 12:01

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

Gruß
PowerMike
Keep on Posting

Biete: Wasserstandssensor für Audi A3 8P/8PA inkl. Dichtung, Stecker und Schutzkappe -> IM

Paramedic_LU

Steuerketten-Querulant

  • »Paramedic_LU« ist männlich
  • »Paramedic_LU« ist der Autor dieses Themas

Beiträge: 47 500

Registrierungsdatum: 21. May 2004

Aktuelles Auto: Audi A3 3.2

Postleitzahl: 67459

Wohnort: Böhl-Iggelheim

Danksagungen: 2205 / 1318

  • Nachricht senden

10

Thursday, 8. June 2006, 12:14

für 1 formular schon, aber die sind in zukunft immer über 50 seiten :(
A3 3.2 quattro mauritiusblau seit 16.9.03
+ AUDI-Werkstuning 8087 seit Juni 2007
[customized] - NWT powered by Custom-Chips (Engineering by Stefan - Powered by Zoran)
VCDS Ross-Tech HEX+CAN USB







Öl-Finder für VW und Audi Fahrzeuge und die Übersicht der derzeit empfehlenswerten Öle und mein Blog Baubericht BK-117 B2 Christoph 53

crislee

Administrator

Beiträge: 1 342

Registrierungsdatum: 7. August 2004

Aktuelles Auto: A4 Avant

Postleitzahl: 75...

Danksagungen: 12 / 11

  • Nachricht senden

11

Donnerstag, 8. Juni 2006, 12:45

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

Goofi

Fortgeschrittener

  • »Goofi« ist männlich

Beiträge: 453

Registrierungsdatum: 25. January 2005

  • Nachricht senden

12

Freitag, 9. Juni 2006, 08:01

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.
Mein 3.2er

crislee

Administrator

Beiträge: 1 342

Registrierungsdatum: 7. August 2004

Aktuelles Auto: A4 Avant

Postleitzahl: 75...

Danksagungen: 12 / 11

  • Nachricht senden

13

Freitag, 9. Juni 2006, 08:30

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)

Goofi

Fortgeschrittener

  • »Goofi« ist männlich

Beiträge: 453

Registrierungsdatum: 25. January 2005

  • Nachricht senden

14

Freitag, 9. Juni 2006, 08:38

ne, schon klar, nen Makro geht auch. Ich meinte halt einfach nur grundsätzlich :)
Mein 3.2er

crislee

Administrator

Beiträge: 1 342

Registrierungsdatum: 7. August 2004

Aktuelles Auto: A4 Avant

Postleitzahl: 75...

Danksagungen: 12 / 11

  • Nachricht senden

15

Freitag, 9. Juni 2006, 08:41

*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 :D

Gruss

Miezn,

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

Oder hab ich's Micha's Vorgaben voll verhauen ;(

crislee

Administrator

Beiträge: 1 342

Registrierungsdatum: 7. August 2004

Aktuelles Auto: A4 Avant

Postleitzahl: 75...

Danksagungen: 12 / 11

  • Nachricht senden

16

Freitag, 9. Juni 2006, 09:41

So Micha,
hier ist nun dein fertiges macro:

Quellcode

 
1
2
3
4
5
6
7
8
9

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


Paramedic_LU

Steuerketten-Querulant

  • »Paramedic_LU« ist männlich
  • »Paramedic_LU« ist der Autor dieses Themas

Beiträge: 47 500

Registrierungsdatum: 21. May 2004

Aktuelles Auto: Audi A3 3.2

Postleitzahl: 67459

Wohnort: Böhl-Iggelheim

Danksagungen: 2205 / 1318

  • Nachricht senden

17

Freitag, 9. Juni 2006, 10:26

Suuupi...probier ich gleich mal aus. Danke
A3 3.2 quattro mauritiusblau seit 16.9.03
+ AUDI-Werkstuning 8087 seit Juni 2007
[customized] - NWT powered by Custom-Chips (Engineering by Stefan - Powered by Zoran)
VCDS Ross-Tech HEX+CAN USB







Öl-Finder für VW und Audi Fahrzeuge und die Übersicht der derzeit empfehlenswerten Öle und mein Blog Baubericht BK-117 B2 Christoph 53

crislee

Administrator

Beiträge: 1 342

Registrierungsdatum: 7. August 2004

Aktuelles Auto: A4 Avant

Postleitzahl: 75...

Danksagungen: 12 / 11

  • Nachricht senden

18

Freitag, 9. Juni 2006, 11:56

Und gehts???