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

Seitenumbruch ermitteln dann Linie ziehen-zeichnen

Forumthread: Seitenumbruch ermitteln dann Linie ziehen-zeichnen

Seitenumbruch ermitteln dann Linie ziehen-zeichnen
20.12.2005 13:23:18
egon
Hallo Experten!
Unlösbares Problem für mich. Wer hilft?
Ich möchte Seitenumbrüche ermitteln, mit Offset 2 hochgehen.
Dann dort eine Linie hinkopieren oder zeichnen oder wie auch immer......
Hauptsache Linie!
Schönen Gruß
Egon
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Seitenumbruch ermitteln dann Linie ziehen-zeichnen
20.12.2005 13:36:46
Galenzo
For Each pb In ActiveSheet.HPageBreaks
With pb.Location.EntireRow.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Next
Viel Erfolg!
AW: Seitenumbruch ermitteln dann Linie ziehen-zeichnen
20.12.2005 14:23:38
Galenzo
sorry, hab' ich mal wieder glatt überlesen...
With pb.Location.Offset(-2, 0).EntireRow.Borders(xlEdgeBottom)
und am besten noch ein "On error resume next" davor, sonnst kommt ein Fehler, wenn ein Seitenumbruch 2 ist. (Oder mit 'ner if-Anweisung abefangen)
Viel Erfolg!
Anzeige
AW: Seitenumbruch ermitteln dann Linie ziehen-zeichnen
21.12.2005 10:05:04
Galenzo
Korrektur:
das scheint irgendwas faul zu sein...
ich hab's mal besser programmiert - ändere 1 Zeile so:
With Rows(pb.Location.Row).EntireRow.Borders(xlEdgeBottom)
Geht's jetzt?
AW: Seitenumbruch ermitteln dann Linie ziehen-zeichnen
21.12.2005 10:44:49
egon
Hallo Galenzo!
Danke für die Mühe.
Sehr merkwürdig das ganze.
Geht-Geht nicht. Oder nur manche Linien werden gezogen.
Gruß
Egon
Anzeige
AW: Seitenumbruch ermitteln dann Linie ziehen-zeichnen
20.12.2005 13:54:10
UweD
Hallo
jetzt hab ich es auch:

Sub Linie()
Dim Tb1, pb, Sp%, Br%, Zeile
Set Tb1 = Sheets("Tabelle1")
Sp = 1 'Linie ab A
Br = 6 'bis F
For Each pb In Tb1.HPageBreaks
Zeile = pb.Location.Row
With Tb1.Range(Cells(Zeile, Sp), Cells(Zeile, Br)).Offset(-2, 0)
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeTop).Weight = xlThin
.Borders(xlEdgeTop).ColorIndex = xlAutomatic
End With
Next
End Sub

Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: Seitenumbruch ermitteln dann Linie ziehen-zeichnen
20.12.2005 14:02:05
egon
Hallo Galenzo!
Vielen Dank für die Hilfe.
Linie ziehen geht.
Wie könnte ich diese Linie 2 Zeilen höher ziehen?
Offset wie?
Vielen Dank im Voraus
Egon
AW: Seitenumbruch ermitteln dann Linie ziehen-zeichnen
20.12.2005 14:22:57
egon
Hallo!
Dank an euch beide.
Der Code funktionierte eine Zeit lang.Warum jetzt nicht mehr...
Jetzt bekomme ich in Zeile :
For Each pb In Tb1.HPageBreaks
Fehlermeldung: Index ausserhalb des gültigen Bereichs.
Könnt ihr nochmal helfen?
Gruß
Egon
Anzeige
AW: Seitenumbruch ermitteln dann Linie ziehen-zeichnen
20.12.2005 14:27:16
Galenzo
schreibe ein "on error resume next" als erste Anweisung in deinen Code.
Die Hilfe sagt übrigens:
"...Anmerkung -
Die horizontalen Seitenwechsel sind pro Arbeitsblatt auf 1026 beschränkt..."
Viel Erfolg!
AW: Seitenumbruch ermitteln dann Linie ziehen-zeichnen
21.12.2005 07:28:01
egon
Hallo!
Dank an euch beide!
Hab aber noch ein Problem mit dem Code.
Diese Linie wird nur manchmal gemacht.
Geht-Geht nicht.Manchmal nur eine Linie dann wieder alle. Also unregelmässig.
Was kann das sein?
Schönen Tag noch
Egon
Anzeige
AW: Seitenumbruch ermitteln dann Linie ziehen-zeichnen
21.12.2005 18:21:03
egon
Hallo!
Danke UweD.
Es funzt.
Schönen Gruß
Egon

Forumthreads zu verwandten Themen

Formeln "runterziehen"
Peter

Hallo Leute,
ich habe mal folgende Frage:
Ich möchte verschiedene Automodelle miteinander vergleichen. Man gibt unter anderem die Jahreskilometerleistung, den Kraftstoff und den Verbrauch ein und Excel berechnet dann für das jeweilige Modell die Kosten. Die Liste der Fahrzeuge besteht a...
14.09.2008 19:08:27
Thread-ID: 1009609
6 Beiträge
Anzeige
Laufende Nummer aus anderer Datei ziehen
mtremer

Hallo Excel-Freunde,
nun habe ich schon länger recherchiert, aber gefunden habe ich nichts :-(
Folgendes habe ich vor:
Ich befinde mich in einer Datei (Start.xls). Von dort aus möchte ich eine laufende Nummer aus einer anderen Datei (Sammlung.xls) ziehen. Diese Nummer befindet sich...
17.09.2008 11:55:00
Thread-ID: 1010315
4 Beiträge
Formel in nächste Zeile ziehen
Michael

Hallo zusammen hab mal wieder ein Problem
Möchte eine Formel in die nächste Zeile ziehen.
C:\----\Spiels\[001.xls]BL-Tabelle'!$B$4;"")
In der nächsten Zeile sollte dann aus 001.xls ein 002.xls erscheinen dies sollte so sein bis Zeile 200
Kann mir hierbei jemand helfen schon jetz...
24.09.2008 11:02:28
Thread-ID: 1011987
4 Beiträge
@viele meinungen: spaltenangaben in vba
Herbert

hallo,
wie macht ihr denn das: wenn ich in einem vba-code spaltenangaben mache, und in der tabelle dann spalten einfügen oder entfernen muss, muss ich alle spaltenangaben im code manuell ändern. und wehe, ich vergesse das, dann stimmt das ganze makro nicht mehr.
beispiel:
With Sheet...
08.10.2008 19:41:00
Thread-ID: 1015156
6 Beiträge
Fragmente einbeziehen
steffen

Hallo in die Runde,
wie stelle ich es an, dass die Gültigkeit funktioniert, wenn ich nur ein Fragment habe.
Bsp.
A1 soll den Wert "Ja" haben, wenn in B1 "Bauer" oder "Sauer" oder "Schoppenhauer" usw. steht. also die Prüfung nur mit dem Fragment "auer" durchgeführt wird.
Gruß St...
02.12.2008 16:29:45
Thread-ID: 1029557
2 Beiträge
Reiter in Formel; dann runterziehen
Michael

Hallo.
Ich habe in einer Excel-Mappe mehrere Reiter / Sheets. Ich benötige davon 12 Reiter, Jan bis Dez..
Aus diesen soll jeweils eine Zelle entnommen werden. Sprich =Januar!A$38
Da solche ähnliche Formeln aber noch öfter vorkommen, würde ich es vorziehen, wenn ich die Monatsnamen (...
10.12.2008 10:40:00
Thread-ID: 1031600
2 Beiträge
Worksheet_change-Ereignis auf eine Spalte beziehen
Dennis

Hallo Forum,
kann man das worksheet_change Makro so gestalten, dass nicht das ganze Tabellenblatt überwacht wird, sondern nur Spalte A-C?
Danke!
Gruß Dennis
10.06.2009 08:36:09
Thread-ID: 1080323
8 Beiträge
Zellen nach unten ziehen
welga

Hallo,
ich glaube ich stehe zur Zeit voll auf dem Schlauch.
Ich habe in Spalte A die Zahlen 1 bis 1024. Dann habe ich noch B1=A1, B2=A4, B3=A7, B4=A10. Da es aber zu mühsam ist die einzelnen Zellen in Spalte B von Hand zu füllen, habe ich versucht alle ausgefüllten Zellen zu markieren u...
22.09.2009 11:14:07
Thread-ID: 1104593
3 Beiträge
Monat Spalte, Jahres Spalte Datum abziehen
Fred

Hallo,
ich bräuchte mal Hilfe von Euch.
in Zelle A1 steht die Monatszahl (z.B. "5" für Mai)
in Zelle B1 steht die Jahreszahl (z.B. "2009")
darunter in Zelle A2 wieder eine Monatszahl (z.B. "7" für Juli)
und in B2 eine Jahreszahl (z.B. "2004")
nun möchte ich die Differenz...
12.10.2009 15:29:07
Thread-ID: 1109111
3 Beiträge
Formelverknüpfungen auf aktuelle Datei beziehen
Annette

Liebes Forum,
ich versuche gerade aus einer alten Dateiversion (Alt) ein Tabellenblatt in eine aktuelle Dateiversion (Neu)zu kopieren.
Beide Dateiversionen (Alt und Neu) enthalten die gleiche Anzahl von Tabellenblättern mit identischen Bezeichnungen.
Problem: Nach dem Einfügen eines...
01.11.2009 12:49:27
Thread-ID: 1113610
5 Beiträge
Werte aus einer Datei ziehen
andreas

Hallo,
mein Problemchen, ich möchte für ein Formular bestehend aus einer Excel Datei Werte aus einer anderen Excel Datei holen. Bisher hatte ich das über Makrorecorder so eingerichtet.
Datei öffnen, die betreffende Zelle markieren, STRG+C, dann rüber auf mein Formular und STRG+V.
B...
20.11.2009 23:14:54
Thread-ID: 1118956
5 Beiträge
Formel auf letzte Eingabe in einer Spalte beziehen
Claus

Hallo Experten!
Folgendes: Für eine Wahl-Auszählung geben wir in Spalte A fortlaufend eine Zahl (die jeweils einem Kandidaten entspricht) ein.
Eine zweite Person macht das selbe manuell. Nun meldet sich diese Person immer dann, wenn ein Kandidat ein 10-er-Paket an Stimmen voll hat.
...
15.03.2010 12:47:48
Thread-ID: 1145892
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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