Hallo,
Ich geregelt die Probleme, die Sie fanden. Der folgende Code sollte für Sie jetzt viel besser arbeiten:
VorsplitVersion2 ()
Schwaches lastOrder, inkooporder als Schnur
Schwaches rowCount als ganze Zahl
lastrow = [b65536]. Ende (xlUp). Reihe
rowCount = 2
Spalten („A: S“). Auserwählt
ActiveWorkbook.Worksheets („Sheet1“). Sort.SortFields.Clear
ActiveWorkbook.Worksheets („Sheet1“). Sort.SortFields.Add Schlüssel: =Range („C2: C34“) _
, SortOn: =xlSortOnValues, Auftrag: =xlAscending, DataOption: =xlSortNormal
Mit ActiveWorkbook.Worksheets („Sheet1“). Art
.SetRange Strecke („A1: S34“)
. Überschrift = xlYes
.MatchCase = falsch
. Lagebestimmung = xlTopToBottom
.SortMethod = xlPinYin
. Zutreffen
ActiveSheet.Cells (1, 1).Select
Mit beenden
lastOrder = 0
Für i = 2 zum lastrow
inkooporder = Blätter („Sheet1“). Zellen (i, 3)
Wenn nicht inkooporder = lastOrder dann
Worksheets.Add (nachher: =Worksheets (1)). Name = inkooporder
Blätter („Sheet1“). Auserwählt
Cells.Select
Selection.Copy
Blätter (inkooporder). Auserwählt
Cells.Select
Selection.PasteSpecial Paste: =xlPasteFormats, Betrieb: =xlNone, _
SkipBlanks: =False, umstellen n: =False
Strecke („A1“). Auserwählt
Für x = 1 bis 19
Blätter (inkooporder). Zellen (1, x) = Blätter („Sheet1“). Zellen (1, x)
Folgendes x
rowCount = 2
Beenden wenn
Für x = 1 bis 19
Blätter (inkooporder). Zellen (rowCount, x) = Blätter („Sheet1“). Zellen (i, x)
Folgendes x
rowCount = rowCount + 1
lastOrder = inkooporder
Zunächst I
Blätter („Sheet1“). Auserwählt
Strecke („A1“). Auserwählt
Enden-Unterseeboot