Hilfe zum Code
02.05.2007 21:23:40
Olaf
ich bin blutiger Anfänger in VBA. Also habe ich ein wenig im Archiv gesucht und ein passendes Script gefunden.
Nun habe ich folgendes Problem, das Script orientiert scih an Spalte A, ich hätte gerne Spalte D ausgewählt. Habe sebst schon ein wenig pobiert aber keine Lösung gefunden. Hier das Script
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), 1) Left(wks.Cells(iRow - 1, 1), 1) Then
Worksheets.Add after:=Worksheets(Worksheets.Count)
Rows(1).Value = wks.Rows(1).Value
Rows(1).Font.Bold = True
Columns(1).Font.Bold = True
ActiveSheet.Name = Left(wks.Cells(iRow, 1), 1)
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
Kann mir jemand helfen?
Vielen Dank!
Grüße
Olaf