makro erweitern
14.07.2004 21:55:13
dieter-j
ich habe sogut wie keine ahnung von makro´s.
das untenstehende makro setzt mir den buchstaben "e" in die zellen d24:q24, wenn in h14 ein "x" steht.
Und jetzt:
wenn in i14 ein "x" steht, soll es mir in die zellen d29:q29 ein "e" setzen. was muss ich da machen? statt H14 angeben H14:i14 usw. geht nicht.
zweite frage dazu: wenn das "x" wieder gelöscht wird, sollen die "e" auch gelöscht werden.
Geht das?
dickes "DANKE"
gruss dieter
hier das makro, das geht auch:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "H14" And Range("H14").Value = "x" Then
On Error GoTo ErrorHandler
Application.EnableEvents = False
Range("d24:q24").Value = "e"
Application.EnableEvents = True
On Error GoTo 0
End If
Exit Sub
ErrorHandler:
Application.EnableEvents = True
End Sub