Plakken als waarde standaard instellen in excel

Pagina: 1
Acties:

Vraag


Acties:
  • 0 Henk 'm!

  • Meneer Niels
  • Registratie: Mei 2020
  • Laatst online: 02-06-2020
Hallo

Ik heb een mooie excelsheet gemaakt waar meerdere collega's op moeten werken. Collega's gebruiken hier vaak copy/paste maar dat heeft als gevolg dat ze de opmaak mee wijzigen. Ze kunnen dit natuurlijk vermijden door te plakken als waarde, maar dat wordt vaak gewoon vergeten.

Is het mogelijk om dit als standaard in te stellen dat als er iets geplakt wordt, dat dit dan als waarde wordt geplakt? In de opties heb ik de oplossing niet gevonden waardoor ik vermoed dat dit niet mogelijk is. Kan dit met VBA ingesteld worden?

Beste antwoord (via Meneer Niels op 26-05-2020 12:32)


  • F_J_K
  • Registratie: Juni 2001
  • Niet online

F_J_K

Moderator CSA/PB

Front verplichte underscores

Welkom :)

zoeken bij google naar 'excel default paste as value' geeft hier een boel tips over. Waar het inderdaad via VBA kan.
code:
1
2
3
Sub PasteasValue()
  Selection.PasteSpecial Paste:=xlPasteValues
End Sub


Maar: ik begrijp dat je het bij collega's wilt uitrollen? VBA werkt niet zomaar bij anderen, dat (certificaat verspreiden) zal je dan liefst bedrijfsbreed moeten (laten) regelen door de beheerders. Ga niet mensen aanleren te makkelijk andermans VBA te openen.

'Multiple exclamation marks,' he went on, shaking his head, 'are a sure sign of a diseased mind' (Terry Pratchett, Eric)

Alle reacties


Acties:
  • 0 Henk 'm!

  • HenkDePoema
  • Registratie: Oktober 2005
  • Laatst online: 19-06 22:46
Gevonden, mbv google, op https://answers.microsoft...d5-4c80-a64b-5e71ec8ad38b:
Actually you can override Ctrl+V behavior in VBA. Alt+F11 > Insert Module > Copy and paste the below code

code:
1
2
3
4
5
6
7
8
9
10
Sub pasteVal()
ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, _
        DisplayAsIcon:=False 
End Sub

This time copy the below code in "ThisWorkBook" instead of new Module

Private Sub Workbook_Open()
    Application.OnKey "^v", "pasteVal"
End Sub


Now you can use Ctrl+V to paste as Unicode

Acties:
  • Beste antwoord
  • 0 Henk 'm!

  • F_J_K
  • Registratie: Juni 2001
  • Niet online

F_J_K

Moderator CSA/PB

Front verplichte underscores

Welkom :)

zoeken bij google naar 'excel default paste as value' geeft hier een boel tips over. Waar het inderdaad via VBA kan.
code:
1
2
3
Sub PasteasValue()
  Selection.PasteSpecial Paste:=xlPasteValues
End Sub


Maar: ik begrijp dat je het bij collega's wilt uitrollen? VBA werkt niet zomaar bij anderen, dat (certificaat verspreiden) zal je dan liefst bedrijfsbreed moeten (laten) regelen door de beheerders. Ga niet mensen aanleren te makkelijk andermans VBA te openen.

'Multiple exclamation marks,' he went on, shaking his head, 'are a sure sign of a diseased mind' (Terry Pratchett, Eric)


Acties:
  • 0 Henk 'm!

  • Meneer Niels
  • Registratie: Mei 2020
  • Laatst online: 02-06-2020
Dat werkt al wanneer ctr + v wordt gebruikt.
Wanneer cellen met de vulgreep worden doorgetrokken blijft het probleem helaas.
Maar ik laat het los. Bij deze erg bedankt voor de info.

Acties:
  • 0 Henk 'm!

  • wheez50
  • Registratie: Oktober 2003
  • Laatst online: 00:30
Ikzelf los het op met knip-en-plakstroken. Alle formules in de cel ernaast (met evt if exist). Die cellen lock je. En dan verwijs je naar de waarde van de cel ernaast.

Acties:
  • 0 Henk 'm!

  • F_J_K
  • Registratie: Juni 2001
  • Niet online

F_J_K

Moderator CSA/PB

Front verplichte underscores

Voor als je er toch nog eens naar gaat kijken:
Meneer Niels schreef op dinsdag 26 mei 2020 @ 12:31:
Wanneer cellen met de vulgreep worden doorgetrokken blijft het probleem helaas.
Klopt. Als je ook dat wilt voorkomen, is het misschien beter de meeste cellen te beveiligen tegen (opmaak-)aanpassingen. Nadeel is dat het dan ook niet handmatig meer kan zonder die beveiliging uit te zetten.

'Multiple exclamation marks,' he went on, shaking his head, 'are a sure sign of a diseased mind' (Terry Pratchett, Eric)

Pagina: 1