Fallanweisung zum Löschen von Zelleninhalten

Bild

Betrifft: Fallanweisung zum Löschen von Zelleninhalten
von: Berlin030
Geschrieben am: 06.05.2015 12:37:31

Hallo verehrte Großmeister des Quellcode.
Ich bin ein kleiner Hobbybastler der gerade versucht eine Tabelle mit etwas Code zu hinterlegen; stoße nun zum Ende hin jedoch an meine Wissensgrenze. Daher hoffe ich auf eure Hilfe um auf eurer Wissen zurückgreifen zu können.
Im Kern geht es darum in einer Tabelle mit einem Datum zu vermerken wann die letzte Änderung statt fand. Ich bin mit meinem Code soweit das Änderungen in einer beliebigen Zelle einer Spalte vermerkt werden (Datumseintrag). Auch unterscheidet mein Code bereits ob eine Änderung des Zellenwerts wirklich statt fand oder ob man die Zelle nur versehentlich angeklickt hat. So weit so gut. Aber was mir noch fehlt ist eine Funktion welche den Datumseintrag wieder aus der aktuellen Zelle rauslöscht wenn in den Spalten A&B der Zeile keine Einträge vorliegen.
Hintergrund:
Spalte A & B enthalten Namen und Vornamen. Spalte C ist das Datum der letzten Änderung. D bis BD sind für detaillierte Infos vorgesehen. Bei jeder Änderung in A,B oder D-BD soll wie geschrieben ein Datumseintrag in C statt finden. Sobald jedoch der Zelleninhalt einer Spalte in A&B gelöscht wird, soll auch in der dazugehörigen Zelle unter C der Eintrag gelöscht werden.
Ich hoffe sehr das ihr mir weiter helfen könnt, denn ich verzweifle allmählich und finde auch _
leider nicht das passende an Infos in eurem Forum. (in anderen Forum schon garnicht^^).


Option Explicit 'Zuverwendende Optionen
 Dim ZielZelle 'Variablen definition
 Private Sub Worksheet_Activate()
    ZielZelle = Target 'Variable entspricht angewähler Zelle
 End Sub
 Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x
    x = Target.Value
    If Not Intersect(Columns(), Target) Is Nothing Then '
       If ZielZelle <> Target Then
          Cells(Target.Row, 3) = Date
       End If
    End If
 End Sub
 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ZielZelle = Target
 End Sub

Hoffe ihr könnt mir weiter helfen und freue mich bereits auf eure Antworten.
Lg, Berlin030

Bild

Betrifft: AW: Fallanweisung zum Löschen von Zelleninhalten
von: Hajo_Zi
Geschrieben am: 06.05.2015 14:00:03


Option Explicit                                     ' Variablendefinition erforderlich
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    '***********************************************
    '* H. Ziplies                                  *
    '* 06.05.15                                    *
    '* erstellt von HajoZiplies@web.de             *
'* http://Hajo-Excel.de/
 *
    '***********************************************
    Dim RaZelle As Range                            ' Variable für Zelle die zur Zeit  _
bearbeitet wird
    Application.ScreenUpdating = False              ' Bildschirm abschalten
    Application.EnableEvents = False                ' Reaktion auf Eingabe abschalten
    For Each RaZelle In Target                      ' Schleife über alle veränderten Zellen im ü _
berwachten Bereich
        If RaZelle.Column = 1 Or RaZelle.Column = 2 Then
            If Cells(RaZelle.Row, 1) = "" And Cells(RaZelle.Row, 2) = "" Then
                Cells(RaZelle.Row, 3).ClearContents
            Else
                Cells(RaZelle.Row, 3) = Date        ' Datum eintragen
            End If
        Else
            Cells(RaZelle.Row, 3) = Date            ' Datum eintragen
        End If
    Next RaZelle
    'ActiveSheet.protect "Passwort"
    Application.ScreenUpdating = True               ' Bildschirm einschalten
    Application.EnableEvents = True                 ' Reaktion auf Eingabe eindschalten
End Sub
Vorname
Schaue auch hier:
http://hajo-excel.de/unbekannter.htm


Bild

Betrifft: AW: Fallanweisung zum Löschen von Zelleninhalten
von: Berlin030
Geschrieben am: 06.05.2015 14:41:27
Super! Vielen Dank Meister Hajo.
Auch klasse das Du mir als Verständnishilfe die einzelnen Befehle kommentiert hast; so kam man sicher gut einlesen und es schneller verstehen.
Vielen vielen Dank.

Bild

Betrifft: AW: Fallanweisung zum Löschen von Zelleninhalten
von: Berlin030
Geschrieben am: 06.05.2015 14:42:05
Super! Vielen Dank Meister Hajo.
Auch klasse das Du mir als Verständnishilfe die einzelnen Befehle kommentiert hast; so kam man sicher gut einlesen und es schneller verstehen.
Vielen vielen Dank.

Bild

Betrifft: AW: Fallanweisung zum Löschen von Zelleninhalten
von: Hajo_Zi
Geschrieben am: 06.05.2015 14:50:10
Du hast schon beachtet das ich vorgesehen habe das mehrere Zellen geändert wurden, was Excel ja zulässt.


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Fallanweisung zum Löschen von Zelleninhalten"