Thema Datum  Von Nutzer Rating
Antwort
21.06.2018 13:01:09 Xarmat
NotSolved
21.06.2018 14:37:07 Xarmat
NotSolved
21.06.2018 16:47:55 Gast32716
NotSolved
Blau Das ist keine Lösung …
 21.06.2018 18:38:15 RPP63
*****
Solved
22.06.2018 09:50:14 Xarmat
NotSolved

Ansicht des Beitrags:
Von:
RPP63		 Datum:
21.06.2018 18:38:15		 Views:
518		 Rating:
     
Antwort:
 Nein
Thema:
Das ist keine Lösung …

… sondern ein wunderbares Beispiel, wie man es mittels VBA schafft, selbst die simpelste Anforderung extrem auszubremsen!

 

Und jetzt erst mal Moin!

Schreibe eine Formel in den gesamten Bereich und tausche sie gegen den Wert:

Sub RPP()
With Range("A21:GR30")
  .Formula = "=A1"
  .Copy: .PasteSpecial xlPasteValues
End With
End Sub

Dürfte um den Faktor 1.000(!) schneller sein als das ungelenke Schleifenkonstrukt.

 

Gruß Ralf

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
21.06.2018 13:01:09 Xarmat
NotSolved
21.06.2018 14:37:07 Xarmat
NotSolved
21.06.2018 16:47:55 Gast32716
NotSolved
Blau Das ist keine Lösung …
 21.06.2018 18:38:15 RPP63
*****
Solved
22.06.2018 09:50:14 Xarmat
NotSolved