Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1072to1076
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)")



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

299 Forumthreads zu ähnlichen Themen

Wenn in Zelle folgender String, dann
mehmet

Hallo Forum,
In Spalte G4:G92 sind viele kodierte Zeichenfolgen.
Fest steht aber, dass diese zu erkennen sind, z.B.
in Zelle G4: METAR EKAH 052150Z AUTO 12005KT 9999NDV DZ OVC080/// 15/14 Q1005=
in Zelle G5: METAR ESSA 051940Z 20006KT CAVOK 11/10 Q1006 NOSIG=
und so weiter.....
06.09.2008 01:08:00
Thread-ID: 1007801
16 Beiträge
Anzeige
Textbox Ausgabe als Zahl bzw. Zeit formatieren
Steffan

Hallo ihr lieben,
ich schreib jetzt schon den ganzen Tag an folgender Routine:
Private Sub CommandButton1_Click() Dim z As Integer z = Range("I101").End(xlUp).Row + 1 TextBox1 = Format(CDate(TextBox1.Value), "dd.mm.yyyy") Cells(z, 9) = TextBox1 'Datum des Tauchgangs Cells(z, 12) = Tex...
28.09.2008 20:12:56
Thread-ID: 1012988
6 Beiträge
Vergleichen mit Funktion WENN
Uwe

Hallo liebe Forummitglieder,
ich habe ein Problem mit vergleichen von Zahlen.
Ich habe schon selbst probiert, aber das haut hinten und vorne nicht hin.
=WENN(ODER(B10=1;"100")WENN(B10=2;"200")WENN(B10=3;"300")WENN(B10=4;"400"))
Ich möchte wenn in B10 1 steht 100, bei 2 200, bei...
01.10.2008 08:25:00
Thread-ID: 1013514
9 Beiträge
Anzeige
Zahlenangaben als "text"
dieter

Hallo Forum,
in Zelle A1 steht eine Zahl.
Wenn die kleiner oder gleich 100 ist, soll in A2 stehen: 1 CEN
von 101 bis 200 : 2 CEN
von 201-300 : 3 CEN
von 301-400 : 4 CEN
usw.
Wie kann ich das bewerkstelligen?
Danke für Eure Lösungen.
dieter
28.10.2008 14:27:18
Thread-ID: 1019950
7 Beiträge
Wenn Funktion mit *
Stan

Hallo,
Ich habe eine WENN Funktion eingebaut die prüft Inhalt G2 und dann multipliziert andere Zellen.
Beispiel ==WENN(G2="A12";M2*4;WENN(G2="B12";M2*2;"Fehler")). Es kommen verschiedene Werte nach A und B vor (A12, A22, A27 usw.)
Kann ich nur erste Stelle Abfragen und die nächsten...
21.11.2008 13:27:00
Thread-ID: 1026711
3 Beiträge
WENN Funktion mit mehr als 8 Bezügen
AcJoker

Hallo,
ich versuche eine Exceltabelle zu erstellen bei der in Spalte A etwas steht das 20 Verschieden Werte annehmen kann.
In Spalte B hätte ich gerne im Bezug auf Spalte A einen Wert stehen.
Im Hintergrund z.B. auf AA und AB gibt es eine "Übersetzung" der 20 möglichen Werte von Spa...
03.01.2009 16:13:58
Thread-ID: 1036563
6 Beiträge
Zahl als ausgeschriebener Text
Dirk

Hallo zusammen!!
Ich habe mal eine etwas knifflige Frage.
Ich möchte verschiedene Zahlen in der Nebenzelle als ausgeschriebenen Text darstellen.
Also zum Beispiel: 1 = eins
1.500 = eintausenfünfhundert
Ich hatte zuerst an einen Sverweis gedacht, aber es handelt s...
24.01.2009 14:47:00
Thread-ID: 1043358
5 Beiträge
Datum als serielle Zahl ausgeben
reiner

Hallo Leute,
nachfolgende Prozedur wandelt das angegebene Datum in eine serielle Zahl um.
Ich will die Jahreszahl nun über eine Variable eingeben; wie müsste dann der Programmcode erweitert werden damit die Umwandlung funktioniert?
Sub Datum() Dim Datum As Date Datum = "01.01.20...
15.02.2009 16:36:00
Thread-ID: 1050918
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
15
5
5
8
10
6
2
5
4
3
10
3
12
2
3
1
4
1
13
2
14
6
2
4
2