Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
256to260
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
256to260
256to260
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Seitenumbruch / übertrag

Seitenumbruch / übertrag
21.05.2003 19:26:55
Ralf
Hallo alle zusammen ich habe hier ein Makro aus der Recherche, womit ich den Seitenumbruch ermitteln möchte und dann auf dernächsten Seite ein Übertrag erstellen möchte. Ich habe das Makro einer autoform zugewiesen . Aber wenn ich es ausführe ,kommt aber immer sehr lange die Sanduhr und es passiert Gar nichts.

hier das Makro
Sub AutoForm9_BeiKlick()
Dim varPB As Variant
Dim iPage As Integer, iRowL As Integer
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
iPage = 1
Do While IsError(varPB) = False
varPB = ExecuteExcel4Macro("INDEX(GET.DOCUMENT(64)," & iPage & ")")
If IsError(varPB) Then
Exit Sub
Else
Cells(varPB - 1, 2) = Application.Sum(Range(Cells(1, 1), _
Cells(varPB - 1, 1)))
End If
iPage = iPage + 1
Cells(iRowL, 2) = Application.Sum(Range(Cells(1, 1), Cells(iRowL, 1)))
Loop

End Sub

MfG Ralf

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Seitenumbruch / übertrag
21.05.2003 21:01:48
th.heinrich

hallo Ralf,

laeuft als SUB() problemlos, ebenso bei zuweisung zu einer AUTOFORM.

gruss thomas

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige