|
Hallo Zusammen
Ich bin VBA Neuling und nooch am lernen und habe folgendes Problem.
Ausgangslage:
In einer Tabelle möchte ich, wenn ich in der aktiven Zelle der Spalte 8 einen bestimmten Wert ("erledigt") eingebe, dass in der darauffolgenden Spalte Spalte 9 das heutige Datum eingetragen wird.
Das Ganze habe ich mir anhand eines bestehenden Codes auch so programmiert:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 Then
For Each Target In Intersect(Target, Columns(8))
If Target <> "" Then
Application.EnableEvents = False
If Target = "erledigt" Then Target.Offset(0, 1) = Date
Application.EnableEvents = True
End If
Next Target
End If
End Sub
So weit so gut....
Problemstellung:
Nun möchte ich Zusätzlich aber unabhängig von Spalte 8 den Code so erweitern, dass auch wenn in Spalte 2 ein bestimmter Wert (hier gleich mehrere gewünschte Werte: "Wert1" "Wert2" "Wert3") eingetragen wird, dass Datum in der Spalte 4 eingetragen wird.
Ich habe den Code bereits auf verschiedenste Arten und Weise versucht zu kopieren oder mehrere Befehle als Target einzufügen und bekomme es einfach nicht hin. Dazu fehlt mir leider "noch" das Wissen.
Der Einfachheit halber nochmals zusammengefasst:
Spalte 8 eingetragener Wert "erledigt" = Spalte 9 heutiges Datum
unabhängig von Spalte 8
Spalte 2 eingetragener Wert "Wert1" oder "Wert2" oder "Wert3"
Den obenstehenden Code habe ich nicht als Modul eingefügt sonder in Tabelle 1 VBA integriert.
Ich danke euch für eure Hilfe!
Liebe Grüsse
Jimmy
|