Seitenumburch per VBA...aber da passt ´was nicht
12.01.2004 15:58:01
Abdi
habe heute Morgen einen Beitrag geschrieben, dass ich gerne Wiederholungzzeilen unten hätte. Antwort kam von Hans.
Jetzt hab ich den Code auf mich zugeschnitzt, aber etwas passt nicht:
Wenn ich ein neues Arbeitsblatt öffne, funktioniert alles einwandfrei. Aber sobald ich auf "Seitenumbruchvorschau" war, dann macht er den gleichen Schritt auf die letzte Zeile auch. (=logisch, ist ja auch ein Seitenumburch).
Aber diesen letzen Seitenumburch benötige ich nicht, da unter die letzte Zeile wieder der Bereich eingefügt wird.
Hat jemand von Euch eine Lösung??
Danke Gruß Abdi
Der aktuelle Code:
Sub Seitenumbruch()
Dim su As Variant 'su=Seitenumbruch
Dim iPage As Integer, iRowL As Integer
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
iPage = 1
Do While IsError(su) = False
su = ExecuteExcel4Macro("INDEX(GET.DOCUMENT(64)," & iPage & ")")
If IsError(su) Then
Exit Sub
Else
Rows(su - 2).Insert 'Einfügen von einer Zeile, 2 über su
Rows(su - 1).Insert 'Einfügen von einer Zeile, 1 über su
Range(Cells(su - 2, 1), Cells(su - 1, 11)) = Range("a10:k11").Value 'Einfügen des Bereiches a10:k11
End If
Range(Cells(iRowL + 1, 1), Cells(iRowL + 1, 11)) = Range("a10:k11").Value
iPage = iPage + 1
Loop
End Sub
Antwort:
Hallo,
Microsoft hat es bisher nicht geschafft, untere Wiederholungszeilen in Excel zu implementieren.
Ein Beispiel für das VBA-Einfügen von Überträgen findest Du in meiner Excel-FAQ unter:
http://xlfaq.herber.de/texte/053799h.htm
Gruss hans
Bezieht sich auf diese Nachricht:
Guten Morgen,
stehe da vor einem kleinen Problem:
Ich möchte gerne nicht nur Wiederholungszeilen oben haben, sondern auch welche unten.
Das, was in den Zellen steht, sind Verknüpfungen zu anderen Zellen und deswegen kann ich sie nicht in "Kopf-und Fußzeile" schreiben.
Bietet Excel diese Möglichkeit?
Über VBA habe ich es auch noch nicht hinbekommen, dass er mir an jedem Seitenende bestimmte Zellinhalte wiedergibt.
Danke für Eure Hilfe.
Abdi