Office: Worksheet_Change über mehrere Tabellenblätter

Fritzy · 15. Januar 2018

Hallo zusammen,

ich habe folgendes Problem:

Sobald in Tabelle 2 in Zelle A1 der Wert "2" und in Zelle A2 der Wert "1" stehen, soll in Tabelle 1 Zelle A1 der Text "Ziel erreicht" eingeblendet werden.

Wenn alles auf einem Tabellenblatt stattfinden würde, ließe sich einfach die Funktion

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") = 1 And Range("A2") = 2 Then ...
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

verwenden. Gibt es das auch über alle Tabellenblätter?

:)

jack_D · 17. Januar 2018

Moin,

Ja, Warum nicht ..

Code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Const cLngSpalte = 3 ' z.B. für Spalte C
If Target.Column = cLngSpalte Then
Application.EnableEvents = False
'....dein Code...
Application.EnableEvents = True
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Musst halt noch Deine Bedinungen einbauen

Grüße

Fritzy · 17. Januar 2018

Vielen Dank für den Vorschlag.

Irgendwas scheine ich aber noch falsch zu machen. Ich verstehe die Sache mit der Spalte auch nicht ganz?!

Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Const cLngSpalte = 5 ' z.B. für Spalte C
If Target.Column = cLngSpalte Then
Application.EnableEvents = False
If Sheets("Tabelle2").Range("E4") = 2 And Sheets("Tabelle2").Range("E5") = 3 Then
Sheets("Tabelle1").Range("A1") = "Ziel erreicht"
Application.EnableEvents = True
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich habe auch mal eine Beispielexcel angehängt.

jack_D · 17. Januar 2018

Moin,

okay ich hab dich falsch verstanden.

Das was du meinst ist das .. so glaube ich zumindest ^^

Code:

Option Explicit

Private Sub worksheet_change(ByVal Target As Range)
If Not Intersect(Target, Range("E4:E5")) Is Nothing Then
If Sheets("Tabelle2").Range("E4") = 2 And Sheets("Tabelle2").Range("E5") = 3 Then
Sheets("Tabelle1").Range("A1") = "Ziel erreicht"
Else
Sheets("Tabelle1").Range("A1") = ""
End If
Else
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße Jack

Rückmeldung und Bewertung wär nett

Fritzy · 17. Januar 2018

Moin Jack,

das sieht schon sehr gut aus!

Kann ich jetzt auch noch eine weitere Bedingung aus dem ersten Tabellenblatt einfügen?

Wie:

Option Explicit

Private Sub worksheet_change(ByVal Target As Range)
If Not Intersect(Target, Range("E4:E5")) Is Nothing Then
If Sheets("Tabelle2").Range("E4") = 2 And Sheets("Tabelle2").Range("E5") = 3 And Sheets("Tabelle1").Range("E4") = 4 Then
Sheets("Tabelle1").Range("A1") = "Ziel erreicht"
Else
Sheets("Tabelle1").Range("A1") = ""
End If
Else
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Oder wird das durch

If Not Intersect(Target, Range("E4:E5")) Is Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ausgeschlossen?

jack_D · 17. Januar 2018

Moin,

Du kannst soviele Bedingungen hinzufügen wie du willst.
Jedoch wird das WS Change Ereignis nicht ausgelöst (wenn du in Tab1."E4" was änderst)

Grüße

Ps:
Intersect prüft lediglich ob der Range (von dem du das WS_Change Ereignis auslöst) in dem gewünschten Bereich liegt

Office: Worksheet_Change über mehrere Tabellenblätter

Worksheet_Change über mehrere Tabellenblätter

Worksheet_Change über mehrere Tabellenblätter

Worksheet_Change über mehrere Tabellenblätter

Worksheet_Change über mehrere Tabellenblätter - Similar Threads - Worksheet_Change Tabellenblätter

Problem mit Private Sub Worksheet_Change

2x Worksheet_Change(ByVal Target As Range)

VBA - Fehler beim Kompilieren (Mehrdeutiger Name - Worksheet_Change)

2x Private Sub Worksheet_Change(ByVal Target As Range)

VBA Autoform einfärben

Worksheet_Change auf bestimmte Zeilen beschränken

VBA - Fehler beim Kompilieren (Mehrdeutiger Name - Worksheet_Change)