Gültigkeit-Makro
26.09.2006 17:31:20
KlausL
nachfolgenden Code habe ich im Archiv gefunden und angepasst.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Auto Makro, wird gestartet bei Zelländerung
If Target.Cells.Count < 1 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If Intersect(Target, Range("e6")) Is Nothing Then Exit Sub
On Error GoTo ERRORHANDLER
Application.EnableEvents = False
Call Formatierung
ERRORHANDLER:
Application.EnableEvents = True
End Sub
In der Zelle e6 habe ich über die Gültigkeitsfunktion eine Liste der möglichen Einträge hinterlegt. wenn ein Wert ausgewählt wurde und mit Enter bestätigt, soll automatisch ein Makro gestartet werden, dass verschiedenen Parameter verändert. Allerdings ist es so, dass mein Makro nicht gestartet wird. Was mache ich falsch?
Danke schon jetzt für jeden Hinweis.
Klaus
Anzeige