https://www.herber.de/forum/messages/267953.html
OK, nun zu meiner Frage
in Diesem Code wird eine Verbindung zwischen 2 Tabellenblättern
hergestellt, wenn ich nun diesen Code so laufen lasse passiert nix auf dem 2ten Blatt.
Der Code im Tabellenblatt1:
Private Sub Worksheet_Change(ByVal Target As Range)
Set rngTarget = Target
colTarget = Target.Column
rowTarget = Target.Row
If Target.Column > 2 Or Target.Column < 3 Then
Call sub1
Exit Sub
End If
If Not Application.Intersect(Target, Range("C5")) Is Nothing Then
Call sub2
Exit Sub
End If
End Sub
und hier der Code im Modul mit der Worksheet angabe:
Option Explicit
Public rngTarget As Range, rowTarget As Integer, colTarget As Integer
Sub sub1()
On Error GoTo fehler
Application.EnableEvents = False
Select Case colTarget
Case 2
Cells(rowTarget, 4) = Cells(rowTarget, 4) + rngTarget
Case 3
Cells(rowTarget, 4) = Cells(rowTarget, 4) - rngTarget
End Select
fehler:
Application.EnableEvents = True
End Sub
Sub sub2()
Dim wks1 As Worksheet
Dim wks2 As Worksheet
Set wks1 = ActiveWorkbook.Worksheets(2)
Set wks2 = ActiveWorkbook.Worksheets(1)
wks1.Range("a1") = wks1.Range("a1") + wks2.Range("C5")
End Sub
!! Muss ich hier vielleicht statt "Worksheet" den namen des Blattes angeben ?
weil ansich soll ein wert von Tabelle1 genommen und zur Summe
auf Tabelle2 addiert werden.
Was habe ich falsch gemacht ?
/// Vielen Dank Euch allen \\\
||| für die Tatkräftige hilfe |||
Bernd Schneider