Excel VBA 2003 - autopopulating Daten basierend auf Schlüsselwörtern - Excel, VBA, Excel-VBA

Guten Tag,

Ich bin neu in diesem Forum und auch in VBA, kenne aber die Grundlagen. Ich habe überall gesucht, finde aber nicht den richtigen Code.

Ich habe im Grunde eine Tabelle, die sich mit meinen Jobs befasst und sie hat "Offen" und "Geschlossen". Wenn diese ausgewählt werden, müssen Datumsangaben eingegeben werden.

Column B = "Open" & "Closed" - this is done in a list format
Column D = Date opened which needs to relate to "Open" from Column B
Column J - Date closed which needs to relate to "Closed" from Column B

Dies muss für Alle Spalten in B, D und J zutreffen.

Ich habe folgenden Code verwendet:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim A As Range, D As Range, Inte As Range, r As Range
Set A = Range("B:B")
Set Inte = Intersect(A, Target)
If Inte Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each r In Inte
r.Offset(0, 2).Value = Date
Next r
Application.EnableEvents = True

End Sub

Dies fügt nur ein Datum in die Spalte D ein und wird durch die Eingabe von etwas in Spalte B ausgelöst.

Vielen Dank,

Jonny

Antworten:

Setze die Formel = IF (B2 = "Open", "Date", "") in die Zelleb2 und bis zum Ende ziehen. setze Formel = IF (B3 = "Closed", TODAY (), "") in Zelle j2 und ziehe bis zum Ende. Ihre Aussage "Spalte B sagt Öffnen, dann brauche ich ein Datum in Spalte D". Welches Datum erwähnen Sie hier? Lassen Sie mich wissen, ob Sie das brauchen