Target und Worksheet_Change
Wolfgang
Ich hab ein Problem mit der Worksheet_Change Prozedur.
Anbei der Code.
Das Makro soll 2 Spalten prüfen
- Änderungen in der Spalte G -- > Zellen löschen
- Änderungen in der Spalte Q -- > Zellen löschen und ein bestimmtes Makro Starten.
Das Ereignis der Spalte G klappt auch.
Nur wenn das Ereignis in der Spalte Q eintritt werden die Makros nicht gestartet.
Beim Debuggen kommt die Fehlermeldung
>Objektvariable oder With-Blockvariable nicht festgelegt Welche Objektvariable habe ich denn bloß vergessen ?
Hat jemand einen Tipp
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Application.Intersect(Target, Range("G10:G1000")) Is Nothing Then
Cells(Target.Row, 8) = ""
Cells(Target.Row, 10) = ""
End If
If Not Application.Intersect(Target, Range("Q10:Q1000")) Is Nothing Then
Cells(Target.Row, 24) = ""
Cells(Target.Row, 25) = ""
If Target.Value = "Test1" Then Call Makro1
If Target.Value = "Test2" Then Call Makro2
If Target.Value = "Test3" Then Call Makro3
End If
End Sub