Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
708to712
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
708to712
708to712
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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!
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?
Anzeige
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
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
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!
Anzeige
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
AW: Seitenumbruch ermitteln dann Linie ziehen-zeichnen
21.12.2005 18:21:03
egon
Hallo!
Danke UweD.
Es funzt.
Schönen Gruß
Egon

186 Forumthreads zu ähnlichen 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
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
Anzeige
Fortlaufendes 3er Datum herunterziehen in Tabelle
Stefan

Hallo,
ich möchte in einer Exceltabelle das Datum fortlaufend herunterziehen. Allerdings ist es für 3 Schichten. Das heisst in Zelle A1, A2, A3 ist der 01.01.2009 . In Zelle A4, A5, A6 ist der 02.01.2009 usw.
Ist es irgendwie möglich das fortlaufend herunterzuziehen bis zum 31.01.2009...
04.12.2008 11:28:00
Thread-ID: 1030109
6 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
Formel automatisch nach unten ziehen
Hartwig

Hallo Leute,
Ich habe eine Frage.
In A1 steht ein Wert, in B1 eine Formel.
Gibt es eine Möglichkeit dass sich die Formel von B1 in die
angrenzenden unteren Zellen (B2, B3 usw.) erweitert, wenn die Zellen
A2, A3 usw. mit Werten gefüllt werden?
Danke schon mal für eure Hil...
27.01.2009 11:03:00
Thread-ID: 1044121
7 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
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
5
3
3
5
1
5
1
6
7
2
2
4
4
4
5
5
1
6
3
2
9
3
5
6
2