Opgelost Gegevens wissen uit cellen die gekoppeld zijn.

[heiko50]

Hallo allemaal,
Mede dank zij jullie hulp ben ik bijna klaar met mijn project.
Alleen nog dit:
Ik wil in cel D1/E1 een functie dat wanneer ik deze aanklik,
de gegevens uit kolom C worden gewist. Ik heb het geprobeerd,
maar kreeg een foutmelding omdat er een koppeling is tussen de kolommen.
Hoe kan dit opgelost worden?

 

[edmoor]

Zet dit achter het werkblad:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address(0, 0) = "D1:E1" Then
        Range("C7:C" & Range("C7").End(xlDown).Row).ClearContents
    End If
End Sub

 

[heiko50]

Gekopieerd en geplakt, maar er gebeurd niks als ik op de cel klik

 

[edmoor]

Dan heb je dat niet in de werkblad module gezet.

 

[heiko50]

Dit heb ik gedaan:
Alt en F11 ingedrukt, in userform de code geplakt en rechtsboven op het kruisje geklikt, zodat ik mijn werkblad weer in beeld heb

 

[edmoor]

En het document in #4 al getest en bekeken?

 

[heiko50]

Microsoft heeft de macro's uitgeschakeld, ik kan er niet verder mee

 

[edmoor]

Dan moet je na de download het document eerst deblokkeren:

 

[heiko50]

OK, prima, het werkt!
Laatste vraag (hoop ik):
Hoe pas ik dit op meerdere gebieden toe, bijvoorbeeld ook Y1:Z1 verwijderd de inhoud van row X

 

[emields]

row x bestaat niet.

 

[snb]

Of pak je leerproces systematisch op met Excel VBA voor Dummies van Alexander

 

[heiko50]

Sorry, ik bedoelde natuurlijk Kolom X.
Maar na een half uurtje stoeien heb ik het toch zelf gevonden!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address(0, 0) = "D1:E1" Then
        Range("C7:C" & Range("C7").End(xlDown).Row).ClearContents
    End If

    If Target.Address(0, 0) = "T1:U1" Then
        Range("S7:S" & Range("S7").End(xlDown).Row).ClearContents
    End If
End Sub

 

[edmoor]

Je zal kolom X bedoelen.
Maar doe het anders dan in #12:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Select Case Target.Address(0, 0)
        Case "D1:E1": Range("C7:C" & Range("C7").End(xlDown).Row).ClearContents
        Case "T1:U1": Range("S7:S" & Range("S7").End(xlDown).Row).ClearContents
        Case "Y1:Z1": Range("X7:X" & Range("X7").End(xlDown).Row).ClearContents
    End Select
End Sub

 

[heiko50]

Onze berichten hebben elkaar dus net gekruist.
Die code van jou ziet er beter en eenvoudiger uit om verder uit te breiden (professioneler?)
dus die ga ik gebruiken. Hartelijk dank!!
Op mijn PC werkt nu alles prima, maar mijn laptop blokkeert de macro's van het bestand.
Ik gebruik LibreOffice .Calc op de laptop. Ik ben al aan het zoeken geweest, maar nog niet gevonden waar ik de macro.s kan unlocken

 

[edmoor]

In Excel waarschijnlijk zo:
Bestand > Opties > Vertrouwenscentrum > Instellingen voor het Vertrouwenscentrum en zie plaatje.
Maar in LibreOffice Calc gaat dat niet werken.

 

[heiko50]

Dankjewel voor de info.
Ja, da's nou jammer, ik had dit speciaal gemaakt voor de laptop voor buiten-de-deur gebruik.
Betekend dat dat ik weer Excel moet kopen?

 

[edmoor]

Officieel wel, maar dat hoeft niet veel te kosten:

Microsoft Office 2019 Professional Plus - Office-keys.nl

Eenmalig aanschaffen, zonder abonnement! Direct geleverd per e-mail Geschikt voor Windows 10 en Windows 11 Ook geschikt voor Windows Server 2019 / 2022 / 2025 Downloaden via de officiële Office website Levenslange licentie Microsoft Office 2019 Professional Plus is het populairste pakket...

office-keys.nl

 

[heiko50]

OK, thnxx, ik ben binnenkort jarig, dus ik weet wat te vragen, toch?
Nogmaals hartelijk dank en misschien tot het volgende project.

 

[edmoor]

Succes!
En alvast gefeliciteerd