Microsoft Excel

Herbers Excel/VBA-Archiv

Statusanhzeige | Herbers Excel-Forum


Betrifft: Statusanhzeige von: René
Geschrieben am: 05.01.2010 21:30:20

Hallo liebe Excelprofis,

habe heute schon mal angefragt wegen einem Statusbalken der den Fortschritt für die Ausführung eines Makros anzeigen soll. Nun bin ich hier auf eine interessante Datei gestoßen ( siehe Link).
Wie könnte ich mein Makro in die ProgressDLG2 einbinden. Könnt ihr mir da bitte helfen.

gefundene Datei mit Beispielen für Statusbalken

https://www.herber.de/bbs/user/66995.xls

mein Makro welches ich gern mit der Variante ProgessDLG2 verbinden würde

Dim a, b, c As Long
For b = 2 To Sheets("Daten Kurzcheck").Cells(Rows.Count, 1).End(xlUp).Row
c = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("Daten Kurzcheck").Rows(b).Copy
Sheets("Daten").Rows(b).Insert
Sheets("Daten Kurzcheck").Rows(b).Clear
Next b

Worksheets("Daten").Columns("A:U").Sort _
Key1:=Worksheets("Daten").Range("D2"), Order1:=xlAscending, _
Key2:=Worksheets("Daten").Range("A2"), Order2:=xlAscending, Header:=xlYes

For b = 2 To Sheets("Daten Kurzcheck Formeln").Cells(Rows.Count, 3).End(xlUp).Row
c = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("Daten Kurzcheck Formeln").Rows(b).Copy
Sheets("Daten Kurzcheck").Rows(b).Insert

Next b

  

Betrifft: warum dreimal? Bleib im Thread! o.T. von: Josef Ehrensberger
Geschrieben am: 05.01.2010 21:53:49

Gruß Sepp



  

Betrifft: AW: Statusanhzeige von: René
Geschrieben am: 05.01.2010 23:00:45

Sorry, passiert nicht wieder. Habe nicht aufgepasst.