Statusanzeige
René
ich habe ein Makro mit dem man Daten aus zwei Tabellen in eine Tabelle zusammenführen kann. Leider dauert die Makroausführung sehr lange. Daher wollte ich gern den Button für die Ausführung des Makros in eine UserForm legen und in dieser UserForm beim Ausführen des Makros eine Statusanzeige mit Balken haben der den Fortschritt anzeigt. Könnt ihr mir da bitte helfen
Anbei das Makro das ausgeführt wird, aber eben sehr lange braucht
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