Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 08:01:34
Textbox Inhalt prüfen und Code abbrechen
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
688to692
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
688to692
688to692
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Seitenumbruch läßt sich nicht verschieben

Seitenumbruch läßt sich nicht verschieben
03.11.2005 10:16:30
Holger
Hallo,
ich habe folgendes Problem mit Excel / VBA:
ich möchte Seitenumbrüche in einer VBA-Funktion verschieben.
Hierzu habe ich das Beispiel aus der VBA-Hilfe versucht:
Worksheets(1).HPageBreaks(1).Location = Worksheets(1).Range("E5")'
Allerdings erhalte ich nur, dass der Inhalt aus der Zelle "E5" in die Zelle, auf die der Seitenumbruch verweist (HPageBreaks(1).Location.Address) kopiert wird.
Weiss jemand woran das liegt, oder ob ich etwas einstellen muß?
Im Prinzip erhalte ich Daten aus der Zwischenablage, die ich dann automatisch formatieren möchte: das Blatt soll im Querformat sein, die Breite soll auf eine bestimmte Spalte eingestellt werden, die Anzahl der Reihen richtet sich nach einem Schlüsselwort in der ersten Spalte.
Alle Versuche die Seitenumbrüche zu verschieben führten leider zu keinem Erfolg.
MfG
Holger

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Seitenumbruch läßt sich nicht verschieben
03.11.2005 10:29:26
ingoG
Hallo Holger,
obige syntax setzt vorraus, dass es schon einen Seitenumbruch gibt.
versuchs mal so:

Sub aaaa()
Worksheets(1).HPageBreaks.Add Worksheets(1).Range("e5")
End Sub

Gruß Ingo
PS eine Rückmeldung wäre nett...
AW: Seitenumbruch läßt sich nicht verschieben
03.11.2005 10:37:52
holger
Hallo Ingo,
Der Seitenumbruch existiert, lässt sich aber wie gesagt nicht verschieben.
Wenn ich einen neuen (manuellen) Seitenumbruch einfüge, dann bleibt der automatisch erzeugte Seitenumbruch erhalten und lässt sich auch nicht löschen.
Ich habe bereits probiert, einen neuen Umbruch einzufügen, den alten Umbruch in einen manuellen Typ umzuwandeln und dann zu löschen - aber ebenfalls ohne Erfolg.
MfG
Holger
Anzeige
AW: Seitenumbruch läßt sich nicht verschieben
03.11.2005 10:52:04
ingoG
Hallo Holger,
ist denn der bestehende seitenumbruch vor oder nach zeile 5?
wenn er vorher ist, wird er nat. immer nur bis zum ende der physikalischen Seite drucken können.
Da mußt du an anderen Schräubchen drehen...
am besten zeichnest Du mal über den VBA-Recorder den Vorgang auf:
Datei / Seite einrichten /Papierformat,Skalierung 1 Seite Breit, 1 Seite hoch
fertig
Ich hoffe, ich habe dein Prob richtig verstanden ;-)
Gruß Ingo
PS eine Rückmeldung wäre nett...

AW: Seitenumbruch läßt sich nicht verschieben
03.11.2005 11:50:40
Holger
Hallo Ingo,
danke für die Erinnerung an den Makro-Editor.
Konnte nun mein problem lösen:
1. Um einen Seitenumbruch zu verschieben muss man die neue Zuwesiung mit 'Set' vornehmen, also z.B.:
Set ActiveSheet.VPageBreaks(1).Location = ActiveSheet.Range("E5")
2. Ich wollte einen vertikalen Umbruch ganz nach rechts verschieben. Dies ist allerdings nicht möglich. Den Umbruch löschen kann man aber auch nicht. Es ist hier nur möglich, den Umbruch mit der Methode .DragOff (...) aus dem druckbereich herauszuschieben.
An Ingo vielen Dank für die Anregungen und allen anderen mehr Glück im Umgang mit Seitenumbrüchen.
MfG
Holger
Anzeige
Danke für die Rückmeldung oT
03.11.2005 11:58:52
ingoG
.

125 Forumthreads zu ähnlichen Themen

Tabelle als PDF speichern
PeTeR

Hallo VBA-Freaks,
ich suche seit Stunden - finde aber nicht den exakt passenden Code, obwohl es zig Einträge zu dem Thema gibt.
Ich will eine Tabelle per VBA in PDF umwandeln u. drucken. Mein Code:
Application.ActivePrinter = "Adobe PDF auf Ne01:"
ActiveWindow.SelectedSheets.Pri...
25.10.2008 23:06:00
Thread-ID: 1019291
5 Beiträge
Anzeige
Excel Worksheet in PDF Datei umwandeln
Benedikt

hallo excel spezialisten
ich möchte gerne ein excel worksheet in eine pdf datei umwandeln, wie kann ich das machen?
das ganze sollte über einen makro möglich sein, denn ich möchte einen button dafür einsetzen (CommandButton1_Click), gleichzeitig möchte ich das sich die pdf datei automat...
28.02.2010 22:11:37
Thread-ID: 1142230
2 Beiträge
Blatt als PDF speichern (Excel 2007)
Gerhard

Hallo,
in einem gelegentlich langsamen Intranet muss ein Excel-Blatt von verschiedenen Netzwerk-PC aus mit diesem Code in einen vorhandenen oder neu erzeugten Ordner gespeichert werden.
Immer wieder kommt es vor, dass nicht in den mit If Dir(spath, 16) = "" Then MkDir (spath) erzeug...
10.03.2010 12:31:39
Thread-ID: 1144818
3 Beiträge
Anzeige
Excel Blatt als PDF speichern und dann verschicken
M

Hallo,
ich glaube ich habe mein Werk jetzt fast fertig, aber nun scheitert es doch an den letzen Zügen und an meinen nicht vorhandenen VBA Kenntnissen.
Dies ist mein erster Makro und der funktioniert auch so wie ich es mit vorgestellt habe: Sub Makro1() ' Makro1 Makro ActiveSheet.Expor...
03.05.2010 09:14:35
Thread-ID: 1155012
2 Beiträge
Blatt als PDF-Datei abspeichern
WalterK

Hallo,
in der Recherche habe ich einen Code gefunden mit dem Blätter als PDF-Datei gespeichert werden. Auf meine Bedürfnisse angepasst funktioniert er tadellos.
Eine kleine Änderung bekomme ich aber nicht hin.
Es geht um die Zeile sPDFName = "Arbeitszeitnachweis .....
MonatJahr...
16.07.2010 22:10:25
Thread-ID: 1167519
6 Beiträge
Aus Excel word Formular füllen & als pdf speichern
Tim

Hallo,
ich habe ein Excel Datei it Makros in deren Verlauf ich eine Word Formatvorlage fülle. Soweit klappt das alles auch gut.
Sub Test() Dim wrdApp Dim wrdDoc Dim Pfad As String Pfad = ThisWorkbook.Path & "\Vorlagen\Vorlage Gutschrift.docx" On Error GoTo ErrorExit Set wrdApp = C...
31.05.2011 12:43:37
Thread-ID: 1216846
3 Beiträge
Excel als PDF speichern
max

Hallo Excelfreunde,
arbeite viel mit FreePDF XP, Nachteil: es öffnet sich eine Maske ausserhalb von Excel zum Zusammenfügen von Excelseiten und Abspeichern als Datei.
Vor kurzem habe ich im Archiv folgenden Makro gefunden (meinerseits bereits angepasst):
Sub Makro1() ActiveSheet.Exp...
29.02.2012 00:47:25
Thread-ID: 1252798
2 Beiträge
Exceltabelle in PDF umwandeln auf auf Desktop sp.
Thomas

Liebe VBA Freunde!
Ich stehe nur vor Problemen :-( und ich hoffe ihr könnt mir helfen!
Wie kann ich eine bestehende Exceltabelle Bereich A1:Q20 mit Hilfe VBA in ein PDF.File umwandeln
und auf den Desktop speichern?
Im Internet habe ich darüber leider nichts gefunden.
Gibt es...
20.06.2012 20:46:01
Thread-ID: 1268201
8 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
4
2
1
2
1
1
5
2
1
7
2
3
1
15
12
3
2
6
6
5
1
7
1
2
7