02.09.2015, 14:23
(Dieser Beitrag wurde zuletzt bearbeitet: 02.09.2015, 16:50 von Rabe.
Bearbeitungsgrund: Code strukturiert dargestellt durch 4. Button von rechts im Beitragsformular
)
Liebe Excel Pro's
Das folgende Makro funktioniert einwandfrei. Einzige Schwachstelle bis jetzt ist die Geschwindigkeit der Ausführung. Gibt es eventuell vielleicht ein Möglichkeit die Geschwindigkeit der For-Each Schlaufe zu verbessern? (In Anbetracht, dass am Ende nicht nur ein Sheet verglichen werden soll.) Benutze Excel 2010, 32bit.
Das Makro vergleicht jede Zelle eines Ranges mit einem anderen Range und kopiert die Formatierungen der gefundenen Zelle zurück zur vergleichenden Zelle.
Lieber Gruss
romanimtv
Das folgende Makro funktioniert einwandfrei. Einzige Schwachstelle bis jetzt ist die Geschwindigkeit der Ausführung. Gibt es eventuell vielleicht ein Möglichkeit die Geschwindigkeit der For-Each Schlaufe zu verbessern? (In Anbetracht, dass am Ende nicht nur ein Sheet verglichen werden soll.) Benutze Excel 2010, 32bit.
Das Makro vergleicht jede Zelle eines Ranges mit einem anderen Range und kopiert die Formatierungen der gefundenen Zelle zurück zur vergleichenden Zelle.
Code:
Sub farbenuebertragen()
Dim rngZelle, rngfound As Range
Application.ScreenUpdating = False
For Each rngZelle In Range("S19:BC85")
If Not IsEmpty(rngZelle) Then
Set rngfound = Worksheets("Config").Range("A2:A100").Find(What:=rngZelle.Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not rngfound Is Nothing Then
rngfound.Copy
rngZelle.PasteSpecial Paste:=xlPasteFormats
End If
End If
Next
Application.ScreenUpdating = True
End SubLieber Gruss
romanimtv
