Worksheet_DoubleClick und Change
02.02.2019 10:30:07
Wolfgang
ich habe eine Tabelle mit den Spalten "Anzahl" und "Name". Beim DoubleClick auf den Namen neben der "Anzahl" wird der Name entsprechen der "Anzahl" in die darunterliegenden Zeilen kopiert und der Hintergrund grün eingefärbt. Soweit alles ok. Möchte ich nun einen oder mehrere Namen löschen, dann bleibt der Hintergrund grün.
Aktiviere ich nun die auskommentierte Prozedur Worksheet_Change springt der Debugger an und markiert die fehlerhafte Zeile gelb.
Könnt Ihr mir sagen wo der Fehler liegt? Danke im Voraus.
Gruß Wolfgang.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Then
Cancel = True
If Target.Offset(0, -1) "" Then 'Spalte 1 "Anzahl"
If IsNumeric(Target.Offset(0, -1)) Then
With Target.Resize(Target.Offset(0, -1)) 'Spalte 2 "Name"
.Font.Name = "Calibri"
.Font.Size = 11
.Interior.ColorIndex = 43
.Value = Target
End With
End If
End If
End If
End Sub
'
Private Sub Worksheet_Change(ByVal Target As Range)
' If Target.Column = 2 Then
' If Target = "" Then 'Diese Zeile wird im Debugger gelb markiert.
' Target.Interior.ColorIndex = xlColorIndexNone
' End If
' End If
'End Sub