AW: Absturz
29.02.2008 12:02:28
Urs
Hi Renée,
der Code ist ganz einfach:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x1Aend As Integer, x2Aend As Integer
Dim x1Unt As Integer, x2Unt As Integer
Dim x1Bei As Integer, x2Bei As Integer
Dim yAend As Integer, yUnt As Integer, yBei As Integer
Dim xOff As Integer, yOff As Integer
Dim xDoku As Integer, yDoku As Integer
Dim x1verr%, x2verr%, y1verr%, y2verr%
Application.ScreenUpdating = False
' Koordinaten Zelle
xDoku = Target.Row
yDoku = Target.Column
' Koordinaten Doku
x1Aend = Range("ListeAendMan_Doku").Row
x2Aend = x1Aend + Range("ListeAendMan_Doku").Rows.Count - 1
x1Unt = Range("ListeUntMan_Doku").Row
x2Unt = x1Unt + Range("ListeUntMan_Doku").Rows.Count - 1
x1Bei = Range("ListeBeiMan_Doku").Row
x2Bei = x1Bei + Range("ListeBeiMan_Doku").Rows.Count - 1
yAend = Range("ListeAendMan_Doku").Column
yUnt = Range("ListeUntMan_Doku").Column
yBei = Range("ListeBeiMan_Doku").Column
x1verr = Range("DokuB_VerrBetrag").Row
x2verr = x1verr + Range("DokuB_VerrBetrag").Rows.Count - 1
y1verr = Range("DokuB_VerrBetrag").Column
y2verr = Range("DokuB_VerrKreuz").Column
' Aenderungen
If xDoku >= x1Aend And xDoku = x1Unt And xDoku = x1Bei And xDoku = x1verr And xDoku = y1verr And yDoku