Suche VBA-Einfügung "ausgegebener Wert ungleich 0"
02.11.2006 12:54:34
HannaG.
(Die 3 Punkte "..." wirft Excel aus, wenn es zu Schwierigkeiten mit DDE kommt)
Wie sollte man einen entsprechenden Code in die u.g. Formel einfügen?
Danke
Dim myArray(540)
Dim bolTimer As Boolean
Sub Show_change()
For i = 7 To 540
If Range("D" & i).Value myArray(i - 7) Then
Application.ScreenUpdating = False
Rows(i).Copy
Rows(2).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Range("D" & i).Select
Application.ScreenUpdating = True
myArray(i - 7) = Range("D" & i)
End If
Next i
Call Timer
End Sub
Sub Timer()
Dim NextTime As Date
If Not bolTimer Then Exit Sub
NextTime = Now + TimeValue("00:00:20")
Application.OnTime NextTime, "Tabelle2.Show_Change"
End Sub
Sub initialize_array()
For i = 7 To 540
myArray(i - 7) = Range("D" & i)
Next i
End Sub
Sub Start_Ueberwachung()
initialize_array
bolTimer = True
Timer
End Sub
Sub Stopp_Ueberwachung()
bolTimer = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub