|
Hallo zusammen,
ich habe folgenden VBA Code in Excel 2016
Sub Aufteilen()
Dim Zelle1 As Range
Dim Zelle2 As Range
Dim shQuelle As Worksheet
Set shQuelle = ActiveSheet
With shQuelle.UsedRange
.Sort key1:=.Cells(1, 13), order1:=xlAscending, Header:=xlYes
Set Zelle1 = .Cells(2, 13)
Do Until Zelle1 = ""
Set Zelle2 = Zelle1.EntireColumn.Find(what:=Zelle1.Value, lookat:=xlWhole, _
searchdirection:=xlPrevious)
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = Zelle1.Value
.Rows(1).Copy ActiveSheet.Cells(1, 1)
Range(Zelle1, Zelle2).EntireRow.Copy ActiveSheet.Cells(2, 1)
Set Zelle1 = Zelle2.Offset(1, 0)
Loop
End With
End Sub
Der Code teilt ein Tabellenblatt nach den Kriterien der Spalte M auf. Das funktioniert! Es wird jeweils ein Tabellenblatt erzeugt! wenn ich jedoch die Tabellenblätter lösche und die VBA neu starte, stoppt die VBA bei
.Sort key1:=.Cells(1, 13), order1:=xlAscending, Header:=xlYes
was muss ich hier ändern, damit ich dies immer wieder nutzen kann?
Beste Grüße
Mario
|