Problem: Worksheet_Change und falscher Zeilenwert
01.11.2007 15:13:00
Pascal
ich habe folgendes Problem:
Ein bestimmtes Makro soll ausgeführt werden, wenn ich in einer Spalte den Wert einer Zelle ändere.
An das neue Makro soll der Wert der Zeile der geänderten Zeile übergeben werden.
Leider wird bei mir immer der Zeilenwert übergeben in das anschließend geklickt wird. Wo ist der Fehler?
Besten Dank,
Pascal
Anbei der Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim z, s As Long
Dim eintrag As String
Dim zelle As Variant
Set zelle = Target
s = Target.Column: z = Target.Row
If s = 12 Then
If Cells(z, s).Value "" Then
Msg = "Möchten Sie xxx Informieren?"
Ans = MsgBox(Msg, vbQuestion + vbYesNoCancel)
Select Case Ans
Case vbYes
z = ActiveCell.Row
Outlook (z)
Case vbNo
Cancel = True
Case vbCancel
Cancel = True
End Select
End If
End If
End Sub
---
Sub Outlook(ByRef z As Integer)
...
' z hat den falschen Wert
...
End Sub