ich habe diese Abfrage und benötige noch eine weitere dritte.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("M7:M250"), Target) Is Nothing Then
Cancel = True
If Target = "" Then
Target = "a"
Else
Target.ClearContents
End If
ElseIf Not Intersect(Range("N7:N250"), Target) Is Nothing Then
Cancel = True
If Cells(Target.Row, 30) "" Then
If Target = "" Then
Target = "a"
Else
Target.ClearContents
End If
End If
End If
End Sub
ich habe den Code so abgeändert:Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("M7:M250"), Target) Is Nothing Then
Cancel = True
If Target = "" Then
Target = "a"
Else
Target.ClearContents
End If
ElseIf Not Intersect(Range("N7:N250"), Target) Is Nothing Then
Cancel = True
If Cells(Target.Row, 30) "" Then
If Target = "" Then
Target = "a"
Else
Target.ClearContents
End If
ElseIf Not Intersect(Range("O7:O250"), Target) Is Nothing Then
Cancel = True
If Cells(Target.Row, 21) "" Then
If Target = "" Then
Target = "a"
Else
Target.ClearContents
End If
End If
End If
End If
End Sub
Das klappt aber so nicht.
Was muß ich ändern ?
Liebe Grüße
Erik