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
Dieser Code Verteilt mir die Grunddaten der Spalten A bis D und jeweils die Spalte 10 bis 22 in ein eigenes Sheet und
benennt es nach dem Header der jeweiligen Spalte 10-22. Also 12 Sheets
Nun steht aber in Spalte 23 ein Kriterium
Und dieser Code soll nun wenn in Spalte 23 in einer Zeile A oder B steht genauso funktionierern wie bisher, ALSO 12 Sheets
und wenn in Spalte 23 C steht dann soll das selbe Makro laufen aber nur die Spalten 19 bis 22 in neue Sheets schreiben und an den
Tabellen Namen +C daranhängen.
Gruß
Matthias