Schleife laufen und dabei einen Zaehler anzeigen l
10.09.2004 15:52:33
Bernhard
nun habe ich meine routine laufen moechte diese aber noch ein wenig aufpeppe.
Wie kann ich mir einen Zaehler in einem Fenster anzeigen lassen ?
Wie kann ich einen Cancel oder PAuse oder Abbrechen Button darin einbauen ?
Die Loop ist die folgende:
Sub Doppelte_Zeilen_Spalte1_sortieren_und_markieren()
' vergleicht dann alle uebereinander liegenden Felder in Spalte A und markiert die doppelten Spalten rot
' Anzahl der Zeilen wird in A festgestellt
' Es gibt eine Überschriftenzeile
Dim I As Long' Startzeile ist Zeile 2 wegen der Überschrift
Dim J As Long' Durchlaufender Zähler
For I = 2 To Cells(Rows.Count, 1).End(xlUp).Row
For J = Cells(Rows.Count, 1).End(xlUp).Row To I + 1 Step -1
If Cells(I, 1) = Cells(J, 1) And Cells(I, 4) = Cells(J, 4) Then
Rows(J).Interior.ColorIndex = 3
' Rows(J).Delete
End If
Next J
Next I
End Sub
Kann ich mir die Zeile ("I") oder "J") ausgeben lassen ohne dass die Performance noch mehr in die Knie geht ?
Kann ich einen Pause oder Stop Button einbauen ?
Danke und Gruss
Bernhard