|
Hallo VBA Forum,
Ich versuche seid einigen Tagen schon für eine Kollegin ein Excel-Dokument zur Führungsanmeldung für ein Museum zu erstellen, soweit war das kein Problem ein Dokument erstellt und alles vorbereitet, alles Formatiert und Fertig.
Dafür nutze ich MicrosoftOffice10
Doch ich stehe nun vor folgendem Problem:
Ich habe einen Datensatz der Von A bis J Folgendes enthält Datum, Uhrzeit, Dauer, Einrichtung,Teilnehmerzahl,Vorkenntnisse,Ansprechpartner,Telefonnummer, Email, Zuständiger SB.
Da sich bei den Voranmeldungen immer etwas ändern kann möchte ich das wenn man eine Führung neueinträgt zB
21.02.14
22.02.14
19.02.14
er sofort, oder erst wenn das letzte Feld also J ausgefüllt ist. Die Komplette Zeile nach oben an die richtige Position sortieret.
Der Zeitpunkt ist sogar relativ egal. Hauptsache es wird sortiert um es übersichtlicher zu machen.
Die gesammte Arbeitsmappe besteht aus 12Blättern die für je einen Monat des Jahres stehen.
Also wäre es von nöten, das diese Sortierung nicht nur bei einem Arbeitsblatt funktioniert sondern bei allen.
Von einer Recht unhöflichen Community einer Website, dessen Name gutefrage.net ich jetzt nicht nennen möchte, habe ich folgenden Quelltext
1 2 3 4 5 6 7 8 9 10 11 12 13 | ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range("A2:A5") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range("B2:B5") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Tabelle1").Sort
.SetRange Range("A1:C5")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
|
Er funktioniert nicht, ist nicht kommentiert und Einsteiger unfreundlich.
Ich hoffe, dass ihr mir helfen könnt.
Wenn noch Fragen offen sein sollten, beantworte ich diese gerne.
|