ich habe diesen VBA Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rng As Range
Set rng = Range("M7:N250")
If Intersect(rng, Target) Is Nothing Then Exit Sub
Cancel = True
If Target = "a" Then
Target = ""
Else
Target = "a"
Target.HorizontalAlignment = xlCenter
End If
Dim i As Long
Application.ScreenUpdating = False
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 28) = "" Then
Cells(i, 14).Value = ""
End If
Next i
Application.ScreenUpdating = True
End Sub
Es kommt ein Laufzeitfehler 1004 - Anwendungs- oder objektdefinierter Fehler
Der Hintergrund ist die Zelle Spalte 14 (N) soll gelöscht werden wenn die Zelle 28 (AB) in der selben Zeile leer ist.
Was auch funktionieren würde wäre wenn der doppelklick sich nicht ausführen lassen würde wenn in der selbigen Zeile Zelle AB leer ist.
Allerdings soll die Range M7:M250 davon nicht betroffen sein.
Nur N (14)
Hoffe mein Problem ist verständlich
Gruß
Erik