Target-Anweisung mit Multiplikation erweitern
19.06.2014 13:10:44
Klaus Lang
Hallo Excelfreunde,
ich habe mir die nachstehende Prozedur von Hajo "zurecht gepfriemelt" (DANKE Hajo!) und möchte gerne die Zeile "Cells(Target.Row, 8) = Target.Column - 3" ergänzen mit einer Multiplikation einer jeweils in der Spalte B stehenden Zahl. Aber ich komme nicht weiter mit
"Cells(Target.Row, 8) = Target.Column - 3 * Selection.Offset(0, -6).Value" oder
"Cells(Target.Row, 8) = Target.Column - 3 * Target.Column 2".
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column > 3 And Target.Column < 8 And Target.Row > 8 Then
ActiveSheet.Unprotect
' damit Cursor nicht in Zelle nach Doppelklick
Cancel = True
' vorhandene Haken löschen im Bereich
Range("D" & Target.Row & ":H" & Target.Row).Value = ""
With Target
.Value = "a" ' Buchstabe a eintragen
.Font.Name = "Webdings" ' Schriftart
End With
' in Spalte H entsprechend Auswahl Wertigkeit eintragen
Cells(Target.Row, 8) = Target.Column - 3
'ActiveSheet.Protect
End If
End Sub
Vielen Dank schon mal vorab.