Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1484to1488
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

SORT - wie sage ich hier was der Key ist?

SORT - wie sage ich hier was der Key ist?
09.04.2016 14:32:15
cH_rI_sI
Hallo,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Doppelt
09.04.2016 14:56:33
Werner

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige