Makro: SortSplit
13.07.2004 11:11:53
Achim
vor langer Zeit habe ich bei Herber folgendes Makro gefunden und finde es für meine Arbeit überaus hilfreich. Es splittet innerhalb einer Mappe eine Tabelle in mehrere Teiltabellen auf.
Herber Makro 174502
Sub SortSplit()
Dim wks As Worksheet
Dim iRow As Integer, iRowT As Integer
Application.ScreenUpdating = False
Set wks = ActiveSheet
Range("A1").Sort key1:=Range("A2"), order1:=xlAscending, header:=xlYes
iRow = 2
Do Until IsEmpty(wks.Cells(iRow, 1))
If Left(wks.Cells(iRow, 1), 15) <> Left(wks.Cells(iRow - 1, 1), 15) Then
Worksheets.Add after:=Worksheets(Worksheets.Count)
Rows(1).Value = wks.Rows(1).Value
Rows(1).Font.Bold = True
Columns(1).Font.Bold = True
Columns("A:U").AutoFit
ActiveSheet.Name = Left(wks.Cells(iRow, 1), 15)
iRowT = 1
End If
iRowT = iRowT + 1
Rows(iRowT).Value = wks.Rows(iRow).Value
iRow = iRow + 1
Loop
Worksheets(1).Select
Application.ScreenUpdating = True
End Sub
Für mich persönlich hat es hat es zwei Nachteile.
1. Die aufgesplitteten Tabellenblätter haben nicht mehr die Formatierungen des ursprünglichen Tabellblattes
2. Es wird nur nach dem Inhalt der ersten Spalte aufgesplittet.
Kann das jemand ändern ?
1. Die Zellformatierungen sollen beim Splitten übernommen werden
2. Möglichkeit zur Auswahl der Spalte, nach der die Daten gesplittet werden sollen
Vielen Dank
Achim Baumann