ich bräuchte Hilfe beim Lösen eines Makros.
Hier mein bisheriges Makro:
------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Const MyRng = "C2:C450"
' Dieser Bereich wird auf Änderungen geprüft
Dim Produkt As String
Produkt = Sheets("Produktliste").Range("A3:A50")
' In diesem Zellbereich befinden sich die Wörter der Dropdownliste
If Intersect(Target, Me.Range(MyRng)) Is Nothing Then Exit Sub
If IsEmpty(ActiveCell) Or ActiveCell = " " Then
ActiveCell.Offset(0, 1).Select
Selection = ""
End If
If ActiveCell = Produkt Then
ActiveCell.Offset(0, 1).Select
Selection = Format(Now, "dd.mm.yyyy")
End If
End Sub
------------------------------------------------------------------
Was soll passieren?
Wählt ein Mitarbeiter in einer Zelle der Spalte "C" ein Produkt aus einer DropDown-Liste aus, soll in der gleichen Zeile in Spalte "D" das heutige Datum eingetragen werden.
Wird die Zelle dann irgendwann wieder geleert bzw. im DropDown der "leere" Eintrag ausgewählt, soll das Datum aus Spalte "D" (sprich Nachbarzelle) wieder entfernt werden.
Die Liste der Wörter des DropDown-Menüs befinden sich auf einem eigenen Arbeitsplatz.
Ich schaffe es leider nicht die Variable "Produkt" so zu gestalten, dass sie für sämtliche Wörter aus der Wortliste steht.
Alternativ könnte das Makro auch so aufgebaut werden,
IF [Irgendein Text] Then [Datum] If [Zelle leer] Then [Zelle rechts daneben leeren].
Vielen Dank!!!