Hallo zusammen,
bin mit meiner Fortschrittsanzeige fast fertig, allerdings
erhalte ich jetzt immer einen Laufzeitfehler 1004:
"Die Select-Methode des Range-Objektes konnte nicht ausgeführt werden"
Sub Daten_kopieren()
'Application.ScreenUpdating = False
LZeile = RealLastCell(Sheets("Tabelle3")).Row
Call initPB
For i = 1 To LZeile
Sheets("Tabelle3").Rows(i).Copy
Sheets("Tabelle1").Rows(i).Select '''''''hier kommt die Fehlermeldung
ActiveSheet.Paste
Application.CutCopyMode = False
Call refreshPB
Next i
Unload frmPB
'Application.ScreenUpdating = True

Mit allen Versuchen der Fehlerbehebung bin ich gescheitert; vielleicht
hat aus dem Forum jemand eine Idee.
Das war mein alter Thread (falls es jemand interessiert):
https://www.herber.de/forum/archiv/356to360/t359239.htm
Zur Fehlerbehebung habe ich meine Datei hochgeladen;
der Fortschrittsbalken stammt von Lutz:
https://www.herber.de/bbs/user/2867.xls

Besten Dank für eine Hilfe!
mfg
Erich