Dynamisch sortieren?

Hallo Leute,
ich habe eine tabelle mit ca. 50 kunden(=50 zeilen).
nun bearbeite ich calls, und wenn diese erledigt sind, gebe ich das heutige datum ein ("strg"+".").
1)jetzt möchte ich, dass die zeile mit dem aktuellsten datum sofort nach "Return" nach ganz unten verschoben wird. ist das realisierbar?
das älteste datum soll folglich ganz oben stehen.
kann mir einer helfen? ich habe leider keinerlei vba kenntnisse.
2)in spalte 1 habe ich eine art erledigt-oder-nicht? eingefügt. wird nun ein "e" in die entsprechende zeile des kunden getippt, verändert sich der hintergrund der zeile von rot auf weiss (bedingte formatierung). ist es evtl. möglich mithilfe der bed. formatierung auch automatisch das heutige datum in die entsprechende spalte beim kunden einzutragen?
danke im voraus!!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Vic,
sorry, hat etwas gedauert.
Teste die Sache erstmal an einer Kopie !!!!
Wegen der Sortierung solltest Du in Spalte A e für erledigt und z.B. o für offen eintragen.
Bedingte Formatierung auf o ( rote Zelle und wenn du rote Schrift anwählst, ist das o auch nicht zu sehen)
So...geht los ;-))
2 Möglichkeiten
1.
-rechte Maustaste auf den betreffenden Tabellenreiter links unten (z.B. Tabelle1)
-Code anzeigen
-untenstehenden Code ins große, weiße rechte Code-Fenster kopieren
2.
-Alt+F11
-links oben im Projektexplorer deine Mappe aufklicken und das betreffende Blatt aufklicken
- Code ins große, weiße rechte Code-Fenster kopieren
Zurück ins Blatt, speichern...fertich.


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim RaBereich As Range
'Ausstiegskriterien
If Target.Row < 2 Or Target.Count > 1 Or Target.Column > 1 Then Exit Sub
If Target.Value <> "e" Then Exit Sub
'Gültigkeitsbereich
Set RaBereich = Range("A2:A50")
'unerwünschte Aktionen ausschließen
Application.EnableEvents = False
'Datum nach Spalte E
If Not Intersect(Target, RaBereich) Is Nothing Then
Target.Offset(0, 4) = Date
End If
Application.EnableEvents = True
Set RaBereich = Nothing
'sortieren
Range("A1:I50").Sort Key1:=Range("A2"), Order1:=xlDescending, Key2:=Range( _
"E2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
End Sub

Es handelt sich um eine Ereignisprozedur die nur in "ihrem" Blatt ausgelöst werden kann.
Auslöser in diesem Fall, ist ein Eingabeprozess.
Der Code steigt aus, wenn
- Eingabe in erster Zeile oder nicht in erster Spalte
- mehr als eine Zelle aktiviert ist
- kein e eingetragen wird
Aktion:
Datumseintrag in gleicher Zeile aber 4 Spalten weiter (Spalte E)
Sortiert "e" Einträge nach unten (neuestes Tagesdatum in letzte Zeile(n) )
Na...hoffentlich klappts ;-))
Kleiner Tipp, ob der Chef nen vba-Kurs zahlt oder nicht, nimm dir die Excel-CD von Herber.
Bin kein Werbeträger oder so. Ich finde diese CD deckt einiges ab.
Gruß
Harald

Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim RaBereich As Range Dim d As Range Dim i As Integer Call Farbe 'Ausstiegskriterien If Target.Row < 2 Or Target.Count > 1 Or Target.Column > 1 Then Exit Sub If Target.Value <> "e" Then Exit Sub End If 'Gültigkeitsbereich Set RaBereich = Range("A2:A50") 'unerwünschte Aktionen ausschließen Application.EnableEvents = False 'Datum nach Spalte E If Not Intersect(Target, RaBereich) Is Nothing Then Target.Offset(0, 4) = Date End If Application.EnableEvents = True Set RaBereich = Nothing Call Farbe 'sortieren Range("A1:I50").Sort Key1:=Range("A2"), Order1:=xlDescending, Key2:=Range( _ "E2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _ :=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _ DataOption2:=xlSortNormal End Sub

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread