|
Nochmal mein Code aber andere Herangehensweise!!!!!!!!!!!!!!!!!!!!!!
Sub Verteile()
Dim i As Integer
Application.ScreenUpdating = False
With Tabelle1
For i = 10 To 22
Worksheets.Add After:=Sheets(Sheets.Count)
.UsedRange.Range("A:D").Copy ActiveSheet.Cells(1)
.UsedRange.Columns(i).Copy ActiveSheet.Cells(1, 5)
ActiveSheet.Name = Cells(1, 5)
Next
End With
End Sub
Wie schon im ersten Posting erwähnt spielr dieser CODE die DATEN von den SPALTEN A:D + der Spalte 10-22 jeweils in ein einzelenes Sheet,
Nun habe ich es anders versucht nämlich den Filter zu setzten, nur das funktioniert auch nicht richtig.
NUN solld das Makro einen Filter setzen Spalte 23 NACH Kriterium A filtern und die wie gehabt die 12 Sheets machen dann soll der Filter auf C gesetzt werden und nun die Spalten 19-22 in eigene Sheets spielen und and Sheetsname soll das Filter Kriterium angehängt werden (Spaltennme + C)
Also insgesamt 16 Sheets.
Gruß
Matthias
|