Makrostart nach Zelländerung
04.02.2004 14:52:38
Dirk L.
Ich habe folgendes Makro:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Auto Makro, wird gestartet bei Zelländerung
If Target.Cells.Count > 1 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If Intersect(Target, Range("G8:AK8", "G13:AK13")) Is Nothing Then Exit Sub
On Error GoTo ERRORHANDLER
Application.EnableEvents = False
Call Macro1
ERRORHANDLER:
Application.EnableEvents = True
End Sub
In den agegebenen Bereichen soll die Überwachung stattfinden. Allerdings gibt es hier von 17 Bereiche. Die Bereiche verschieben sich jeweils um 5 Zeilen nach unten (Spaltenangaben sind gleichbleibend). Mit Range lassen sich leider nur 2 Bereichsangaben behandeln, bei mehr fängt Excel an zu meckern.
Also wie muß der Programmcode geändert werden um mehr Bereiche zu überwachen?
Im vorraus schon einmal Danke
Gruß Dirk
Anzeige