Collapse column

Autor Thema: Office 2010: Makro zum Sortieren der Tabelle / Automatische Sortierung bei Eingabe?  (Gelesen 633 mal)

Offline Eva0207

  • Newbie
  • *
  • Beiträge: 2
    • Profil anzeigen
  • Office-KnowHow: Anfänger
  • VBA-KnowHow- : Ohne
  • Version [Office] : Office 2010
Hallo zusammen,

bin völliger Anfänger im Zusammenhang mit Makros und Excel-Programmierung, deshalb hoffe ich, dass ihr mir helfen könnt   ;D

Ich hab mir vor einiger Zeit eine To Do Liste erstellt mit Datum bis zur Erledigung in Spalte F.
Jetzt hätte ich gerne eine automatische absteigende Sortierung der Tabelle nach dem Datum, wenn eine neue Eingabe in Spalte F gemacht wird.

Könnt ihr mir bitte weiterhelfen?  ::)

Vielen Dank  ;) :D


Keine Lösung gefunden? Du kannst Dich gerne an unser erfahrenes Experten-Team wenden und Dein Anliegen in Auftrag geben.
>>> Schnell und einfach ein unverbindliches Angebot anfordern. Per E-Mail an anfrage@excel-inside.de oder per Online-Formular
<<<

!!! Wichtige Information
!!! Dieses Forum steht aus technischen Gründen ab dem 11. September 2019 nur noch im Lesemodus zur Verfügung.
Das NEUE Office-Fragen-Forum kannst du aber unter der gewohnten Domain https://office-fragen.de wie gewohnt nutzen.

- Wir freuen uns auf deinen Besuch im neuen Forum.

Offline gmg-cc

  • Hero Member
  • *****
  • Beiträge: 1.321
    • Profil anzeigen
    • Meine Webseite
  • Office-KnowHow: Fortgeschritten
  • VBA-KnowHow- : Gut
  • Version [Office] : Office 2016
Antw:Office 2010: Makro zum Sortieren der Tabelle / Automatische Sortierung bei Eingabe?
« Antwort #1 am: Oktober 24, 2017, 12:12:48 Nachmittag »
Moin Eva,
beginne doch einfach einmal damit, den Vorgang per Makro-Rekorder aufzuzeichnen. Dann hst du schon einmal eine gute Basis, welche wir dann gemeinsam mit dir ausbauen können.
Gruß
Günther

Offline Eva0207

  • Newbie
  • *
  • Beiträge: 2
    • Profil anzeigen
  • Office-KnowHow: Anfänger
  • VBA-KnowHow- : Ohne
  • Version [Office] : Office 2010
Antw:Office 2010: Makro zum Sortieren der Tabelle / Automatische Sortierung bei Eingabe?
« Antwort #2 am: Oktober 24, 2017, 14:42:09 Nachmittag »
Hab ich bereits gemacht:

'
    ActiveWorkbook.Worksheets("ToDoListe").ListObjects("Tabelle1").Sort.SortFields. _
        Clear
    ActiveWorkbook.Worksheets("ToDoListe").ListObjects("Tabelle1").Sort.SortFields. _
        Add Key:=Range("Tabelle1[[#All],[Bis wann]]"), SortOn:=xlSortOnValues, _
        Order:=xlDescending, DataOption:=xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("ToDoListe").ListObjects("Tabelle1").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub



Wenn du dich noch intensiver mit Excel beschäftigen möchtest, dann empfiehlt sich ein Online-Kurs,
in dem du sehr viel über Excel erfährst und das gelernte umgehend in der Praxis anwenden kannst.