bestimmte Zeilen schützen und von Sortierung ausnehmen

[WillWissen]

Hallo Roland,

deine hochgeladen Datei enthält kein Makro. Du hast sie als xlsx abgespeichert - da sind Makros futsch. Abspeichern musst du unter xlsm oder xlsb.

[helpless]

Hallo Roland,

deine hochgeladen Datei enthält kein Makro. Du hast sie als xlsx abgespeichert - da sind Makros futsch. Abspeichern musst du unter xlsm oder xlsb.

Hallo Günter,

ich hab die Datei noch einmal als xlsm gespeichert und hoffe, es funktioniert.

[WillWissen]

Hi Roland,

das Aufzeichnen des Codes hat anscheinend nicht geklappt - es ist zumindest kein Makro in deiner Datei. In der angehängten Word-Datei habe ich dir mal eine Anleitung geschrieben, wie das Ganze funktioniert. Probier's einfach nochmal - wir kriegen die Kuh schon noch vom Eis.

Allerdings werde ich dir fachlich bei der Makrolösung nicht behilflich sein können - mir fehlt hierzu selber das Wissen.


  Makro aufzeichnen und mit Datei abspeichern.docx (Größe: 100,74 KB / Downloads: 6)

[helpless]

Hi Roland,

das Aufzeichnen des Codes hat anscheinend nicht geklappt - es ist zumindest kein Makro in deiner Datei. In der angehängten Word-Datei habe ich dir mal eine Anleitung geschrieben, wie das Ganze funktioniert. Probier's einfach nochmal - wir kriegen die Kuh schon noch vom Eis.

Allerdings werde ich dir fachlich bei der Makrolösung nicht behilflich sein können - mir fehlt hierzu selber das Wissen.

Hallo Günter,

danke für die Anleitung. Ich bin wie beschrieben vorgegangen und habe den Text des aufgezeichneten Makro in eine Word-Datei gespeichert, siehe Anlage.

Gruss Roland

[WillWissen]

Hi Roland,

dein Makro stelle ich hier ein, damit die Helfer es sich leichter kopieren können.

So geht das übrigens: klick auf

[
Bild bitte so als Datei hochladen: Klick mich!
]

und füge dort dein Makro ein.

Code:

Sub SortierenundSpeichern()
'
' SortierenundSpeichern Makro
' neu eingefügte Datensätze nach KW und Jahr einsortieren
'

'
   Cells.Select
   ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Clear
   ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range( _
       "E2:E4003"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
       "2014,2015,2016", DataOption:=xlSortNormal
   ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range( _
       "D2:D4003"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
       "Jan,Feb,Mrz,Apr,Mai,Jun,Jul,Aug,Sep,Okt,Nov,Dez", DataOption:=xlSortNormal
   ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range( _
       "B2:B4003"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
       xlSortNormal
   With ActiveWorkbook.Worksheets("Tabelle1").Sort
       .SetRange Range("A1:E4003")
       .Header = xlYes
       .MatchCase = False
       .Orientation = xlTopToBottom
       .SortMethod = xlPinYin
       .Apply
   End With
End Sub

[schauan]

Hallo,

ich sehe nach wie vor keinen Grund, warum man nicht nach der Spalte "Datum von" sortieren sollte:

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D	E
1	KW	Datum_Von	Datum_Bis	Monat	Jahr
2	1	01.01.2014	01.01.2014	Jan	2014
3	1	01.01.2014	01.01.2014	Jan	2014
4	1	01.01.2014	02.01.2014	Jan	2014
5	1	02.01.2014	02.01.2014	Jan	2014
6	1	02.01.2014		Jan	2014
7	1	02.01.2014		Jan	2014
8	1	02.01.2014	04.01.2014	Jan	2014
9	1	03.01.2014	03.01.2014	Jan	2014
10	1	03.01.2014		Jan	2014
11	1	03.01.2014	04.01.2014	Jan	2014
12	1	03.01.2014	06.01.2014	Jan	2014
13	2	03.01.2014	04.01.2014	Jan	2014
14	1	04.01.2014	04.01.2014	Jan	2014
15	1	05.01.2014	11.01.2014	Jan	2014
16	2	06.01.2014	06.01.2014	Jan	2014
17	2	06.01.2014	06.01.2014	Jan	2014
18	2	06.01.2014	06.01.2014	Jan	2014
19	2	06.01.2014	07.01.2014	Jan	2014

Diese Tabelle wurde mit Tab2Html (v2.5.0) erstellt. ©Gerd alias Bamberg

Das aufgezeichnete Makro für die Sortierung eines eingegrenzten Bereiches sieht z.B. so aus:

Code:

Sub Makro1()
'
' Makro1 Makro
'

'
    Range("A1:E17").Select
    ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range("B2:B17" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Tabelle1").Sort
        .SetRange Range("A1:E17")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Nächster Step wäre die Ermittlung der zu sortierenden Zeilen im Makro ...

[helpless]

Hallo Andre,

vielen Dank für deine Mühe, aber das mit Sortieren in "Datum_von" haut bei mir nicht hin, aber das ist kein Problem. Dein Makro werde ich mal probieren, komme aber erst morgen dazu. Die zu sortieren Zeilen muss ich bei Ranhge ("A1:E17") entsprechend eintragen, wenn ich das richtig verstanden habe ?

Gruss
Roland

[schauan]

Hallo Roland,

ja, die müssen dort eingetragen werden. Man könnte auch versuchen, per Code die entsprechenden Zeilen herauszufinden. Aber die andere Bereichsangabe musst Du auch entsprechend der Zeilen anpassen.

[Rabe]

Hi Roland,

vielen Dank für deine Mühe, aber das mit Sortieren in "Datum_von" haut bei mir nicht hin,

was bedeutet "haut nicht hin"?

Was soll passieren (wissen wir ja eigentlich: "sortieren chronologisch")?
Was passiert tatsächlich? Warum?
Welcher Fehler tritt auf?

[BoskoBiati]

Hallo,

das Sortieren klappt wohl deshalb nicht, weil die Datumswerte zu Hunderten als Text vorliegen und beim Sortieren nicht die richtige Methode ausgewählt wird.