Hyperlink-Inhaltsverzeichnis sortieren

[Frank]

Hallo,
ich bin neu hier und möchte euch gleich mit einem Problem belästigen, vielleicht kann mir jemand helfen?
Ich habe in einer Excel-Tabelle ein Hyperlink-Inhaltsverzeichnis gemacht, nun möchte ich das Inhaltsverzeichnis sortieren nach den Begriffen die es anzeigt, es sortiert mir aber immer nach dem Zellbezug (B57, B119 usw.), gibt es eine Möglichkeit nach den Begriffen zu sortieren (Blumenkohl, Nudeln usw.).
Datei habe ich mit angehängt.
Wäre super wenn ihr mir helfen könnt.
Danke im voraus.

[Rabe]

Hi Frank,

gibt es eine Möglichkeit nach den Begriffen zu sortieren (Blumenkohl, Nudeln usw.).

wenn Du die Bereiche A5 - D27 von den verbundenen Bereichen befreien kannst, geht es mit diesem Makro, (das ist aber bestimmt noch verbesserungsfähig):

Code:

Option Explicit

Sub Sortiermakro()
'
' Sortiermakro Makro
'

'
    Range("A5:A27").Copy
    Range("E5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("Rind").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Rind").Sort.SortFields.Add Key:=Range("E5:E27"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Rind").Sort
        .SetRange Range("A5:E27")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("E5:E27").ClearContents
    Range("A3").Select
        
End Sub

[Frank]

Vielen Dank für die Hilfe,
aber ich darf die verbunden Bereiche nicht entfernen,
mit dem Makro funktioniert es so nicht, leider,
es löscht mir dann die Begriffe (Blumenkohl, Nudeln usw.).
Trotzdem vielen Dank für deine Mühe.

[Rabe]

Hi Frank,

aber ich darf die verbunden Bereiche nicht entfernen,
mit dem Makro funktioniert es so nicht, leider,
es löscht mir dann die Begriffe (Blumenkohl, Nudeln usw.).

Du sollst sie nicht entfernen, sondern auflösen.

Die Begriffe löscht das Makro nur, wenn Du die Zellverknüpfung relativ und nicht absolut erstellst. Vor dem Posten habe ich es natürlich ausprobiert, es macht schon das, was Du willst.

  Fleisch1_Rabe.xls (Größe: 162 KB / Downloads: 6)

[Frank]

Super, funktioniert richtig gut, da muss ich wohl was missverstanden haben.
Vielen, vielen Dank,
aber ich habe jetzt doch noch eine Frage:
wie lässt sich die Null ausblenden, das man sie in der Sortierfunktion nicht mehr sieht?

[WiK]

Hallo Frank,

=WENN(A38="";"";A38*$B$36)

Gruß Willy

[Frank]

Vielen Dank Ralf und vielen Dank Willy für eure Hilfe.
Es funktioniert so wie ich es will.