Thema Datum  Von Nutzer Rating
Antwort
Rot Performance xlPasteValues
14.02.2017 16:41:06 Adri
NotSolved
14.02.2017 16:56:57 Holger
NotSolved
14.02.2017 17:17:22 Gast25027
NotSolved
14.02.2017 18:23:33 Gast16730
NotSolved

Ansicht des Beitrags:
Von:
Adri		 Datum:
14.02.2017 16:41:06		 Views:
1240		 Rating:
     
Antwort:
  Ja
Thema:
Performance xlPasteValues

Hallo zusammen,

ich verwende über VBA die Zählenwenn-Funktion. Das funktioniert auch sehr gut und läuft sehr schnell.

Allerdings habe ich das Problem, dass ich im nachhinein nicht die Formel, sondern die den Wert in den entsprechenden Zellen benötige. Wenn ich nun über die Funktion .copy und .pastespecial paste:=xlpastevalues die Werte kopieren möchte, dauert das bei ca. 30.000 Zeilen sehr lange (ca. 20 Minuten).

Wenn ich direkt für alle 30.000 Zeilen die Werte mit Zählenwenn berechnen könnte anstatt die Formel einzutragen und später mit "nur Werte kopieren" zu kopieren, würde sich vermutlich die Laufzeit deutlich verringern. Habt ihr eine Idee wie das aussehen könnte? Hier der Code.

    ActiveSheet.Range("B2").FormulaLocal = "=ZÄHLENWENN(A:A;A2)"
    ActiveSheet.Range("B2").AutoFill Destination:=Range("B2:B" & GetLastRow(wksImport))
    With Cells
        .Copy
        .PasteSpecial Paste:=xlPasteValues 'dieser Schritt dauert sehr lange!
    End With
    Application.CutCopyMode = False

 

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
Rot Performance xlPasteValues
14.02.2017 16:41:06 Adri
NotSolved
14.02.2017 16:56:57 Holger
NotSolved
14.02.2017 17:17:22 Gast25027
NotSolved
14.02.2017 18:23:33 Gast16730
NotSolved