Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
124to128
124to128
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Seitenende ermitteln

Forumthread: Seitenende ermitteln

Seitenende ermitteln
10.06.2002 20:02:47
Krauty
Hallo,
bin ziemlicher Newbie auf dem VBA-Gebiet. Wer kann mir sagen, ob (und wie!) man über VBA automatisch ein Seitenende ermittelt?
Hintergrund: habe ca. 450 Zeilen VBA-Code. Hier werden aus Tabellen u.a. Zellinhalte in neue Arbeitsblätter kopiert, das Ende der neuen Tabelle ist sehr variabel (Länge ca. 2-5 Seiten). Nun möchte ich jeweils am Anfang / Ende einer Seite in eine Zeile eine Seitenzahl angeben. Dies sollte _nicht_ über die Kopf-/Fußzeile gelöst werden (Vorgabe!)
Die einzige Lösung die ich wüßte wäre, das jetzt in den Code "reinzufummeln", also selbst abzählen. Sicherlich gibt es doch aber eine elegantere Lösung, oder???

Bin für jede Hilfe dankbar!

Gruß,
Markus

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Seitenende ermitteln
11.06.2002 14:50:19
Roland Köstring
Hallo Markus,
der folgende Code schiebt Erste und letzte Zeilen ein:
Sub PBreak()
Dim zl As Long
Sheets("Tabelle1").Cells(1, 1) = "Allererste Zeile"
zl = 2
Do Until zl = 1000
With Sheets("Tabelle1")
If Rows(zl).PageBreak = xlPageBreakAutomatic Then
.Cells(zl - 1, 1).EntireRow.Insert
.Cells(zl - 1, 1) = "Letzte Zeile eingefügt"
.Cells(zl - 1, 1).EntireRow.Insert
.Cells(zl - 1, 1) = "erste Zeile eingefügt"
End If
zl = zl + 1
End With
Loop
End Sub
Gruss Roland
Anzeige
Re: Seitenende ermitteln
11.06.2002 21:01:52
Krauty
Hallo Roland,
vielen Dank für Deine schnelle Hilfe, hat _super_ funktioniert!!! Besonders schön ist, dass auch die Zeilenhöhe egal ist, es wird immer der Seitenwechsel sauber ermittelt!
Nochmals DANKE!!!

Gruß,
=:-) Markus

;

Forumthreads zu verwandten Themen

n ermitteln
Engin

Hallo zusammen,
ich hab wieder ein Problem und zwar :
Ich hab eine Datenreihe weiß aber nicht bis wohin es geht und möchte per code ermitteln bis welcher Zelle es geht.
also z.B ich habe eine Schleife : For i= 1 to n ( und n soll dann Zelle sein)
Ich hoffe ich habe mich verst...
08.08.2008 10:48:16
Thread-ID: 1000211
3 Beiträge
Alter ermitteln
Peter

Hallo,
ich habe ein Tabelle mit Personendaten u.a. auch die Geburtsdaten. Nun möchte ich in einer Spalte das aktuelle Alter in Jahren errechnen.
Wie mache ich das das?
mfg
Peter
14.08.2008 12:18:00
Thread-ID: 1001811
3 Beiträge
Anzeige
ersten nicht zutreffenden Wert ermitteln
Wladimir

Hallo zusammen,
ich bin neu hier, aber bereits habe ein paar Eure Tipps geholt und jetzt hoffe, dass ich mit Eurer Hilfe mein Problem löse.ich habe im Excel eine Zeile mit den Werten z. B.:in A1 steht 6B1 - KC1 - KD1 - 5E1 - KF1 - UUsw.Also:6 K K 5 K U ...Mit der Formel:=Vergleich("K";a1:z1...
28.08.2008 09:37:37
Thread-ID: 1005299
24 Beiträge
Standardabweichung ermitteln für bestehende Tabell
Lauren

Hallo zusammne,
ich mal wieder :)
jetzt kam noch der Wunsch auf, dass man eine Standardabweichung ermittelt haben möchte zu den ermittelten Werten.
Die formel für Standartabweichung habe ich bereits im Kopf aber wie setzte ich folgendes um:
- ich habe in Spalte E die Werte welch...
01.09.2008 12:58:45
Thread-ID: 1006407
15 Beiträge
Variablenname der kleinsten Variable ermitteln
uli


Hallo Experten,
mit folgendem Code ermittel ich die kleinste von mehreren Variablen:
t = 5
s = 6
p = Application.WorksheetFunction.Min(t, s)
Könnt Ihr mir sagen, über welchen Befehl ich jetzt auch den Variablennamen ermitteln kann, der zu der kleinsten Variable gehört?...
03.09.2008 11:29:36
Thread-ID: 1007051
5 Beiträge
Zellinhalt aufgrund Sheetname und Zelle ermitteln
Peter

Guten Tag
Wahrscheinlich stehe ich mir selbst auf der Leitung.
Mit Hilfe der String-Variablen strTab (enhaltend der Worksheet-Name) und strZelle (enthaltend die Zelladresse, z.B. A3) möchte ich den Wert der entsprechenden Zelle (Text) ermitteln und der Variable strContent zuweisen.
...
11.09.2008 10:31:00
Thread-ID: 1009001
3 Beiträge
Anzeige
zeile ermitteln aus : A10:C26
reinhardt

Hallo.
In A1 stehen Range-Werte in folgender Form: A10:C26, oder BC150:M299
Ich möchte alle Zeilen oberhalb von A10 (1 ...9) oder BC 150 (1...149) ausblenden.
Dazu brauche ich einmal Hilfe bei einer Formel, die mir den Wert 9 aus A10:C26 oder
den Wert 149 aus BC150:M299 erre...
19.09.2008 09:22:00
Thread-ID: 1010909
2 Beiträge
Buchstabe Spalte ermitteln
SteffenS

Hallo Zusammen,
wir ermittle ich aus:
Cells(1, Columns.Count).End(xlToLeft).Column
die Spalte nicht als Zahl, sondern als Buchstabe z.B.:
Spalte 2 = B
Danke im Voraus.
MFG
Steffen Schmerler
22.09.2008 12:15:25
Thread-ID: 1011441
5 Beiträge
Maximum ermitteln mit VBA
Alifa

Hallo,
ich habe eine Funktion und möchte mit einem Makro deren maximalen Wert ermitteln(x=1 To 3)
F(x)=2*x*sqr(x^2-6*x+10)+(2*x-6)*sqr(9+x^2). Das ist zunächst meine letzte Frage!
Gruß, Alifa
22.09.2008 17:20:12
Thread-ID: 1011530
4 Beiträge
zeile ermitteln, werte prüfen
sonja

hallo ihr lieben,
ich hoffe ihr könnt mir auch dieses mal wieder helfen.
ich möchte in einer zeile (die sich ständig ändert letzte beschriebene zeile minus 6)
in jeder spalte prüfen ob der wert kleiner als ... ist, wenn dies zutrifft sollte sich eine userform
mit einem hinweis...
10.10.2008 16:55:00
Thread-ID: 1015638
11 Beiträge
Spaltenreferenz ermitteln
Boris

Hallo,
wie löse ich folgendes, möglichst kurz: =SUMPRODUCT((INDIRECT(D2)="Blubb")*1)
(der Sinn dieser Formel sei hier dahingestellt, nur soviel: in D2 steht ein Bereich als Text, der über INDIRECT in einen Bezug umgewandelt wird)
In dieser Formel möchte ich innerhalb von INDIRECT di...
30.10.2008 14:37:00
Thread-ID: 1020613
8 Beiträge
Anzeige
n ermitteln
derwich

Hallo zusammen,
Wie kann ich in einer Datenreihe n( Anzahl der Zellen) bis zudem wert 10 ermitteln?
Danke schon aml im Voraus
05.11.2008 10:13:36
Thread-ID: 1021777
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige