03. november 2010 - 13:45Der er
2 kommentarer og 1 løsning
Skal spørge hvis indhold af celler deletes eller overskrives
Jeg har prøvet at oprette en kode hvor brugeren bliver spurgt om man er sikker på at indhold i celler skal slettes eller ændres, hvis der trykkes på delete eller indhold overskrives.
Hvis celler allerede er tomme så kan man frit indtaste.
Vil gerne have at koden gælder for alle ark i samme Workook.
Forslag: Rem Koden anbringes i VBA-vinduet / ThisWorkBook
Dim erUdfyldt As Boolean, indHold As Variant Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If erUdfyldt = True Then svar = MsgBox("Vil du overskrive indhold?", vbYesNo) If svar <> 6 Then erUdfyldt = False Target.Value = indHold End If End If End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If Target.Value <> "" Then erUdfyldt = True indHold = Target.Value Else erUdfyldt = False indHold = "" End If
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.