AW: Aufteilen und leere Zeilen löschen
27.06.2018 22:12:23
Daniel
HI
die Anzahl der Kategoriespalten geht hier in den Code ein:
Sub test()
Dim s As Long
With Sheets("Tabelle1")
For s = 3 To .Cells(2, .Columns.Count).End(xlToLeft).Column Step 2
Intersect(Union(.Columns(1).Resize(, 2), .Columns(s).Resize(, 2)), _
.Columns(s).Resize(, 2).SpecialCells(xlCellTypeConstants).EntireRow).Copy
Sheets((s + 1) / 2).Cells(1, 1).PasteSpecial xlPasteAll
Next
End With
End Sub
die Anzahl der Länderspalten geht hier in den Code ein:
Sub test()
Dim s As Long
With Sheets("Tabelle1")
For s = 3 To .Cells(2, .Columns.Count).End(xlToLeft).Column Step 2
Intersect(Union(.Columns(1).Resize(, 2), .Columns(s).Resize(, 2)), _
.Columns(s).Resize(, 2).SpecialCells(xlCellTypeConstants).EntireRow). _
Copy
Sheets((s + 1) / 2).Cells(1, 1).PasteSpecial xlPasteAll
Next
End With
End Sub
an diese stelle (s + 1) / 2) so umrechnen, dass die entsprechende Blattnummer berechnet wird.
die generelle Formel wäre:
(s - Schleifen-Startwert) / Step der Schleife + Indexnummer des ersten Blattes
ich habs im Codebeispiel etwas anders gerechnet.
Gruß Daniel