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

Seitenumbruch per Makro mit Bedingungen

Forumthread: Seitenumbruch per Makro mit Bedingungen

Seitenumbruch per Makro mit Bedingungen
21.08.2013 16:00:15
claus
Hallo ich würde gerne per Makro meine manuellen Seitenumbrüche mit folgenden Bedingungen setzen: Der Seitenumbruch muss immer vor den Einträgen "Hier" in der Zeile 1 gesetzt werden
Beispiel: wenn in den Zeile Z1, AR1 und BL1 ein "Hier" steht, dann muss ein Seintenumbruch vor den Spalten Z, AR und BL gesetzt werden.
VIELEN DANK!

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Seitenumbruch per Makro mit Bedingungen
22.08.2013 09:02:06
Balder
Hallo Claus,
vielleicht so:
Sub Seitenumbruch()
For i = Sheets(1).Cells(Cells.Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Sheets(1).Cells(i, 1) = "Hier" Then
Sheets(1).HPageBreaks.Add Rows(i)
End If
Next
End Sub

Gruß Balder
http://www.youtube.com/BaldersWelt

Anzeige
AW: Seitenumbruch per Makro mit Bedingungen
22.08.2013 16:42:08
claus
Hallo,
vielen Dank für deine Antwort. Leider hat es nicht funktioniert. Bitte beachte, dass sich die "Hier" Werte in der Zeile (und nicht Spalte) 1 befindet und jedesmal wenn ein "Hier" steht muss genau zwischen dieser Spalte und der davor einen Seitenumbruch gesetzt werden.
Danke!
Ich habe folgendes versucht. Hat aber leider nicht funktioniert. Ich bekomme ein Makro fehler:
Sub Test5_Seitenumbruch_einfuegen()
Dim lngColumn As Long
For lngColumn = 1 To ActiveSheet.Cells(1, .Columns.Count).End(xlToLeft).Column
If Cells(1, .Columns.Count) = "Hier" Then _
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=Cells(1, lngColumn + 1)
Next
End Sub

Danke!
Anzeige
;

Forumthreads zu verwandten Themen

Bedingte Formatierung möglich ?
Micha

Hallo
Ist es möglich die Zellen per Bedingter Formatierung mit einer Formel zu Formatieren das wenn z.B in
A1 der Wert z.B 2505 geschrieben wird, das der Wert dann durch eine angegebene Zahl z.B 5 geteilt wird ?
Habe schon in der Regel die Formel A1/5 eingetragen, doch leider wird d...
22.09.2008 19:33:00
Thread-ID: 1011552
5 Beiträge
größte Zahl finden mit bedingung
Alexander

Hallo noch ein kleines Problem:
Ich habe eine Liste die in Spalte A mit jeweils mit Datum versehen wird. Des öfteren mehrere Zeilen mit dem selben Datum. Nun möchte ich aus Spalte B von den eingetragenen Zahlen eines selben Datums die jeweils größte herausfinden.
Hilfe.
Danke
...
14.11.2008 21:50:47
Thread-ID: 1024720
4 Beiträge
Tabelle auf DIN A 4 ausdrucken
Kathryn

Hallo,
ich habe eine Excel Tabelle, die ich nun ausdrucken möchte. Leider passt die Tabelle beim ausdrucken nicht auf ein DIN A 4 Blatt. Kann ich das irgendwie konfigurieren oder muss ich die Schrift noch kleiner machen?
Gruß.
01.12.2008 17:06:00
Thread-ID: 1029307
3 Beiträge
VBA 2 Din A 5 auf Din A 4 Drucken ?
Peter

Hallo
Habe auf ein Tab 2 Din A 5 Bereiche erstellt.
Wie kann man per Vba oder Formel die Beiden Bereiche auf Din A 4 Drucken?
Mfg. Peter
01.12.2008 17:56:42
Thread-ID: 1029327
3 Beiträge
Druck 2 Abschnitte auf Din A4
Peter

Hallo
Möchte gern 2 Abschnitte von einem Tab auf einer DinA 4 Seite Drucken.
Gelingt aber nicht, da er jeden Abschnitt auf einer Din A4 Seite druckt.
Sub Karte_Drucken() ' Karte_Drucken Makro ' Range("A2:T14,A17:T29").Select ' Range("A17").Activate ' With ActiveSheet.Pag...
04.12.2008 21:11:07
Thread-ID: 1030301
3 Beiträge
Anzeige
VBA Querdruck DinA5 auf DinA4 Hochformat
Peter

Hallo,
habe eine Userform die ich aufrufe, dort sind 2 CommandButtons auf die entweder auf DinA5 oder DinA4 gedruckt werden soll.
Habe nun den Makrorecorder laufen lassen.
Private Sub CommandButton1_Click() 'Sub Karte_Druck() ' Karte_Druck Makro Din A 4 Application.ScreenUpdating...
07.12.2008 11:40:36
Thread-ID: 1030830
3 Beiträge
AddIn über VBA auslösen
klausk

Guten Tag,
ich habe als "Telefonwählgerät" ein AddIn installiert. Das entsprechende Symbol für Wählen ist in der Commandbar vorhanden.
Nun möchte ich CommandButtons erstellen und mit deren Caption den Wählvorgang auslösen.
Wie kann ich ein AddIn über VBA auslösen, der Makrorekorder...
10.03.2009 11:35:13
Thread-ID: 1058544
14 Beiträge
Anzeige
DIN A 4 Hoch- oder Querdruck
Erwin_Geer

Hallo Excelspezialisten,
ich mache viele Auswertungen, die ich in Listenform als Datei ausgebe. Es gibt aber immer noch Kollegen, die alles ausdrucken - und manchmal über das Hochformat meckern, weil z. B. auf dem 2. Blatt nur noch 1 Spalte ist.
Nachdem schon einige Makros gelaufen sind...
03.12.2009 11:17:44
Thread-ID: 1121523
3 Beiträge
Bildschirmauflösung-UF anpassen | Herbers Excel-Forum
ingo h.
hallo an alle
(sorry, umschalttaste klemmt an dieser tatstatur9
ich habe etliche funktionen getestet und auch eine gefunden,
die mir auch die merkwürdigsten bildschirmauflösungen korrekt anzeigt.
als unsere fa. mit clients ausgestattet wurde, gabs kleine grafikkarten und
kleine...
13.01.2010 13:24:12
Thread-ID: 1129467
2 Beiträge
Kann Code einfach nicht anpassen: auf Tabelle2;D7!
RoB

Hallo Leute,
Ich habe einen Code bekommen, der in der Rohfassung perfekt lief, habe nun aber versucht ihn an meine Datei anzupassen: Excel soll statt in Spalte 1:1 von Tabelle "Tabelle 2" die makro-funktion erstmals in der Zelle D7 anwendet. Wie bekomme ich das hin?
Hier der Code:
...
12.07.2010 12:08:22
Thread-ID: 1166591
3 Beiträge
Zeilenhöhen auf eine Seite anpassen
Tipetan

Hallo Excel-Gemeinde!
Ich habe eine Tabelle mit Inhalt für maximal eine Seite A3 quer. Die Spaltenanzahl ist fest und die Breite ist auf ein Maximum eingestellt - die 14 Spalten verteilen sich über die gesamte Breite meiner Seite.
Nun zu meinem Problem: Ich habe eine variable Anzahl von...
07.01.2011 13:00:04
Thread-ID: 1194386
5 Beiträge
Bedingte Formatierung in C3:H14
Dieter(Drummer)

Hi Formelspezialisten/innen,
such die bedingte Formatierung: Es sollen die Zellen (Zahlen) im Bereich C3:H14 Gelb markiert werden, wenn die Zahlen identisch mit den Zahlen in C15:H15 sind.
Habe hier eine Musterdatei anbei: Die Datei https://www.herber.de/bbs/user/74228.xls wurde aus Dat...
31.03.2011 12:39:08
Thread-ID: 1208465
13 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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