Thema Datum  Von Nutzer Rating
Antwort
26.11.2007 11:58:08 Crio
NotSolved
26.11.2007 14:14:25 Holger
NotSolved
Rot Aw:Aw:Spaltenbreite
 27.11.2007 08:33:00 Crio
NotSolved

Ansicht des Beitrags:
Von:
Crio		 Datum:
27.11.2007 08:33:00		 Views:
906		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Spaltenbreite
Vielen Dank Holger!
Die Performance ist tatsächlich viel besser geworden und jetzt zufriedenstellend. Einen schnelleren Weg habe ich nicht gefunden, aber es ist ja wie gesagt in Ordnung so.
Gruß
Crio

P.S.: natürlich nur die i-te spalte, habs falsch abgeschrieben gehabt... (da macht man einmal nicht copy und paste....^^)

Holger schrieb am 26.11.2007 14:14:25:

Hallo Crio,
der Zeitverbraucher ist der Zeilenumbruch. Wenn du ihn nicht in die Schleife, sondern am Ende einbaust, geht es etwas schneller:

For i = 1 To anzreihen
If Columns(i).ColumnWidth > 25 Then
Columns(i).ColumnWidth = 25 'Es soll doch wohl nur die i-te Spaltenbreite geändert werden
End If
Next i
Cells.Select
Selection.WrapText = True

Falls du noch etwas schnelleres findest, teile es bitte mit.
Vie Erfolg
Holger



Crio schrieb am 26.11.2007 11:58:08:

Hallo,
wieder einmal sind es die einfachsten Dinge, die mir am meisten zu schaffen machen. Ich habe eine sehr große Exceltabelle, die ich mit Autofit lesbar breit gemacht habe. Nun will ich aber, die Spalten nicht eine Breite von 25 überschreiten lassen, da auch dies teilweise zur unlerlichkeit führt.
Ich habe das Problem zwar in einer Schleife wie folgt gelöst:

For i = 1 To anzreihen
If Columns(i).ColumnWidth > 25 Then
Columns.ColumnWidth = 25
Selection.WrapText = True
End If
Next i

Jedoch ist die Performance für diese Lösung miserabel ( 30-40 Sekunden). Nun frage ich, ob es noch einen einfacheren Weg gibt?

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.11.2007 11:58:08 Crio
NotSolved
26.11.2007 14:14:25 Holger
NotSolved
Rot Aw:Aw:Spaltenbreite
 27.11.2007 08:33:00 Crio
NotSolved