nun habe ich mal versucht, tatsächlich ein Makro selbst zu erstellen (auch mithilfe des Makrorecorders), allerdings verzweifel ich gerade an einer bestimmten Aufgabe. Aber von Anfang:
Die zu sortierende Tabelle ist bereits als Tabelle2 definiert und befindet sich in der Range A3:K63, wobei in der Zeile 3 die Überschriften stehen.
Da die Tabelle schreibgeschützt sein soll kann das Sortieren in meinen Augen nur mithilfe eines Makros geschehen (korrigiert mich, wenn ich falsch liege), nach dem Motto: Entsperren - Sortieren - Sperren.
Nun soll über ein Dropdownfeld ausgewählt werden, nach welcher Spalte sortiert wird, und über ein Optionsfeld, ob auf- oder absteigend. Dank der Zellverknüpfung habe ich den "Output" momentan in P5 (Spaltennummer) bzw. Q5 (Aufsteigend oder absteigend) verknüpft. In Zelle P6 habe ich mit einer Index-Formel aus der Spaltennummer die Überschrift gezogen, in Q6 steht die Formel WENN(Q5=WAHR;"xlAscending";"xlDescending").
Wie bekomme ich den Zelleninhalt in das folgende Makro:
Sub Schaltfläche8_Klicken()
' Schaltfläche8_Klicken Makro
' Sortieren
Tabelle2.Unprotect
Tabelle2.ListObjects("Tabelle2").Sort.SortFields.Clear
Tabelle2.ListObjects("Tabelle2").Sort.SortFields. _
Add Key:=Range("Tabelle2[[#All],[Startplatz]]"), SortOn:=xlSortOnValues, _
Order:=xlDescending, DataOption:=xlSortNormal
With Tabelle2.ListObjects("Tabelle2").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Tabelle2.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Eine weitere Frage wird sich mir danach noch stellen: Wie bekomme ich Schutz aufheben & schützen hin, wenn ich ein Passwort verwende. Das Passwort sollte möglichst nicht in Reinform im Makro auftauchen.
Danke und Grüße
Martin