AW: Was ist eine DDE-Formel ?
17.11.2006 10:12:13
EtoPHG
Hallo Daniel,
Private Sub Worksheet_Calculate()
Dim ixRow As Single
Dim bDoEntry As Boolean
bDoEntry = False
Application.EnableEvents = False
For ixRow = 5 To 13
If Not IsError(ActiveSheet.Cells(ixRow, 3).Value) Then
If ActiveSheet.Cells(ixRow, 3).Value <> ActiveSheet.Cells(ixRow, 256).Value Then
ActiveSheet.Cells(ixRow, 256).Value = ActiveSheet.Cells(ixRow, 3).Value
bDoEntry = True
End If
End If
Next ixRow
If bDoEntry Then
ixRow = ActiveSheet.Range("C65536").End(xlUp).Row + 1
If ixRow < 18 Then
ixRow = 18
ActiveSheet.Cells(ixRow, 3) = 1
If Not (ActiveSheet.Columns(256).EntireColumn.Hidden) Then ActiveSheet.Columns(256).EntireColumn.Hidden = True
Else
ActiveSheet.Cells(ixRow, 3).Value = ActiveSheet.Cells(ixRow - 1, 3).Value + 1
End If
ActiveSheet.Cells(ixRow, 4) = Now()
End If
Application.EnableEvents = True
End Sub
Gruss Hansueli