Makro in Zeitlupe durch VBA
04.11.2004 20:19:00
Heim
ich habe unten stehendes Programm in einer Seite stehen.
Es funktioniert.
Auf der selben Seite sind auch einige Makros.
Diese laufen jetzt im Zeitlupentempo ab weil unten stehendes Programm bei jedem Schritt ausgeführt wird.
Gibt es eine Möglichkeit bei einem Makro die Ausführung des VBA Programmes zu verhindern?
MfG
-----------------------
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Column < 2 Then Exit Sub
If Target.Row < 8 Or Target.Row > 25 Then Exit Sub
Range("a1").Value = Range("B" & Target.Row).Value
Range("C1").Value = Range("C" & Target.Row).Value
Range("a2").Value = Range("E" & Target.Row).Value
If IsNumeric(Target.Offset(0, -1).Value) Then
Range("c2").Value = Target.Offset(0, -1).Value & " " & Target.Offset(0, 1).Value
Else
Application.EnableEvents = False 'Ereignis AUS
Application.EnableEvents = True 'Ereignis EIN
End If
End Sub