Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1212to1216
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
Inhaltsverzeichnis

Fehler Finden :(

Fehler Finden :(
Amy
Ich habe folgendes Programm geschrieben:

Sub Test()
Dim Seitenanzahl As Integer
Seitenanzahl = Sheets("Filter").HPageBreaks.Count
Dim Zeile As Integer
realeZeile = 0
With Worksheets("Filter")
For I = 1 To Seitenanzahl
Hilf = realeZeile
Zeile = .HPageBreaks(I).Location.Row
realeZeile = Hilf + Zeile
Range("A1:F1").Copy Destination:=Range("A" & realeZeile)
Next I
End With
End Sub

Leider stürzt der beim zweiten durchlaufen der Schleife immer ab. Weiß jemand warum?
Vielen Dank!
Amy

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Fehler Finden :(
03.05.2011 14:39:29
Amy
Sorry hat sich schon erledigt. Kann man das hier löschen?
AW: Fehler Finden :(
03.05.2011 14:44:30
Hajo_Zi
Nein, das kann nur der Betreiber.
Gruß Hajo
AW: Fehler Finden :(
03.05.2011 14:41:50
Rudi
Hallo,
meinst das so?
Sub Test()
Dim objHP As HPageBreak
ActiveWindow.View = xlPageBreakPreview
With Worksheets("Filter")
For Each objHP In .HPageBreaks
Range("A1:F1").Copy Destination:=objHP.Location
Next objHP
End With
ActiveWindow.View = xlNormalView
End Sub

Gruß
Rudi
AW: Fehler Finden :(
03.05.2011 14:42:08
Hajo_Zi
Halo Amy,
vielleicht solltest Du alle Variablen definieren?
Option Explicit
Sub Test()
Dim Seitenanzahl As Integer
Seitenanzahl = Sheets("Filter").HPageBreaks.Count
Dim Zeile As Long
Dim realeZeile  As Long
Dim Hilf As Long
Dim I As Integer
realeZeile = 0
With Worksheets("Filter")
For I = 1 To Seitenanzahl
Hilf = realeZeile
Zeile = .HPageBreaks(I).Location.Row
realeZeile = Hilf + Zeile
Range("A1:F1").Copy Destination:=Range("A" & realeZeile)
Next I
End With
End Sub


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige