Avatar billede tummas Nybegynder
03. november 2010 - 13:45 Der 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.
Avatar billede supertekst Ekspert
03. november 2010 - 14:27 #1
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

End Sub
Avatar billede tummas Nybegynder
03. november 2010 - 14:37 #2
Tusind tak for hjælpen.
Det virkede.
Send et svar og du får point.
Avatar billede supertekst Ekspert
03. november 2010 - 14:46 #3
Selv tak ..
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester



Seneste spørgsmål Seneste aktivitet
I dag 06:10 Excel åbner fil i kæmpe format Af Aske i Excel
I går 22:00 Datafordeler Af Lsk i PHP
I går 12:37 Summere beløb pr. dato Af TTA i Excel
31/1022:44 Tilslutte chassic fans Af viking69 i PC
31/1020:28 LED lysstofrør Af ErikHg i Fri debat