AW: Aktuelles Datum bei Wertänderung
02.07.2014 16:36:08
Hajo_Zi
ich hatte da wohl was überlesen.
mal ein Code der für eine ähnlichen fall war.
' ************************************************************* _
' Modul: DieseArbeitsmappe Typ = Element der Mappe(Sheet, Workbook, ...)
' **************************************************************
Option Explicit _
' Variablendefinition erforderlich
Private Sub _
Workbook_Open()
'***********************************************
'* H. Ziplies *
'* 16.01.10 *
'* erstellt von HajoZiplies@web.de *
'* http://Hajo-Excel.de/ *
'* und von Karin, http://Excel-Inn.de *
'* Beverly_Forums@web.de *
'***********************************************
' Array mit Adressen und eingetragen Werte füllen
' da Bilder schon eingefügt wurden müssen die _
' nicht eingefügt werden
StArray = Array(Array("", "", "", "", "", _
34;"), _
Array("A10", "A20", "A30", "A40", "A50", "A60"))
With Worksheets(" _
Tabelle1")
For Loi = 0 To _
UBound(StArray(0), 1)
If Range(StArray(1)(Loi) _
41; <> "" Then
' Zellinhalt auf Variable
StArray(0)(Loi) = Range(StArray(1)(Loi)) _
End If
Next Loi
End With
End Sub
' **************************************************************
' Modul: Tabelle1 Typ = Element der Mappe(Sheet, Workbook, ...)
' **************************************************************
Option Explicit ' Variablendefinition erforderlich
Private Sub Worksheet_Calculate()
'***********************************************
'* H. Ziplies *
'* 24.01.10 *
'* erstellt von HajoZiplies@web.de *
'* http://Hajo-Excel.de/ *
'***********************************************
Dim StBild As String ' Variable für Bildname
Application.ScreenUpdating = False ' Bildschimaktualisierung aus
With Worksheets("Tabelle1")
For Loi = 0 To UBound(StArray(0), 1) ' Schleife über überwachte Zellen
If Range(StArray(1)(Loi)) <> "" _
And Range(StArray(1)(Loi)) <> StArray(0)(Loi) Then
' Zelle geändert
MsgBox 1
StArray(0)(Loi) = Range(StArray(1)(Loi))
End If
Next Loi
End With
Application.ScreenUpdating = True ' Bildschimaktualisierung ein
End Sub
Code eingefügt mit: Excel Code Jeanie
Gruß Hajo