Makroanweisung für ganzes Sheet
05.02.2004 12:01:32
lemon
Ich weiß, ich nerve!
Mein neues Problem:
Ich muß das super funktionierende Makro auf das ganze Blatt beziehen können.
Das heißt, dass die Zeilenzahl abhängig ist, von der selektierten Zelle.
Wenn ich in die Zelle C6 eine Zahl hinein scheibe,dann muß auch in J6 "Request"
stehen.
Ich hoffe, dass mir jemand sagen kann, wie ich das Makro zeilenabhängig machen kann.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
With Target
Select Case .Address(0, 0)
Case "C3", "D3"
If Range("C3") > 0 Then
[J3] = "Request"
ElseIf Range("D3") > 0 Then
[J3] = "Ticket"
End If
Case "E3"
If .Value = "" Then [F3] = "" Else [F3] = Now
End Select
End With
Application.EnableEvents = True
End Sub