SORT - wie sage ich hier was der Key ist?
09.04.2016 14:32:15
cH_rI_sI
ich brauche wie immer Eure Hilfe ;-)
Wie kann ich sagen, dass der Key beim Sortieren der Bereich
Range(Sheets("Zusammenfassung (BL2)").Cells(blockanf, 1), Sheets("Zusammenfassung (BL2)").Cells(blockend, 1))
(also Ende = 1 statt 17) vom zuvor definierten Block ist? Beim Sortieren tut sich nämlich nichts... Ich glaube, dass liegt am fehlenden Key oder täusche ich mich?
Hier der Code:
Sub sortieren()
Dim block As Range
letzte = Sheets("Zusammenfassung (BL2)").Cells(Sheets("Zusammenfassung (BL2)").Rows.Count, _
1).End(xlUp).Row
blockanf = 0
blockend = 0
For i = 1 To letzte
If Cells(i, 1) = "Frage:" Then
blockanf = i
If bloackanf = i Then
blockanf = blockanf
End If
End If
If Cells(i, 1) = "" Or i = letzte Then
blockend = i
If blockend = i And blockanf 0 Then
blockend = blockend
Set block = Range(Sheets("Zusammenfassung (BL2)").Cells(blockanf, 1), Sheets(" _
Zusammenfassung (BL2)").Cells(blockend, 17))
With ActiveWorkbook.Worksheets("Zusammenfassung (BL2)").Sort
.SetRange block
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End If
End If
Next i
End Sub
Wäre nett, wenn sich jemand das ansehen könntet - Danke!Lg,
Chrisi