folgendes Problem:
Ich habe Einträge (Zahlen) in Spalte A (bis Zeile 55). In Spalte B soll jedes mal, wenn eine Zahl in Spalte A geändert wird, diese Zahl mit 0,25 multipliziert werden.
Da ich keine Formeln hinterlegen möchte, habe ich es mit dem On Change-Ereignis versucht:
Siehe u.a. Skript. Problem: das Skript hängt sich immer (irgendwann bei "Next i") auf und muss debuggt werden. Ergo ist auch keine weitere Eingabe im Tabellenblatt möglich.
Die Berechnungen werden alle korrekt durchgeführt. Warum hängt sich das Skript auf?
Für einen Tipp bzw. eine Hilfe wäre ich sehr dankbar.
Gruß,
Ptonka
Private Sub Worksheet_Change(ByVal target As Range)
Wert = target.Value
Spalte = ActiveCell.Column
LZ = [A65536].End(xlUp).Row
Select Case Spalte
Case Is 1
Exit Sub
End Select
Select Case Wert
Case Is = ""
Exit Sub
Case Is ""
For i = 2 To LZ
Menge = Cells(i, 1).Value
If Menge = "" Then GoTo weiter
Cells(i, 2).Value = Cells(i, 1).Value * 0.25
weiter:
Next i
End Select
End Sub