Thema Datum  Von Nutzer Rating
Antwort
26.01.2022 12:00:44 Stefan
Solved
Blau PasteSpecial Paste:=xlValues
 26.01.2022 12:51:46 Gast71819
Solved
26.01.2022 13:41:21 Gast22309
Solved
26.01.2022 13:47:32 volti
Solved
27.01.2022 10:55:49 Stefan
Solved

Ansicht des Beitrags:
Von:
Gast71819		 Datum:
26.01.2022 12:51:46		 Views:
554		 Rating:
     
Antwort:
 Nein
Thema:
PasteSpecial Paste:=xlValues

Du trennst diese - und jede weitere - Zeile auf:

.Range("AJ15").Copy obj_wkb_ziel.Worksheets("Liste").Cells(lng_letzte_zeile, 1)

in:

.Range("AJ15").Copy '-> bewirkt das der Ameisen-Rahmen angezeigt wird
Call obj_wkb_ziel.Worksheets("Liste").Cells(lng_letzte_zeile, 1).PasteSpecial(xlPasteValues)

Dadurch wirst du am Ende so einen animierten Rahmen sehen (nenne ihnen gerne den Ameisen-Rahmen). Den kann man wieder ausschalten mit

Application.CutCopyMode = False

... wie gesagt. Das solltest du erst tun, wenn du alles fertig kopiert hast.

 

PS: Zusammenhängende Bereiche sollte man auch zusammenhängend kopieren - weniger Kopierschritte => weniger Rechenaufwand => schneller fertig mit kopieren.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
26.01.2022 12:00:44 Stefan
Solved
Blau PasteSpecial Paste:=xlValues
 26.01.2022 12:51:46 Gast71819
Solved
26.01.2022 13:41:21 Gast22309
Solved
26.01.2022 13:47:32 volti
Solved
27.01.2022 10:55:49 Stefan
Solved