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.
Hi Frank,
(27.08.2014, 12:22)Frank schrieb: [ -> ]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
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.
Hi Frank,
(27.08.2014, 13:45)Frank schrieb: [ -> ]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.
[
attachment=487]
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?
Hallo Frank,
=WENN(A38="";"";A38*$B$36)
Gruß Willy
Vielen Dank Ralf und vielen Dank Willy für eure Hilfe.
Es funktioniert so wie ich es will.