Alternative für Select gesucht
Frank
ich verwende folgendes Makro zum Sortieren bestimmter Zellen.
Der Code funktioniert soweit, leider führt das Select jedoch in Verbindung mit einem anderen Makro zu Problemen.
Gibt es eine Möglichkeit, diesem Code das Worksheet2 auch anders zuzuweisen, d.h. so dass nur die Berechnung dort ausgeführt wird, ohne dass tatsächlich ein Wechsel zwischen Blatt 7 und Blatt 2 statt findet ?
Zur Info: Das Makro wird von Blatt7 aus gestartet.
Sub HolidaysCleanup()
Application.ScreenUpdating = False
Worksheets(2).Select
Dim rngC As Range, arrTmp, x
For Each rngC In Columns(12).SpecialCells(xlCellTypeConstants)
arrTmp = Split(rngC, ",")
For x = 0 To UBound(arrTmp)
arrTmp(x) = Trim(arrTmp(x))
Next
QuickSortHol arrTmp
rngC = Join(arrTmp, ", ")
Next
Worksheets(7).Select
End Sub
Anzeige