Thema Datum  Von Nutzer Rating
Antwort
29.01.2015 11:54:50 MUC_2015
NotSolved
Blau Verweise aus ARRAY
 29.01.2015 12:58:41 Gast58329
NotSolved

Ansicht des Beitrags:
Von:
Gast58329		 Datum:
29.01.2015 12:58:41		 Views:
667		 Rating:
     
Antwort:
  Ja
Thema:
Verweise aus ARRAY

Jedes mal wenn man einen Wert in eine Zelle schreibt, werden dadurch mehrere Vorgänge losgetreten (z.B. neu Berechnung von Formeln, Autoformatierungen, Bildschirmaktualisierung, möglicherweise werden auch weitere Makros in Ereignissen ausgelöst, usw. und so fort).

Man muss sich da also schon genau überlegen was man eigentlich tut, und seine Schritte abwägen.

Man kann z.B. die Aktualisierung des Bildschirms vorrübergehend deaktivieren (Application.ScreenUpdating = False).

 

Viel sinnvoller kann es jedoch sein, wenn man die Daten bereits in einem Array hat, diese in einem Rutsch aufs Blatt zu schreiben, anstatt jedes Element einzeln.

Beispiel:

  Dim avntVal(1 To 15) As Variant
  Dim i As Long
  
  For i = LBound(avntVal) To UBound(avntVal)
    avntVal(i) = i
  Next
  
  Range("C1").Resize(ColumnSize:=UBound(avntVal)).Value = avntVal
  Range("C1").Resize(ColumnSize:=UBound(avntVal)).EntireColumn.AutoFit 'nur "Kosmetik"
  
  Range("B2").Resize(RowSize:=UBound(avntVal)).Value = WorksheetFunction.Transpose(avntVal)
  Range("B2").Resize(RowSize:=UBound(avntVal)).EntireColumn.AutoFit 'nur "Kosmetik"

 

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
29.01.2015 11:54:50 MUC_2015
NotSolved
Blau Verweise aus ARRAY
 29.01.2015 12:58:41 Gast58329
NotSolved