Anzeige
Archiv - Navigation
180to184
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
180to184
180to184
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro optimieren

Makro optimieren
21.11.2002 14:08:16
Hauke Brodersen
Hallo ins Forum!

DANKE an alle die mir beim ersten Makro geholfen haben.

Ich bräuchte noch eine kleine Hilfe:

und zwar sollen bei Ausführung des Makros die ersten 5 Zeilen erhalten bleiben (Spaltenüberschriften) und auch am Ende der Datensätze (Zeile 25000) sollen Summenformeln nicht mitgelöscht werden.

Weiß jemand Rat??

Hier das ansonsten echt gute Makro:

Sub Start()

Dim i%, Alle&

Worksheets(1).Select

Application.ScreenUpdating = False

Alle = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row

For i = Alle To 1 Step -1

If Cells(i, 1) <> [D1] Then
Rows(i).EntireRow.Delete
End If

Next i

End Sub

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

Betreff
Datum
Anwender
Anzeige
Re: Makro optimieren
21.11.2002 14:25:17
PeterW
Hallo Hauke,

der einfachste Weg wäre es, die Summen unter den Überschriften zu bilden. Die Schleife läßt Du dann laufen bis Zeile 7, also
For i = Alle To 7 Step -1

Gruß
Peter

Re: Makro optimieren
21.11.2002 14:31:23
Steffen D
Oder so:

For i = (Alle-1) To 5 Step -1

wenn es nur eine Zeile mit Summenformeln ist

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige