|
Vielen Dank für die Info.
Ich habe den Code Schnipsel in die Workbook Sub sheets by change eingefügt.
Wenn ich jetzt ne ganze Zeile löschen will, läuft er auf einen Typen unverträglich Fehler.
Was hab ich denn falsch deklariert oder vergessen?
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim cell, msg, ad
For Each cell In Target
ad = Replace(cell.Address, "$", "")
If Target = "" Then
msg = MsgBox("Wollen Sie wirklich " & ad & " löschen ?", vbYesNo)
If msg = vbNo Then
applicalion.Undo
Exit Sub
End If
End If
Next
End Sub
|