für die profis:kann man diese makro optimieren?
04.08.2003 22:43:14
bernd
die timer funktion musste ich einbauen, damit das programm, welches die textdatei schreibt sich nicht mit excel duelliert.
oberflächlich funktioniert das makro gut doch im betrieb schmiert es häufig ab ( stapelspeicherprobleme). deshalb meine frage: kann man das makro noch optimieren?
danke im vorraus für eure hilfe
______________________________________________________________________________
Private Sub Worksheet_SelectionChange(ByVal target As Range)
Dim zeit1, zeit2 As Date
If Not Intersect(Range(ActiveCell.Address), Range("D15:D50")) Is Nothing Then
If Range("C1").Value = 1 Then
Range("C1").Value = 11
Application.EnableEvents = False
zeit1 = Format(FileDateTime("C:\test.txt"), "hh:mm:ss")
Do
Start = Timer
Do While Timer < Start + 1
DoEvents
Loop
Ende = Timer
If Not Intersect(Range(ActiveCell.Address), Range("A1:D14")) Is Nothing Then
Range("C1").Value = 1
Application.EnableEvents = True
End
End If
zeit2 = Format(FileDateTime("C:\test.txt"), "hh:mm:ss")
Loop While zeit2 <= zeit1
Start = Timer
Do While Timer < Start + 2
DoEvents
Loop
Ende = Timer
Application.Run "test"
End If
End If
Application.EnableEvents = True
If Range("C1").Value = 11 Then
Range("C1").Select
ActiveCell.FormulaR1C1 = "1"
Range("D16").Select
End If
End Sub