Clever-Excel-Forum

Seiten: 1 2

Hi

Oder die Variante.

Code:
Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("A5")) Is Nothing Then

       Application.Run (Target.Value)

    End If

End Sub

Gruß Elex

Ohhhhhhhhhhhhh, Case!

Hab vielen Dank! Wenn Du die Tage Post von meinem Notar bekommst, liegt dass daran, dass ich Dich in meinem Testament berücksichtigt habe Smile

.
Ich bin einfach nicht drauf gekommen.

Vielen lieben Dank und einen schönen Samstag!

Viele Grüße
Andreas

Seiten: 1 2

Elex

Case

ari-2001