Anzeige
Archiv - Navigation
1256to1260
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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
AW: Abfrage in Code einfügen
30.03.2012 10:30:12
Michael
Hallo Rudi,
jawohl, vielen Dank!
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige