Rechenoperation Makro bei Target Change
08.12.2005 18:28:24
Klaus
Ist es möglich, und wenn ja wie,
über das Ereignis Worksheet_SelectionChange, folgende Rechenop durchzuführen?
Eurobetrag in Spalte K/Target geteilt durch Spalte L/Target
und Ergebnis in Spalte M/Target ausgeben.
Makro deshalb, weil das Ergebnis dann automatisch in eine andere Tabelle
kopiert werden soll (das hab ich schon gelöst)
Hier mein Versuch mit der Rechenop....
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Betrag in Spalte K in Euro zB.:(22,00 )
'Geteilt durch Wert (Ganzzahl) in Spalte L zB.: 2
'Ergebnis ausgebne in Spalte M zB.: 11,00
'Fehler abfangen, wenn weder in Spalte K oder L vom TARGET ein Wert steht
If Not Intersect(Target, Range("K6:L46")) Is Nothing Then
Cancel = True
cells(Target + 1).Value = cells(Target - 1).Value / cells(Target).Value
'...Restliche Anweisung
End Sub
Danke vorab und Gruss von
Klaus
Anzeige