Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1072to1076
1072to1076
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Seitenzahl als Funktion

Forumthread: Seitenzahl als Funktion

Seitenzahl als Funktion
30.04.2009 19:56:15
Markus
Hallo zusammen,
im forum war leider nicht das richtige dabei was ich gesucht habe.
Ich suche eine funktion, die mir in eine Zelle die Seitenzahl einer Tabelle schriebt.
Ich kenne diese Funktion aus der Kopf/Fußzeile, aber leider nicht in der tabelle.
hoffe ihr könnt mir weiterhelfen..
danke vorab, markus
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Seitenzahl als Funktion
30.04.2009 20:20:53
Tino
Hallo,
eine bessere Idee habe ich dazu nicht.
Nachteil dieser Funktion, sie brauch recht lang zum berechnen. ;-(
Kommt in ein Modul
Function DieseSeite(rngZelle As Range) As Integer Application.Volatile DieseSeite = Sheets(rngZelle.Parent.Name).VPageBreaks.Count + _ Sheets(rngZelle.Parent.Name).HPageBreaks.Count + 1 End Function


In die entsprechende Zelle diese Formel eintragen.

 A
13

Formeln der Tabelle
ZelleFormel
A1=DieseSeite(A1)

Gruß Tino
Anzeige
Seitenzahl per Name
30.04.2009 20:41:42
Josef
Hallo Markus,
das geht über einen definierten Namen.
Tabelle1

 F
11

Formeln der Tabelle
ZelleFormel
F1=Seiten
Namen in Formeln
ZelleNameBezieht sich auf
F1Seiten=DATEI.ZUORDNEN(50)+JETZT()*0
Namen verstehen


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruß Sepp

Anzeige
AW: Seitenzahl als Funktion
01.05.2009 10:48:48
Beverly
Hi Markus,
noch eine VBA-Möglichkeit:

' Von Herbert Grom - Ermittlung der Druckseitenanzahl
Dim i As Integer
i = ExecuteExcel4Macro("Get.Document(50)")



Anzeige
ich glaube Markus meint es anders.
01.05.2009 12:02:17
Tino
Hallo,
er will bestimmt nicht die Anzahl der Seiten, sondern in einer Zelle die aktuelle Seite angezeigt bekommen, so wie in der Umbruchvorschau die Seitenzahl im Hintergrund als Wasserzeichen zu sehen ist.
Habe aber keine Lösung dazu.
Frage offen.
Gruß Tino
aktuelle Seite für horizontalen Seitenumbruch
01.05.2009 15:09:54
Beverly
Hi,
eine Möglichkeit, die jedoch nur für horizontale Seitenumbrüche gilt (Seitenzahl wird in Spalte F jeweis in der letzten Zeile vor dem Seitenumbruch eingtragen):

Sub Seitenzahlen_Druckseiten2()
' Von Herbert Grom - Ermittlung der Druckseitenanzahl
Dim i As Integer
i = ExecuteExcel4Macro("Get.Document(50)")
Dim loSeite As Long
Dim loZeile As Long
With ActiveSheet
For loSeite = 1 To i
If loSeite = i Then
.Cells(.HPageBreaks(loSeite - 1).Location.Row + .HPageBreaks(1).Location.Row -  _
2, 6) = "Seite " & loSeite
Else
.Cells(.HPageBreaks(loSeite).Location.Row - 1, 6) = "Seite " & loSeite
End If
Next loSeite
End With
End Sub


Beitrag als offen da nur eine mögliche Teillösung.


Anzeige
AW: aktuelle Seite für horizontalen Seitenumbruch
02.05.2009 12:25:10
Tino
Hallo,
habe auch mal etwas gebastelt, allerdings habe ich mir etwas von Beate abgekuckt. ;-)
Es werden die gleichen Seiten in die Zellen geschrieben, die auch im Seitenumbruch zu sehen sind.
Sub Test()
Dim LRow As Long, LCol As Long, LColT As Long, LPageRow As Long
Dim LCounter As Long, FindRow As Long, BreaksCount As Long

BreaksCount = ExecuteExcel4Macro("Get.Document(50)")

With ActiveSheet
    If BreaksCount > 0 Then
            On Error Resume Next
               FindRow = .Cells.Find("*", , xlValues, 2, 1, 2, False, False).Row
               FindRow = Application.Max(FindRow, .Cells.Find("*", , xlFormulas, 2, 1, 2).Row)
            On Error GoTo 0
         
         For LCol = 0 To .VPageBreaks.Count
           
                        If LCol = 0 Then
                         LColT = 1
                        Else
                         LColT = .VPageBreaks(LCol).Location.Column
                        End If
                
                For LRow = 0 To .HPageBreaks.Count
                
                        If LRow = 0 Then
                         LPageRow = 1
                        Else
                         LPageRow = .HPageBreaks(LRow).Location.Row
                        End If
                
                        If FindRow >= LPageRow Then
                           LCounter = LCounter + 1
                           If LCounter > BreaksCount Then Exit For
                           .Cells(LPageRow, LColT) = "Seite " & LCounter & " von " & BreaksCount
                        End If
                
                Next LRow
         
         Next LCol
    End If
End With
End Sub


Gruß Tino

Anzeige
meinte natürlich Karin. sorry oT.
02.05.2009 12:28:25
Tino
;

Forumthreads zu verwandten Themen

Matrix-formel via VB-Skript in die Zelle einfügen
Wladimir

Hallo zusammen,
ich soll via VB-Skript eine
Excel-Matrix-formel in die Zelle der
geschlossenen Datei einfügen.
Ich habe die Formel entsprechend
angepasst und versuchte sie mit
FormulaArray in die Zelle einzufügen,
aber erfolglos. Es kommt die Meldung:
"Die For...
01.09.2008 12:08:24
Thread-ID: 1006391
14 Beiträge
Formel immer nur in bestimmter Zelle
Katrin

Hallo Zusammen!
Folgendes Problem würde ich gerne lösen, weiß aber nicht wie :)
Ich habe in Spalte A in jeder Zeile Uhrzeiten stehen:
00:15:00
00:30:00
00:45:00
01:00:00
01:15:00
01:30:00
01:45:00
02:00:00
02:15:00
02:30:00
02:45:00
...
02.09.2008 10:30:00
Thread-ID: 1006672
3 Beiträge
Anzeige
Formel in Zelle per VBA einfügen
Werner

Wie kann ich Statistikformeln (Mittelwert, Maximum, Minimum, Standardabweichung) per VBA in eine Zelle einfügen?
Der zu berechnende Bereich geht von "$J$1" bis "$J$n" wobei n mit ActiveCell.Row-2 zuvor berechnet wird.
Gruß Werner.
10.09.2008 14:17:46
Thread-ID: 1008801
5 Beiträge
Fehler bei Formel per Makro in Zelle eintragen
Born

Hallo Forum,
ich habe folgendes Problem:
Ich schreibe per Makro in Zellen eine Formel. Als Ergebnis bekomme ich jedoch nur die Fehlermeldung #NAME?. Wenn ich dann mit F2 in den Bearbeiten-Modus gehe und Enter drücke, kommt das richtige Ergebnis. Meine Formel scheint also richtig zu sein...
23.10.2008 10:15:00
Thread-ID: 1018538
11 Beiträge
Anzeige
Formel in Zellen einfügen!
Andi

Hallo zusammen,
ich würde gerne mit Hilfe eines Makros eine Formel in die die Spalte "Q" einfügen.
Die Formel soll jedoch nur in de Zellen der Spalte "Q" eingetragen werden,
wo auch ein Wert in der jeweiligen Zeile der Spalte "L" vorhanden ist.
Ich hoffe es kann mir jemand bei...
30.10.2008 21:03:30
Thread-ID: 1020721
6 Beiträge
Formelwerte in bestimmte Zellen
Sebastian

Hallo zusammen,
ich möchte gerne mit Hilfe eines Makros oder ähnlichem die Formelwerte eines bestimmten Arrays in ein bestimmtes Array eintragen lassen, wenn man darauf klickt.
Ist dies möglich? Wenn ja, wie? ;)
Vielen Dank für eure Hilfe und falls Ihr noch etwas mehr Info braucht,...
17.11.2008 21:32:00
Thread-ID: 1025413
7 Beiträge
formel in zelle,mit makro
rolf

hallo
wie kann ich diese formel =DATEDIF(E2;$F$1;"Y") mit einem makro in tabelle1 zelle f2 eintragen.
mfg rolf
25.11.2008 23:12:13
Thread-ID: 1027900
3 Beiträge
Anzeige
Laufzeitfehler 1004 bei Formeleinfügen in Zelle
Werner

bei folgender Formel
ActiveCell.FormulaR1C1 = "=RC[-2]*100/RC[-1]"
erhalte ich Laufzeitfehler 1004. Woran kann es liegen?
Gruß Werner.
26.11.2008 14:31:29
Thread-ID: 1028037
7 Beiträge
Formel gegen Doppelvergabe einer Zellennummer
anke2245

Hallo, Excelfreunde,
es taucht ein kleine Unwissenheit auf.
Folgendes: In einer Vereinstabelle muß ich 16 Vereinen eine Codenummer zuweisen ( Zweistellig )
also von 1- 16.
Da ich nicht das ganze Arbeitsblatt überblicken kann möchte ich, daß ich in die Eingabenzellen vorher eine...
06.12.2008 18:44:00
Thread-ID: 1030727
3 Beiträge
Zellenformat in Formeln
Larass

Hallo,
ich möchte in einer Zelle links von einem Ergebnis einen string anzeigen, jedoch nur wenn auch ein ergebnis in der Zelle steht.
Konkret habe ich z.B. als Ergebnis eine Spannung Sigma,st
Sobald ich eine Formel eingebe wird aber die Formatierung zerschossen, sprich das Sigma wi...
16.12.2008 16:42:12
Thread-ID: 1033346
6 Beiträge
Formeln in Zellen tretz VBA beibehalten
Enrico

Ich benutze ein selbsterstelltes userform um Datensätze zu finden, zu modifizieren und zurückzuschreiben.
Läuft alles bestens. Nur der richtige Dreh um die Formeln einer Zellen beizubehalten fehlt mir noch.
Ein Beispiel. Angezeigt werden in B6 5 Stunden und in B7 7 Stunden. B8 wird das...
31.12.2008 15:11:47
Thread-ID: 1036151
2 Beiträge
Inhalt einer Zelle in anderer Zelle als Formel
Elias

Guten Morgen,
ich bin auf der Suche nach einer Lösung für folgenden Sachverhalt.
In einer Tabelle wird aus dem Inhalt verschiedener Zellen über Verketten eine Zeichenfolge gebildet, die in einer anderen Tabelle als Formel herhalten soll.
(Kurzes) Beispiel, das Original ist furchtbar...
11.01.2009 06:01:22
Thread-ID: 1038572
6 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Seitenzahl in Excel-Zellen einfügen

Schritt-für-Schritt-Anleitung

Um die Seitenzahl in einer Excel-Zelle anzuzeigen, kannst du eine benutzerdefinierte Funktion in VBA verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne das Visual Basic for Applications (VBA) Fenster:

    • Drücke ALT + F11, um das VBA-Fenster zu öffnen.

  2. Füge ein neues Modul hinzu:

    • Klicke im Menü auf Einfügen und wähle Modul.

  3. Kopiere die folgende VBA-Funktion:

    Function DieseSeite(rngZelle As Range) As Integer
   Application.Volatile
   DieseSeite = Sheets(rngZelle.Parent.Name).VPageBreaks.Count + _
                Sheets(rngZelle.Parent.Name).HPageBreaks.Count + 1
End Function

  4. Schließe das VBA-Fenster und kehre zur Excel-Oberfläche zurück.

  5. Verwende die Funktion in einer Zelle:

    • Gib in die gewünschte Zelle die Formel ein: =DieseSeite(A1), wobei A1 die Zelle ist, auf die du dich beziehst.

Dies zeigt die aktuelle Seitenzahl an, die der Zelle entspricht.

Häufige Fehler und Lösungen

  • Fehler: "Die eingegebene Zeichenfolge ist zu lang"

    • Überprüfe, ob die Länge deiner Formel in der Zelle die maximale Zeichenanzahl überschreitet.

  • Fehler: Die Seitenzahl wird nicht aktualisiert

    • Stelle sicher, dass die Funktion Application.Volatile im VBA-Code enthalten ist. Dies sorgt dafür, dass die Funktion bei jeder Änderung neu berechnet wird.

Alternative Methoden

Wenn du die Seitenzahl in mehreren Tabellenblättern anzeigen möchtest, kannst du die Funktion =DieseSeite(A1) in die entsprechenden Zellen jedes Tabellenblatts einfügen. Alternativ kannst du auch einen definierten Namen verwenden:

  1. Definierten Namen erstellen:

    • Gehe zu Formeln > Namensmanager > Neu.
    • Setze den Namen auf Seiten und definiere ihn mit der Formel =DATEI.ZUORDNEN(50)+JETZT()*0.

  2. Verwende den Namen in den Zellen:

    • Benutze =Seiten in der gewünschten Zelle.

Praktische Beispiele

  • Beispiel für die Nutzung in einer Tabelle:
    • Wenn du die Seitenzahl in der letzten Zeile vor einem Seitenumbruch anzeigen möchtest, kannst du den folgenden VBA-Code verwenden: 
      Sub Seitenzahlen_Druckseiten2()
Dim i As Integer
i = ExecuteExcel4Macro("Get.Document(50)")
Dim loSeite As Long
With ActiveSheet
  For loSeite = 1 To i
      .Cells(.HPageBreaks(loSeite).Location.Row - 1, 6) = "Seite " & loSeite
  Next loSeite
End With
End Sub

Tipps für Profis

  • Automatische Seitenzahlen: Um die Seitenzahl automatisch in Zellen einzufügen, kannst du die Funktion in VBA anpassen, um mit benutzerdefinierten Bedingungen zu arbeiten.
  • Wasserzeichen nutzen: Überlege, die Seitenzahl als Wasserzeichen einzufügen. Dies kann durch die Anpassung der Druckeinstellungen und das Hinzufügen von Kopf- und Fußzeilen erfolgen.

FAQ: Häufige Fragen

1. Wie kann ich die Seitenzahl in Excel ausblenden? Um die Seitenzahl auszublenden, kannst du die entsprechende Zelle löschen oder die Formatierung ändern, sodass der Text nicht mehr sichtbar ist.

2. Kann ich die Seitenzahl über mehrere Tabellenblätter hinweg anzeigen? Ja, du kannst die Funktion DieseSeite in jedem Tabellenblatt verwenden, um die Seitenzahl anzuzeigen, oder du kannst eine VBA-Lösung implementieren, die alle Blätter berücksichtigt.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige