folgendes: Ich habe eine Liste in der man über einen Button eine neue Aufgabe erstellen kann, es wird die Zeile 12 (welche formatiert und schreibgeschützt ist) entsperrt, kopiert, gesperrt und eine neue Zeile wird erzeugt, in der man seine Eingaben machen kann.
Spalte A beinhaltet dabei den Status der Aufgabe: "in Arbeit,startbereit,unterbrochen,beendet"
Ich möchte jetzt einen weiter Button haben der das Makro ausführt, dass alle Aufgaben nach oben genannten Statuten sortiert werden.
Ich habe 2 verschiedene Codes ausprobiert :
Sub Liste_sortieren()
' Liste_sortieren Makro
' Sortieren der Eintr?ge in der Aufgabenliste nach festgelegten Kriterien ...
' Tastenkombination: Strg+l
Application.ScreenUpdating = False
Dim strSpalte As String
Dim strBereich As String
'Parameter
strBereich = "A13:Z700"
strSpalte = "A"
'Sortieren
With Aufgabenvorrat
Range(strBereich).Sort _
Key1:=Range(strSpalte & "13"), OrderCustom1:="in Arbeit,startbereit,unterbrochen, _
beendet" _
Order1:=xlAscending, _
Header:=xlYes, MatchCase:=True
End With
Range("A10").Select
Application.ScreenUpdating = True
End Sub
Und noch diesen:Sub Liste_sortieren()
' Liste_sortieren Makro
' Sortieren der Eintr?ge in der Aufgabenliste nach festgelegten Kriterien ...
' Tastenkombination: Strg+l
Application.ScreenUpdating = False
Rows("13:700").Select
ActiveWorkbook.Worksheets("Aufgabenvorrat").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Aufgabenvorrat").Sort.SortFields.Add Key:=Range( _
"A13:A700"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"in Arbeit,startbereit,unterbrochen,beendet", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Aufgabenvorrat").Sort.SortFields.Add Key:=Range( _
"B13:B700"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Aufgabenvorrat").Sort.SortFields.Add Key:=Range( _
"C13:C700"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Aufgabenvorrat").Sort.SortFields.Add Key:=Range( _
"D13:D700"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Aufgabenvorrat").Sort
.SetRange Range("A13:Z700")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A10").Select
Application.ScreenUpdating = True
End Sub
Beim ersten kommt Synthaxfehler Fehler beim Komplileren:
Beim zweiten kommt Laufzeitfehler 1004; Anwendungs- oder objektbezogener Fehler und .Apply wird markiert.
Ich kann mir da leider mit meinem Grundwissen nicht mehr weiterhelfen. Falls mir jemand den Fehler nennen kann, bzw was ich verbesssern kann, würde mich das mega freuen.
Oder Hinweise auf einen neuen Code der die Grundfunktion erfüllt.
Danke Schön^^
LG Sascha