Statusanzeige

Private Sub CommandButton1_Click() 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 Scannerdaten.Hide FormularWochenbericht.Show End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hi
sinnvoller wäre es, die Zeilen nicht einzeln in einer Schleife, sondern als ganzen Block zu kopieren, das ist wesentlich schneller und dann brauchst du keine Statusanzeige.
ansonsten ist die einfachste Form die Statuszeile von Excel zu nutzen:

Private Sub CommandButton1_Click()
Dim a, b, c As Long
dim Anz 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
Anz = Sheets("Daten Kurzcheck Formeln").Cells(Rows.Count, 3).End(xlUp).Row
For b = 2 To Anz
Application.Statusbar = "Bearbeitungsstand: " & Format(b/Anz, "%")
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
Scannerdaten.Hide
application.Statusbar = False 'Statusbar wieder für Excelmeldungen freigeben
FormularWochenbericht.Show
End Sub

das wäre jetzt eine Prozentanzeige, einen Statusbalken könntest du über die WIEDERHOLEN-Funktion mit einem geeigneten Zeichen aus dem Zeichensatz Tahoma erzeugen (in VBA: Worksheetfunction.Rept())
Gruß, Daniel

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Statusanzeige

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread