Office: VBA Wenn Wert nicht vorhanden dann ...

Hallo,

ich habe das folgende Problem:

Ich habe eine Tabelle erstellt, in welcher ich in der Spalte C mehrere Werte aus einer Dropdown Liste auswählen kann.

Wenn der Wert "IT" in Spalte C ausgewählt wurde, so schreibt mir Excel per VBA automatisch das heutige Datum in Spalte D dazu.

Nun hätte ich aber gerne, dass wenn in Spalte C nicht mehr "IT" steht, sondern ein anderer Wert, dass dann das Datum in der Spalte D automatisch gelöscht wird und die Spalte D wieder leer ist.


Das Makro, wenn der Wert "IT" ist dieht folgendermaßen aus:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 3 Then
If Target.Row > 3 Then
If Target.Value = "IT" Then
Target.Offset(0, 1) = Format(Now, "dd.mm.yyyy")
End If
End If
End If

End Sub

Ich komme nur leider nicht dahinter, wie ich das Makro anpassen muss.

Vielleicht hat ja jemand die rettende Idee für mich?

Vielen Dank im Voraus!

:)

 

Code:

 

Hallo,

vielen Dank.

Es funktioniert einfach perfekt.

 

Eine letzte Frage hat sich mir noch ergeben:

Ich würde gerne erreichen, dass wenn ich in den Zellen A20 bis A25 den Wert lösche, dass dann automatisch der dazu gehörende Wert in den Zellen C20 bis C25 (welcher, wie oben beschrieben per Dropdown gewählt wird) ebenfalls entfernt wird.

Ist das auch irgendwie möglich?

Vielen Dank im Voraus für eure Mithilfe

 

Code:

 

Es funktioniert wieder perfekt.

Vielen vielen Dank.

Jedoch habe ich noch ein Problem, welches ich bisher gar nicht auf dem Schirm hatte:

Durch die zuvor eingegebenen Formeln wird jetzt, wenn in Zelle B das Wort "IT" nicht mehr vorkommt der Wert in Zelle D ja automatisch gelöscht.

Nun hätte ich aber gerne, dass wenn die Zellen A20 bis A25 einen Wert enthalten, sprich sie nicht leer sind, dass dann in den Zellen D20 bis D25 das Wort "Leihgerät" angezeigt wird.

Ich bin mir sicher du hast eine entsprechende Lösung parat *Smilie

Vielen Dank im Voraus!

 

Ich hab es schon fast geschafft.

Allerdings schreibt es mir immer in jeder 3. Spalte das Wort Leihgerät hinein und nicht nur in der Spalte A

If Range("A20").Value "" Then
Target.Offset(0, 3) = "Leihgerät"

 

Ändere
Code:

in
Code:

Und ist das nun gewünscht? Wenn ja, ist ja alles gut. Falls nein, schreibe ganz am Anfang des gesamten Codes die Zeile
Code:

und am Codeende das gleiche aber mit = True

Vermutlich. Aber ich bin kein Freund von Salamitaktik, soll heißen, ich mag nicht deine Schwierigkeiten scheibchenweise präsentiert bekommen und mich immer wieder neu reindenken müssen. Überlege dir bitte also künftig vorher was wann wo passieren soll und schreib das dann gesammelt auf.

 

Hallo,

es funktioniert leider nicht ganz.

Das mit "Leihgerät" funktioniert einwandfrei. Dafür schon mal ein Dankeschön, wenn ich aber per Dropdown etwas auswähle, löscht es das "Leihgerät" wieder. Hier einmal der Code

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

If Target.Column = 3 And Target.Row > 3 Then
If Target.Value = "IT" Then
Target.Offset(0, 1) = Format(Now, "dd.mm.yyyy")
Else
Target.Offset(0, 1).ClearContents
End If
End If

If Not Application.Intersect(Target, Range("A20:A25")) Is Nothing Then
If Target = "" Then
Target.Offset(0, 2).ClearContents
Else
Target.Offset(0, 3) = "Leihgerät"
End If
End If
Application.EnableEvents = True

End Sub

 

Hallo,

Klar - Deine Change-Prozedur beinhaltet 2 unterschiedliche Ereignisse.

Bei dem einen gibst Du in Sp A etwas ein, worauf "Leihgerät" in Sp D geschrieben wird.
Beim anderen erfolgt eine Dateneingabe in Sp C, womit der Löschvorgang in Sp D ausgelöst wird.

Wie beide Ereignisse zusammenhängen, erschließt sich dem Außenstehenden nicht.

Und warum Du Berni's strukturierten Code in einen unstrukturierten und damit schlechter lesbaren verwandelst, ist mir auch ein Rätsel.

Gruß
Aloys

 

Wie muss ich den Code denn ändern, damit es:

- Wenn man in A20 einen Wert eingibt nach wie vor "Leihgerät" in Spalte D schreibt
- Wenn in C20 ein Wert eingegeben wird, es den Wert in Spalte D20 nicht mehr löscht.
- Wenn der Wert aus Zelle A20 gelöscht wird, soll es den Inhalt der Zellen C20 & D20 ebenfalls löschen

Nur in den Zellen A4 bis A19 soll es, wenn in Spalte C der Wert "IT" gewählt wird das Datum in Spalte D schreiben und es wieder löschen, wenn in Spalte C ein anderer Wert gewählt wird.

Vielen Dank für die Unterstützung!

 

Hallo,

mein Vorschlag:
Code:

Im übrigen verweise ich auf den letzten Satz in Berni's Beitrag #8.

Gruß
Aloys