Makroausführung verhindern
Ptonka
habe folgendes Makro als OnChange-Ereignis im Tabellenblatt.
Funktioniert auch prima.
Bei Änderung in einer Spalte wird entsprechend eine Berechnung in der gleichen Zeile in der Spalte daneben durchgeführt.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim I As Long
If ActiveCell.Column = 1 And Target "" Then
Application.EnableEvents = False
For I = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(I, 1).Value "" Then
Cells(I, 2).Value = Cells(I, 1).Value * 0.25
End If
Next I
Application.EnableEvents = True
End If
End Sub
Danke im Voraus,
Gruß,
Ptonka
Anzeige