Keine Fhelermeldung beim Löschen von Zelleninhalte

Hallo zusammen,
ich wüschne ein gesundes, Neues Jahr in die Runde.
Ich versuche jetzt schon seit 2 Tagen eine Lösung für mein Problem zu finden, schaffe es aber nicht. Folgender Fall:
Wenn in Spalte B ein Wert eingegeben wird, soll in der gleiche Zeile in Spalte A das Datum von heute gesetzt werden wenn die Zelle in Spalte A leer ist.
Das funktioniert soweit.
Allerdings erhalte ich eine Fehlermeldung, wenn ich mehrere Zellen aus Spalte B markiere und den Inhalt über "Entf" lösche. Wie schaffe ich es, die Fehlermeldung zu vermeiden?
If Not Intersect(Target, Range("B3:B22551")) Is Nothing Then
If Target.Offset(0, -1).Value = "" Then Target.Offset(0, -1) = Date
End If
Vielen Dank für die Hilfe
Alexander

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Alexander,

Option Explicit                                     ' Variablendefinition erforderlich
Private Sub Worksheet_Change(ByVal Target As Range)
'* H. Ziplies                                  *
'* 04.01.17                                    *
'* erstellt von HajoZiplies@web.de             *
'* http://Hajo-Excel.de/
Dim RaBereich As Range                          ' Variable für Bereich
Dim RaZelle As Range                            ' Variable für Zelle
Set RaBereich = Range("B3:B22551")              ' Bereich der Wirksamkeit
Set RaBereich = Intersect(RaBereich, Target)
If Not RaBereich Is Nothing Then
'ActiveSheet.Unprotect ("Passwort")
For Each RaZelle In RaBereich
With RaZelle
If .Offset(0, -1) = "" Then .Offset(0, -1) = Date
End With
Next RaZelle
'ActiveSheet.protect ("Passwort")
End If
Set RaBereich = Nothing                         ' Variable leeren
End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim Bereich As Range, Zelle As Range Set Bereich = Intersect(Target, Range("B3:B22551")) If Bereich Is Nothing Then Exit Sub For Each Zelle In Bereich Zelle.Offset(, -1).Value = IIf(Zelle.Value "", Date, "") Next Set Bereich = Nothing End Sub

erster Eintrag in leere Zelle im Bereich u. Datumszelle ist leer -- Date in Datumszelle einfü _ gen erster Eintrag in leere Zelle im Bereich u. Datumszelle ist gefüllt ->-? zweiter Eintrag in diese Zelle im Bereich u. Daumszelle ist schon bzw. noch gefüllt -- ? u. Daumszelle ist leer -- ? diese Zelle wird geleert -- Datumszelle wird nicht geändert

Beliebteste Forumthreads (12 Monate)

Keine Fhelermeldung beim Löschen von Zelleninhalte

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Keine Fhelermeldung beim Löschen von Zelleninhalte

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread