Ich habe mit eurer Hilfe folgendes Makro erstellt. Wenn ich es aber dann ausführe, funktioniert es nur einmal und danach leider nicht mehr. Was mach ich falsch?
Vielen Dank
Grüsse
Marc
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:B1")) Is Nothing Then
If Target.CountLarge = 1 Then
If IsNumeric(Target.Value) Then
Application.EnableEvents = False
Select Case Target.Address
Case "$A$1"
Cells(1, 2).Value = Target.Value * 2
Case "$B$1"
Cells(1, 1).Value = Target.Value * 5
End Select
Cells(2, 1).Value = Target * 4
Cells(2, 2).Value = Target * 6
Application.EnableEvents = True
End If
End If
End If
End Sub