Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1484to1488
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
1484to1488
1484to1488
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

manueller Seitenwechsel

manueller Seitenwechsel
13.04.2016 15:29:25
Peter
Hallo Excelexperten,
ich setze an mehreren Stellen in der Tabelle mittels Makro Zeilen mit Seitenwechsel.
Diese Seitenwechsel sind nummeriert. Jetzt möchte ich erreichen, dass die Zeilen,
da z.B. fehlerhaft, gelöscht werden einschliesslich manuellem Seitenwechsel.
Leider weiss ich nicht, wie ich dies machen kann.
Mit diesem Befehl wird der Seitenwechsel eingefügt: ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Wie finde ich den Seitenwechsel für den bestimmten Bereich?
Besten Dank
Gruss Peter

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

Betreff
Datum
Anwender
Anzeige
AW: manueller Seitenwechsel
13.04.2016 17:36:25
Fennek
Hallo,
mit etwas guuuuuugeln fand ich nur
Hpagebreaks(1).delete
Aber im Menü kann man alles zurücksetzen, hilft das weiter?
Mfg

AW: manueller Seitenwechsel
14.04.2016 08:22:25
Peter
Hallo Fennek,
danke für Deine Hilfe.
Leider komme ich damit noch nicht weiter.
Ich benötige eine Variable.
Worksheets("Tabelle3").Rows(17).PageBreak = xlPageBreakNone
Die Zeilennummer als variable und zwar die Aktive Zelle.
Geht das?
Gruss Peter

AW: manueller Seitenwechsel
14.04.2016 09:05:36
Peter
Hallo Fennek,
habe die Lösung gefunden:
Sub Seitenwechsel_löschen1()
Dim loZeile As Long
loZeile = ActiveCell.Row
Cells(loZeile, 1).Select
Worksheets("Tabelle3").Rows(loZeile).PageBreak = xlPageBreakNone
End Sub
Wünsche noch einen schönen Tag.
Gruss Peter

Anzeige
AW: manueller Seitenwechsel
13.04.2016 17:50:44
Michael
Hallo Peter,
die vorhandenen Seitenwechsel kannst Du auslesen mit: 
Option Explicit
Sub WoSindSie()
Dim b As HPageBreak
For Each b In ActiveSheet.HPageBreaks
MsgBox b.Location.Address
MsgBox b.Location.Row
Next
End Sub
Mit .Delete kann man einzelne Umbrüche löschen.
Schöne Grüße,
Michael

AW: manueller Seitenwechsel
14.04.2016 08:21:54
Peter
Hallo Michael,
danke für Deine Hilfe.
Leider komme ich damit noch nicht weiter.
Ich benötige eine Variable.
Worksheets("Tabelle3").Rows(17).PageBreak = xlPageBreakNone
Die Zeilennummer als variable und zwar die Aktive Zelle.
Geht das?
Gruss Peter

Anzeige
AW: manueller Seitenwechsel
14.04.2016 09:07:08
Peter
Hallo Michael,
habe die Lösung gefunden:
Sub Seitenwechsel_löschen1()
Dim loZeile As Long
loZeile = ActiveCell.Row
Cells(loZeile, 1).Select
Worksheets("Tabelle3").Rows(loZeile).PageBreak = xlPageBreakNone
End Sub
Wünsche noch einen schönen Tag.
Gruss Peter

ok, freut mich, danke für die Rückmeldung
14.04.2016 15:43:09
Michael
Hi Peter,
Dir auch und schöne Grüße zurück,
Michael

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige