Makro "Zellen ohne Formel bearbeiten" sehr langsam

Dim Zelle As Range For Each Zelle In ActiveSheet.Range("D6:AH369") If Not Zelle.HasFormula Then Zelle.ClearContents Zelle.ClearComments With Zelle.Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With With Zelle.Font .Name = "Arial" .Size = 12 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 .ThemeFont = xlThemeFontNone End With End If Next Zelle

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub gdgd() On Error GoTo Fehler With ActiveSheet.Range("D6:AH369").SpecialCells(xlCellTypeConstants, 23) .ClearContents .ClearComments With .Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With With .Font .Name = "Arial" .Size = 12 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 .ThemeFont = xlThemeFontNone End With End With Exit Sub Fehler: MsgBox "Keine entsprechende Zellen vorhanden" End Sub

Muss schon ein makro sein, weil der Teil in ein vorhandenes Makro mit eingebaut wird.

Hab es jetzt getestet, funktioniert leider nicht so wie erhofft.

Es gibt Zellen, da steht z.B. nur ein Kommentar drin, sonst nichts. und es gibt welche, die haben nur eine andere Füllfarbe, sonst ebenfalls keinerlei einträge oder dergleichen.
das wird von dem SpecialCells(xlCellTypeConstants, 23) ignoriert, diese Zellen werden nicht mit selektriert bzw "bereinigt"

Im Prinzip soll er alle Zellen die keine formel enthalten aber selektieren oder entsprechend bearbeiten. Kann auch gut sein, das manch einer mal etwas in eine Zelle reingeschrieben hat mit einer anderen Schriftart und Schriftgröße und dann den Text wieder rausgelöscht hat...dann soll die Zelle ebenfalls wieder auf Standard Arial, 12 mit zurück gesetzt werden durch das Makro. Daher ist denke ich mal der einzige Bezugspunkt das "If Not Zelle.HasFormula" - damit würde Excel ja alle Zellen nochmal bearbeiten (die eben keine Formel drin haben)

Sub Makro2() Dim myRng As Range Set myRng = Range("B3:H18") myRng.SpecialCells(xlCellTypeConstants, 23).ClearContents myRng.SpecialCells(xlCellTypeComments).ClearComments Range("A1").Copy 'das wäre eine standardformatierte Zelle myRng.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Range("A1").Select End Sub

"Es gibt Zellen, da steht z.B. nur ein Kommentar drin, sonst nichts. und es gibt welche, die haben nur eine andere Füllfarbe, sonst ebenfalls keinerlei einträge oder dergleichen.
das wird von dem SpecialCells(xlCellTypeConstants, 23) ignoriert, diese Zellen werden nicht mit selektriert bzw "bereinigt""

Zellen, die keinen Inhalt haben, kannst du mit SpecialCells(xlcelltypeblanks) selektieren und dann in gleicher weise bearbeiten.

du müsstest also die Aktion mit beiden varianten durchführen.
Wenn du die Zellen auf Standard zurücksetzen willst, sollte ein .Clear reichen.
das löscht Inhalte, Formate und Kommentare.
das ganze in On Error Resume Next, da sonst ein Fehler auftritt, wenn es die gesuchten Zellen nicht gibt:

with  ActiveSheet.Range("D6:AH369")

    On Error Resume Next

    .SpecialCells(xlcelltypeconstants).Clear

    .SpecialCells(xlcelltypeblanks).Clear

    On Error Goto 0

end with

die 23 bei den Celltypeconstants kannst du auch weglassen, da du ja alle Inhalte löschen willst.
Ansonsten könnte man über diesen Wert noch gezielt auf die Untergruppen Zahl(1), Text(2), Wahrheitswert(4) und Fehler(16) zugreifen.
Mehrere kann man dann durch Addtion gleichzeitig auswählen, also 3=1+2 für Zahlen und Texte und dann auch 23=1+2+4+16 für alle Typen.
Alle Typen werden aber auch genommen, wenn man den Wert nicht angibt.

Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Makro "Zellen ohne Formel bearbeiten" sehr langsam

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro "Zellen ohne Formel bearbeiten" sehr langsam

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread