das makro geht nicht
10.08.2004 21:56:35
dieter-j
ich habe eher null ahnung von makro´s.
dieses hier hatte ich bisher am arbeitsplatzregister unter "code anzeigen"
ich würde es lieber unter "makro" haben (beim kopieren des blattes wird es nicht mitkopiert). Schreibe ich es unter als "e_einstzen" in "makro" , klappt es aber nicht.
Schaut Ihr euch das bitte mal an?
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "H14" And [H14] = "x" Then
[d27:q27] = "e"
ElseIf Target.Address(0, 0) = "H14" And [H14] <> "x" Then
[d27:q27].ClearContents
End If
If Target.Address(0, 0) = "I14" And [i14] = "x" Then
[d32:q32] = "e"
ElseIf Target.Address(0, 0) = "I14" And [i14] <> "x" Then
[d32:q32].ClearContents
End If
End Sub
-----------------------
Sub e_einsetzen()
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "H14" And [H14] = "x" Then
[d27:q27] = "e"
ElseIf Target.Address(0, 0) = "H14" And [H14] <> "x" Then
[d27:q27].ClearContents
End If
If Target.Address(0, 0) = "I14" And [i14] = "x" Then
[d32:q32] = "e"
ElseIf Target.Address(0, 0) = "I14" And [i14] <> "x" Then
[d32:q32].ClearContents
End If
End Sub