Spalteninhalte auf separate Tabellen verteilen

In LinkedIn stellte ein User kürzlich die Frage, wie er aus einem Übersichtsblatt die Inhalte der einzelnen Spalten jeweils auf ein separates Tabellenblatt verteilen kann und dem Blatt den Namen der jeweiligen Zelle in Zeile 1 geben kann.

Ich habe das über dieses Makro gelöst Sub take_them() Dim i As Long Dim z As Long Dim ziel As String Application.ScreenUpdating = False 'MsgBox Application.CountA(Sheets("master").Rows("1:1")) 'first i add the new sheets and name them For z = 1 To Application.CountA(Sheets("master").Rows("1:1")) Sheets.Add ActiveSheet.Name = Sheets("master").Cells(1, z).Value Next 'then i copy the values into the new sheets For i = 1 To Application.CountA(Sheets("master").Rows("1:1")) ziel = Sheets("master").Cells(1, i).Value Sheets(ziel).Cells.ClearContents Sheets("master").Columns(i).Copy Sheets(ziel).Range("A1") Next 'Back to sheets master Sheets("master").Select Range("A1").Select Application.ScreenUpdating = True End Sub

Nach Ablauf des Makros beinhaltet die Datei zusätzlich zur Ursprungstabelle die einzelnen Tabellenblätter für die Spalten.

 Share on Facebook

Read more http://vba-codeschnipsel.de/spalteninhalte-auf-separate-tabellen-verteilen/