Generelle Frage zu Sub/Call Sub
11.12.2007 00:21:00
Susanne
ich bastel hier an einem vorhandenen Code.
Irgendwie hängt es.
Frage:
Warum müssen manche Sub extra aufgerufen werden s.z.B: Call Sub timer,
auf andere Sub verweißt aber kein Call s.z.b. Sub Start Uberwachung
...
myArray(i - 8) = Range("M" & 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:02")
Application.OnTime NextTime, "Tabelle2.Show_Change"
End Sub
Sub initialize_array()
For i = 8 To 50
myArray(i - 8) = Range("M" & 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
Anzeige