Warum funktioniert VBA nicht?
12.10.2003 02:24:23
Daniel
Ich habe gerade dieses Skript versucht, es funktioniert allerdings nicht.
Was habe ich falsch gemacht:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i%
If Intersect(Target, Range("AA10")) Is Nothing Then Exit Sub
If Target.Value = "Details: Sendung eingeben" Then
Cells(10, 29) = Cells(10, 27)
ElseIf Target.Value = "A" Then
Range("AB10").ClearContents
End If
End Sub
Zur Erklärung
Ich möchte wenn AA10 = Details: Sendung eingeben steht, das dies auch in AB10 steht. Steht aber A in AA10 sollte alles in AB10 gelöscht werden, so dass ein normales leeres Feld entsteht.
Vielen Dank
Daniel
Anzeige