Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
460to464
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
460to464
460to464
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

problem mit schleife

problem mit schleife
28.07.2004 14:13:28
porbsi

Sub zeile()
Loop Until i>ActiveSheet.UsedRange.Rows.Count
End Sub

die usedrange wird scheinbar mit jedem aufruf im größer jetzt geht es schon 18000 zeilen durch obwohl es gar nicht nötig wäre
wie kann ich deas vermeiden

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: problem mit schleife
28.07.2004 14:16:16
Basti
pack mal den ganze code hier rein, so kann man da nix erkennen
AW: problem mit schleife
porbsi

Private Sub Workbook_Open()
Cells.Select
Selection.ClearContents
Worksheets("Tabelle1").Range("A1").Select
ActiveSheet.Paste
Modul2.zeile
End Sub

Sub zeile()
'
' zeile Makro
' Makro am 28.07.2004 von QT30756 aufgezeichnet
'
Dim i As Integer
i = 2
Do
Rows(i).Select
Selection.Insert Shift:=xlDown
i = i + 2
Loop Until i > ActiveSheet.UsedRange.Rows.Count
End Sub
Bitte sehr
AW: problem mit schleife
Karl
Schon beinahe vermutet. Speichere vorher (!) die UsedRange.Rows.Count.
Lösche vorher die überschüssigen Zeilen mit STRG+-
Ich habe den Code ein bisschen effizienter gestaltet:

Sub zeile()
Dim i%, x&
x = 2 * ActiveSheet.UsedRange.Rows.Count
i = 2
Do
Rows(i).Select
Selection.Insert Shift:=xlDown
i = i + 2
Loop Until i >= x
End Sub

Gruß Karl
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige