Excel - VBA : Bei Eingabe in Zelle den Inhalt automatisch in selber Zelle berechnen

Computer: Software & Programmierung Office Software
#1

Hallo, seit einiger Zeit versuche ich den Inhalt von Zellen automatisch in der gleichen Zelle berechnen zu lassen. Für eine einzelne Zelle habe ich das hinbekommen.

Private Sub Worksheet\_Change(ByVal Target As Range)
If Target.Address(0, 0) = "L33" Then
 On Error GoTo Err\_Exit
 Application.EnableEvents = False
 Range("L33") = Target \* "0,75"
End If
Err\_Exit:
Application.EnableEvents = True
End Sub

Problematisch ist für mich jedoch wie ich das ganze für den Spaltenbereich L8 bis L38 bewerkstellige.Beispiel:In Zelle L8 wird der Wert 3 eingegeben. Nach betätigen der Enter Taste, ändert sich der Wert von L8 auf das Ergebnis von "L8 x 0,75 = 2,25"Zelle 30 bekommt den Wert 6 und rechnet nach Enter "L30 x 0,75 = 4,5"Beispielende.Gibt es dafür eine Lösung?Danke im Voraus…

#2

Problematisch ist für mich jedoch wie ich das ganze für den
Spaltenbereich L8 bis L38 bewerkstellige.Beispiel:In Zelle L8
wird der Wert 3 eingegeben. Nach betätigen der Enter Taste,
ändert sich der Wert von L8 auf das Ergebnis von "L8 x 0,75 =
2,25"Zelle 30 bekommt den Wert 6 und rechnet nach Enter "L30 x
0,75 = 4,5"Beispielende.Gibt es dafür eine Lösung?Danke im
Voraus…

Hallo Mojo,

Option Explicit

Private Sub Worksheet\_Change(ByVal Target As Range)
If Intersect(Target, Range("L8:L38")) Is Nothing Then Exit Sub
On Error GoTo Err\_Exit
Application.EnableEvents = False
Target.Value = Target.Value \* 0.75
Err\_Exit:
If Err.Number 0 Then MsgBox Err.Number & vbLf & Err.Description
Application.EnableEvents = True
End Sub

Gruß
Reinhard

#3

Danke Reinhard. Funktioniert. :wink: