Worksheet_Change soll nicht..

Private Sub Worksheet_Change(ByVal Target As Excel.Range) Application.EnableEvents = False ActiveSheet.Application.ScreenUpdating = False If Target.Address = "$A$10" Or Range("$A$11") Then Call Einsetzen End If Application.EnableEvents = True ActiveSheet.Application.ScreenUpdating = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
du willst doch eine "Aktion" auslösen, wenn eine Zelländerung in Zelle A10 oder in Zelle A11 durchgeführt wird.
Also diesen Code mal ins Codemodul der entsprechenden Tabelle und in A10 oder A11 was reinschreiben.


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$10" Or Target.Address = "$A$11" Then
MsgBox "Hallo Wolfgang"
End If
End Sub

Jetzt löschst du obigen Code und fügst "deinen" Code in die Tabelle ein und änderst was in A11


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$10" Or Range("$A$11") Then
MsgBox "Hallo Wolfgang"
End If
End Sub

Und meine Fragen hast du auch nicht beantwortet.
Und nochmal: Ich kenne deinen Code des Makros "Einsetzen" nicht.
Gruß Werner

Guten Morgen Werner,
ich habe folgendes festgestellt, habe die Zellen verändert:
hier keine Reaktion !


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$28" Or Target.Address = "$D$29" Then
MsgBox "Hallo Wolfgang"
End If
End Sub

hier kam Fehlermeldung: Laufzeitfehler 13 Typen unverträglich


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$28" Or Range("$D$29") Then
MsgBox "Hallo Wolfgang"
End If
End Sub

komisch so wird die MSGBOX angezeigt:


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
ActiveSheet.Application.ScreenUpdating = False
If Target.Address = "$E$28" Or Range("$E$29") Then
' If Target.Address = "$E$28" Or Target.Address = "$E$29" Then
'If Target.Address = "$E$28" Or Target.Address = "$E$29" Then
MsgBox "Hallo Wolfgang"
' Call Fenster_Element_Einsetzen
End If
Application.EnableEvents = True
ActiveSheet.Application.ScreenUpdating = True
End Sub

So auch !!!


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
ActiveSheet.Application.ScreenUpdating = False
' If Target.Address = "$E$28" Or Range("$E$29") Then
If Target.Address = "$E$28" Or Target.Address = "$E$29" Then
MsgBox "Hallo Wolfgang"
' Call Fenster_Element_Einsetzen
End If
Application.EnableEvents = True
ActiveSheet.Application.ScreenUpdating = True
End Sub

Danke für die Hilfe !
Werde also deine Zeile nehmen !
Schönes Wochenende !
mfg wolfgang b

Beliebteste Forumthreads (12 Monate)

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread