Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Abfrage in Code einfügen

Forumthread: Abfrage in Code einfügen

Abfrage in Code einfügen
Michael
Guten Morgen,
sicherlich ist die Antwort auf mein Anliegen äußerst trivial:
wie oder wo in folgenden Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 83 And Target.Row > 21 Then
Target.Offset(, Application.Match(Target, Range("CJ21:CS21"), 0) + 4) = Date
End If
End Sub

muss ich den "Befehl" Target="" einbauen, wenn ich aus einem Feld einen Eintrag ohne Fehlermeldung wieder löschen will?
Hinweis:
Ich möchte eine Historie wann eine Zelle z.B. Zeile 115 in Spalte "CE" welchen der gültigen Werte eingetragen hatte. Falls ich jedoch beim befüllen in der Zeile verrutsche, möchte ich diesen irrtümlich getätigten Eintrag ohne Fehlermeldung auch wieder löschen
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Abfrage in Code einfügen
30.03.2012 09:51:37
Rudi
Hsallo,
so?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 83 And Target.Row > 21 Then
If Target = "" Then
Target.Offset(, 5).Resize(, 10) = ""
Else
Target.Offset(, Application.Match(Target, Range("CJ21:CS21"), 0) + 4) = Date
End If
End If
End Sub

Gruß
Rudi
Anzeige
AW: Abfrage in Code einfügen
30.03.2012 10:30:12
Michael
Hallo Rudi,
jawohl, vielen Dank!
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige