AW: Blöcke sortieren - Ergänzung
22.08.2009 14:18:06
fcs
Hallo Sankt,
außer der Änderung des Bezugs für das Suchkriterium für WVERWEIS von absolut in relativ in den Formeln in Spalte A muss du auch im Makro noch eine Korrektur machen.
LRow muss die die Zeile mit dem 1. Vereinsnamen sein und eine der Delete-Aktionen ist überflüssig.
Bei der Sort-Methode ist es übersichtlicher, wenn man die Parameter mit angibt, statt mit Kommata optionale Parameter zu überspringen.
Als kleines Goody hab ich dir auch noch Abwärtssortier-Öglichkeit in die Datei eingebaut.
Gruß
Franz
https://www.herber.de/bbs/user/63999.xlsm
Sub SortBereiche()
Dim LCount As Long, LRow As Long, A As Long
Dim Bereich As Range
Dim iCalc As Integer
With Application
iCalc = .Calculation
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
LRow = Application.Match("Name", Columns(1), 0) - 1 'geändert
With Range(Cells(LRow, 10), Cells(Rows.Count, 1).End(xlUp).Offset(4, 9))
.FormulaR1C1 = _
"=IF(OR(R[-1]C1=""Ergebnis"",COUNTIF(R[-4]C1:RC1,""Schnitt"")>0)," _
& "R[-1]C,INDEX(RC1:R10000C9,MATCH(""Ergebnis"",RC1:R10000C1,0),9))" _
'Zeile nur durch &-Aktion auf 2 Codezeilen verteilt.
Range(Cells(LRow, 1), Cells(Rows.Count, 10).End(xlUp)).Sort _
Key1:=Cells(LRow, 10), Order1:=xlAscending, Header:=xlNo
' .Cells(1, 1).Offset(0, 1).EntireColumn.Delete 'geändert
.EntireColumn.Delete
End With
.ScreenUpdating = True
.EnableEvents = True
.Calculation = iCalc
End With
End Sub