Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
588to592
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
588to592
588to592
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro im "Hintergrund" abarbeiten

Makro im "Hintergrund" abarbeiten
28.03.2005 14:17:21
Patrick
Hallo alle zusammen.
Ich habe ein eher kleines Problem.
Und zwar hab ich eine Exceltabelle in der einige hundert Einträge stehen.
Ich sortiere die Daten mittels selbst angelegter Buttons. Nun zum eigentlichen problem: nebst der Sortierung lasse ich im Anschluß daran den Ersten Buchstaben im Feld fett erscheinen. Allerdings nervt bzw. stört mich das Excel diesen Formatierungvorgang "sichtbar" durchführt also die Tabelle einmal bis zum Ende durchrasselt. Ich bin der Meinung das er dies auch im Hintergrund durchführen kann und komme aber nicht drauf wie :-(((
Hier mal der Auszug der Funktion:
For x = 2 To 400
Range("A" & x).Select
With ActiveCell.Characters(Start:=1, Length:=1).Font
.Size = 11
.Bold = True
.ColorIndex = 0
End With
With ActiveCell.Characters(Start:=2, Length:=50).Font
.Size = 10 'schriftgröße 10
.Bold = False
End With
Ich danke schonmal im Vorraus.

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro im "Hintergrund" abarbeiten
28.03.2005 14:19:32
Ramses
Hallo
schalte die Bildschirmaktualisierung aus
Application.Screenupdating = False
For x = 2 To 400
Range("A" & x).Select
With ActiveCell.Characters(Start:=1, Length:=1).Font
.Size = 11
.Bold = True
.ColorIndex = 0
End With
With ActiveCell.Characters(Start:=2, Length:=50).Font
.Size = 10 'schriftgröße 10
.Bold = False
End With
Application.Screenupdating = True
Gruss Rainer
AW: Makro im "Hintergrund" abarbeiten
28.03.2005 14:21:58
Patrick
Das ging ja super schnell!!!!!!!!
Ich wusste es ist was winziges. Aber selbst bin ich ebend nicht drauf gekomm. :-)))
Danke Ramses und schönen Feiertag noch
Anzeige
AW: Makro im "Hintergrund" abarbeiten
28.03.2005 14:22:48
Bert
Hi,
Option Explicit
Sub f()
Dim x As Long
Application.ScreenUpdating = False
For x = 2 To 400
With Range("A" & x).Characters(Start:=1, Length:=1).Font
.Size = 11
.Bold = True
.ColorIndex = 0
End With
With Range("A" & x).Characters(Start:=2, Length:=50).Font
.Size = 10 'schriftgröße 10
.Bold = False
End With
Next
Application.ScreenUpdating = True
End Sub

Gruß Bert
AW: Makro im "Hintergrund" abarbeiten
28.03.2005 14:23:43
Josef
Hallo Patrik!
Wenn man den Cursor wie einen Hund hetzt, dann muss es ja Flakern;-)

Sub Formatieren()
Dim x As Integer
On Error GoTo ERRORHANDLER
Application.ScreenUpdating = False
For x = 2 To 400
With Cells(x, 1)
.Font.Size = 10 'schriftgröße 10
.Font.Bold = False
With .Characters(Start:=1, Length:=1).Font
.Size = 11
.Bold = True
.ColorIndex = 0
End With
End With
Next
ERRORHANDLER:
Application.ScreenUpdating = True
End Sub

Gruß Sepp
P.S.: Rückmeldung nicht vergessen!


Anzeige
AW: Makro im "Hintergrund" abarbeiten
28.03.2005 14:34:26
Patrick
Danke auch an die beiden anderen :-)
Ich habe die Sache von Joseph auch mal probiert und habe da aber die Feststellung gemacht daß das ganze "etwas" länger dauert.
Aber nichts für Ungut mir ist ja schon geholfen (auch wenn ich immer sag "mir ist nicht mehr zu helfen" :-))) )
Damit an alle Helfer einen schönen Feiertag noch.

66 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige