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.
(23.01.2016, 13:24)WillWissen schrieb: [ -> ]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.
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.
[
attachment=3954]
(23.01.2016, 17:44)WillWissen schrieb: [ -> ]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
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
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 ...
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
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.
Hi Roland,
(25.01.2016, 18:05)helpless schrieb: [ -> ]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?
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.