Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro im "Hintergrund" abarbeiten

Forumthread: 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.
Anzeige

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
Anzeige
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
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
Anzeige
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.
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige