Sie sind nicht angemeldet.

Excel-Problem___Seitenanzahlanzeigen in Zelle

Lieber Besucher, herzlich willkommen bei: Der Audi A3 3.2 quattro, das größte Audi A3 Forum des 250PS starken Audi A3 VR6 3.2 + S3/RS3. Falls dies Ihr erster Besuch auf dieser Seite ist, lesen Sie sich bitte die Hilfe durch. Dort wird Ihnen die Bedienung dieser Seite näher erläutert. Darüber hinaus sollten Sie sich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutzen Sie das Registrierungsformular, um sich zu registrieren oder informieren Sie sich ausführlich über den Registrierungsvorgang. Falls Sie sich bereits zu einem früheren Zeitpunkt registriert haben, können Sie sich hier anmelden.

Paramedic_LU

Steuerketten-Querulant

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

Beiträge: 47 499

Registrierungsdatum: 21. May 2004

Aktuelles Auto: Audi A3 3.2

Postleitzahl: 67459

Wohnort: Böhl-Iggelheim

Danksagungen: 2205 / 1318

  • Nachricht senden

1

Donnerstag, 8. Juni 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

Donnerstag, 8. Juni 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 499

Registrierungsdatum: 21. Mai 2004

Aktuelles Auto: Audi A3 3.2

Postleitzahl: 67459

Wohnort: Böhl-Iggelheim

Danksagungen: 2205 / 1318

  • Nachricht senden

3

Donnerstag, 8. Juni 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

Donnerstag, 8. Juni 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 499

Registrierungsdatum: 21. Mai 2004

Aktuelles Auto: Audi A3 3.2

Postleitzahl: 67459

Wohnort: Böhl-Iggelheim

Danksagungen: 2205 / 1318

  • Nachricht senden

5

Donnerstag, 8. Juni 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

Donnerstag, 8. Juni 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 499

Registrierungsdatum: 21. Mai 2004

Aktuelles Auto: Audi A3 3.2

Postleitzahl: 67459

Wohnort: Böhl-Iggelheim

Danksagungen: 2205 / 1318

  • Nachricht senden

7

Donnerstag, 8. Juni 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. Februar 2006

  • Nachricht senden

8

Donnerstag, 8. Juni 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. Oktober 2004

  • Nachricht senden

9

Donnerstag, 8. Juni 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 499

Registrierungsdatum: 21. Mai 2004

Aktuelles Auto: Audi A3 3.2

Postleitzahl: 67459

Wohnort: Böhl-Iggelheim

Danksagungen: 2205 / 1318

  • Nachricht senden

10

Donnerstag, 8. Juni 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. Januar 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. Januar 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

Friday, 9. June 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

Friday, 9. June 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 499

Registrierungsdatum: 21. Mai 2004

Aktuelles Auto: Audi A3 3.2

Postleitzahl: 67459

Wohnort: Böhl-Iggelheim

Danksagungen: 2205 / 1318

  • Nachricht senden

17

Friday, 9. June 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

Friday, 9. June 2006, 11:56

Und gehts???