Thema Datum  Von Nutzer Rating
Antwort
22.08.2011 14:25:09 Lexta
Solved
Blau Zeitaufwand für Makro
23.08.2011 14:09:38 Gast52285
Solved
23.08.2011 18:56:54 Mawisoft
Solved

Ansicht des Beitrags:
Von:
Gast52285
Datum:
23.08.2011 14:09:38
Views:
1521
Rating: Antwort:
 Nein
Thema:
Zeitaufwand für Makro
  1. LenB ist schneller als Len
  2. For Each ist schneller als der indizierter Zugriff
  3. Wenn indizierter Zugriff sinnvoll ist dann solltest in diesem Fall besser eine hilfsvariable verwenden

Folgende Version ist bei mir um welten schneller (im wesentlichen weil das aktive Wort nur einmal aus dem Array

Dim j As Long j = 1 ReDim Text(1 To ActiveDocument.Words.Count)
For Each word In ActiveDocument.Words
If LenB(word) > 2 Then Text(j) = word j = j + 1
End If
Next


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
22.08.2011 14:25:09 Lexta
Solved
Blau Zeitaufwand für Makro
23.08.2011 14:09:38 Gast52285
Solved
23.08.2011 18:56:54 Mawisoft
Solved