Automatisch " Status" aktualisieren, wenn Datum
01.10.2015 16:49:15
Edgard
nachdem ich fast mein Vorhaben realisiert habe mit sehr viel Google ( bin VBA-Anfänger bin ich auf momentan zwei für mich unlösbare Probleme gestoßen.
Zunächst mein Vorhaben: Ich will anhand eines Abgleichs mit dem heutigen Datum den Status eines Projekts von "Verschoben" auf "warten" und umgekehrt setzen können. Das ganze sowohl beim Einfügen eines Datums in entsprechende Zeile , als auch beim Starten von Excel.
Nun meine Probleme: Die Makros funktionieren fast 100% richtig.
Der Haken ist, wenn ich zb ein Datum eingebe und Enter dücke, übernimmt er denn Status. Wenn ich jetzt noch einmal mit der Maus auf diese Zelle gehe , wird der Status automatisch auf verschoben gesetzt ( unabhängig vom Datum anscheinend).
Das weitaus wichtigere Problem, beim Start soll er das ganze auch machen. Von warten auf verschieben klappt umgekehrt leider nicht ( und der Teil ist eigentlich wesentlich wichtiger)
Nun zu den bisherigen Codes:
Modul:
Sub Status_Setzen()
Dim AktZeile As Integer
For AktZeile = 3 To ActiveWorkbook.Sheets("Priority List").UsedRange.Rows.Count
If ActiveWorkbook.Sheets("Priority List").Cells(AktZeile, 21).Value Innerhalb der Tabelle:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim AktZeile As Integer
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
ActiveSheet.AutoFilter.ApplyFilter 'der Part war für die automatische Filterfunktion fü _
r das Problem unerheblich
Exit Sub
End If
If Not Application.Intersect(Target, Range("T:T")) Is Nothing Then
Call Remark_groß
Exit Sub
End If
If Not Application.Intersect(Target, Range("U:U")) Is Nothing Then
Call Status_Setzen
End If
End Sub
In der Arbeitsmappe:
Private Sub Workbook_Open()
Call Status_Setzen
End Sub
Soweit zu den Codes. Könnt ihr bitte mal einen Blick drauf werfen und mir helfen?
Hoffe habe die Probleme ausreichend geschildert