Thema Datum  Von Nutzer Rating
Antwort
Rot Makro zur Formatierung beschleunigen
 24.01.2018 15:16:22 Piecha
NotSolved
24.01.2018 15:35:50 Gast66062
NotSolved
24.01.2018 15:53:47 Gast77965
NotSolved
24.01.2018 15:55:48 Piecha
NotSolved
24.01.2018 16:06:42 Gast25199
NotSolved
29.01.2018 15:39:01 Piecha
NotSolved
29.01.2018 16:06:13 Gast24838
NotSolved
30.01.2018 15:54:38 Piecha
NotSolved
31.01.2018 07:24:18 Gast51232
NotSolved

Ansicht des Beitrags:
Von:
Piecha		 Datum:
24.01.2018 15:16:22		 Views:
1229		 Rating:
     
Antwort:
  Ja
Thema:
Makro zur Formatierung beschleunigen

Hallo zusammen,

da mein Excel- Sheet mittlerweile so viele bedingte Formatierungen enthält, das auch andere Sheets ausgebremst werden, versuche ich es per Makro zu umgehen.

Hier mein erster Entwurf:

Option Explicit

Sub Formatieren()
    FormatiereSpalte "A", 2
End Sub
Function FormatiereSpalte(Spalte As String, StartZeile As Double)
    Dim LetzteZeile As Double
    Dim LetztesFormat As Double
    Dim Counter1 As Double
    Dim Counter2 As Double
    Dim Zelle As String
    LetzteZeile = WorksheetFunction.CountA(ActiveSheet.Range(Spalte & ":" & Spalte))
    LetztesFormat = WorksheetFunction.CountA(Sheets("Formatvorlage").Range(Spalte & ":" & Spalte))
    For Counter1 = StartZeile To LetzteZeile + StartZeile
        Zelle = ActiveSheet.Range(Spalte & Counter1).Value
        'ActiveSheet.Range(Spalte & Counter1).ClearFormats
        Counter2 = 0
        Do
            Counter2 = Counter2 + 1
            If Zelle Like Sheets("Formatvorlage").Range(Spalte & Counter2).Value Then Exit Do
        Loop Until Counter2 > LetztesFormat
        Sheets("Formatvorlage").Range(Spalte & Counter2).Copy
        ActiveSheet.Range(Spalte & Counter1).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Next Counter1
End Function

Bereits jetzt fällt auf, das es nicht das Schnellste sein wird. Welche Oprimierungen sind noch möglich?

Danke

Piecha

 

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
Rot Makro zur Formatierung beschleunigen
 24.01.2018 15:16:22 Piecha
NotSolved
24.01.2018 15:35:50 Gast66062
NotSolved
24.01.2018 15:53:47 Gast77965
NotSolved
24.01.2018 15:55:48 Piecha
NotSolved
24.01.2018 16:06:42 Gast25199
NotSolved
29.01.2018 15:39:01 Piecha
NotSolved
29.01.2018 16:06:13 Gast24838
NotSolved
30.01.2018 15:54:38 Piecha
NotSolved
31.01.2018 07:24:18 Gast51232
NotSolved