Inhalt von Zellen löschen wenn Text in Zelle
09.07.2015 09:28:41
Zellen
ich hoffe hier kann mir jemand weiter helfen.
Ich bearbeite gerade eine Liste in der Leihprodukte gepflegt werden. Die zugehörigen Angaben zur aktuellen Leihgabe werden in dieser Liste gepflegt.
Wenn nun ein Vorgang abgeschlossen ist soll das entsprechende Produkt zwar nicht aus der Liste verschwinden (Zellen ab A2:E2000) aber ab E4:V2000 soll der jeweilige Inhalt des Zeilenbereichs automatisch gelöscht werden sobald zum Vorgang in Spalte U "abgeschlossen" eingetragen wird.
Bisher habe ich das hier, wofür ich eine Hilfsspalte erstellt habe die bei "abgeschlossen" von 1 auf "" springt (aber da löscht es mit den gesamten Inhalt):
Private Sub Worksheet_Change(ByVal Ursprung As Range)
Dim lngDelRow As Long
Dim lngDelColumn As Long
lngDelRow = Ursprung.Row
lngDelColumn = Ursprung.Column
If lngDelColumn = 21 Then
If IsEmpty(Ursprung.Value) Then
Sheets("Gesamt_neu").Cells(lngDelRow, 1) = ""
End If
End If
End Sub
Kann mir da jemand weiter helfen?
Vorab schon mal vielen vielen Dank
Lyn
Anzeige