Ich raff das nicht :(
12.06.2003 13:42:09
B. Schneider
der Code =Private Sub Worksheet_Change3(ByVal Target As Range)
Dim wks1 As Worksheet
Dim wks2 As Worksheet
Set wks1 = ActiveWorkbook.Worksheets(2)
Set wks2 = ActiveWorkbook.Worksheets(1)
If Not Application.Intersect(Target, Range("B5")) Is Nothing Or _
Not Application.Intersect(Target, Range("C5")) Is Nothing Then
wks1.Range("E5") = wks1.Range("E5") + wks2.Range("C5")
'* Range("B3")
End If
End Sub
Diesen hae ich in den ersten Tabellencode "LAGER" eingefügt
das Wort Change musste ich ändern in Change3 weil da schon ein Script mit Change läuft, ich gehe jezt mal davon aus das WKS1
die 2te Seite (Verbrauch) ist und WKS2 ist (Lager)
... so wie er jetzt da seht gibts zwar keinen Fehler aber
es passiert auch nichts :(
Was habe ich wieder Falsch gemacht ?
Hier mal der Komplette Code der Lagerseite
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 2 Or Target.Column > 3 Then Exit Sub
On Error GoTo fehler
Application.EnableEvents = False
Select Case Target.Column
Case 2
Cells(Target.Row, 4) = Cells(Target.Row, 4) + Target
Case 3
Cells(Target.Row, 4) = Cells(Target.Row, 4) - Target
End Select
fehler:
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change3(ByVal Target As Range)
Dim wks1 As Worksheet
Dim wks2 As Worksheet
Set wks1 = ActiveWorkbook.Worksheets(2)
Set wks2 = ActiveWorkbook.Worksheets(1)
If Not Application.Intersect(Target, Range("B5")) Is Nothing Or _
Not Application.Intersect(Target, Range("C5")) Is Nothing Then
wks1.Range("E5") = wks1.Range("E5") + wks2.Range("C5")
'* Range("B3")
End If
End Sub
Vielen Dank für Eure mühe Bernd Schneider