ich habe eine Sub, um Daten eines Ranges von einem Tabellenblatt zu einem andren Tabellenblatt zu kopieren:
Sub Kopieren()
Dim intS As Integer
Sheets("Daten einlesen").Range("C2:H150").Copy
With Sheets("Übersicht")
intS = .Cells(4, Columns.Count).End(xlToLeft).Column
.Cells(5, intS).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
End Sub
So, nun meine Frage dazu: Der Range, den ich kopieren will, kann in der Anzahl der Zeilen so gross sein, dass er über das Zeilenformat (Seitenhöhe)unten hinaus geht. In dem Fall wird einfach auf eine zweite Seite weiter geschrieben. Ich habe als Range halt mal 150 angegeben, da meine Zeilen variiren können und mal 30 mal 120 sein können. (150 deckt immer alles ab, dann werden halt leere Zeilen mit kopieret)
Nun das Problem dazu: ich habe unten in meiner Seite eine kleine Grafik platziert, sowas wie eine Fusszeile, Wenn ich nun den oben stehenden Code ausfüre, dann bügelt mir der Code die Daten bis zum letzten Zeile runter, egal, ob da unten eine Grafik steht oder nicht.
Kann ich den Code irgend wie umprogrammieren, dass dieser nicht bis zur letzten Zeile einer Seite die daten einträgt, sondern vielleicht schon 5 Zeilen vorher, also kurz vor der Grafik (.jpg) aufhört , und dann auf der nächsten Seite (wenn noch daten da sind) weiter macht ?
Hoffe, habe mein Problem richtig erklären können.
Gruss
Joachim