VBA, Tjek om specifik celle er valgt

If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub

Tak for hjælpen, excelent.

Det er første gang jeg bruger siden,
hvordan giver jeg dig point?

Mvh Jens

marker box med navn og klik accepter

Hej Excelent.

Jeg har nu prøvet koden:

Sub SletIndtastninger()

    If Intersect(Target, Sheets("Forside").Range("C6")) Is Nothing Then Exit Sub
       
        Range("C11:G12,B15:H15,A17:H18,C20:G22").Value = """"
   
   
    If Intersect(Target, Sheets("Forside").Range("C11")) Is Nothing Then Exit Sub
     
        Range("B15:H15,A17:H18,C20:G22").Value = """"
   
   
    If Intersect(Target, Sheets("Forside").Range("B15")) Is Nothing Then Exit Sub
     
        Range("A17:H18,C20:G22").Value = """"
   
   
    If Intersect(Target, Sheets("Forside").Range("A17")) Is Nothing Then Exit Sub
     
        Range("C20:G22").Value = """"
   
End Sub

Desværre får jeg en runtime424 error object required

Kan du hjælpe?

Mvh Jens

Nej Target virker i en hændelses makro - troede det var det du mente

Skal "C11:G12,B15:H15,A17:H18,C20:G22" slettes når C6 er tom osv ?

Nej De valgte ranges skal slettes når C6, C11 o.s.v. vælges (klikkes på)

Det er nogle hierakiske dynamiske lister, og for at undgå fejltagelser
skal tidligere valgte undeliggende listeværdier slettes
når en ny listeværdi i en oveliggende liste vælges.

Giver det mening?

Indsæt denne i ark Forside's kodemodul

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("C6,C11,B15, A17")) Is Nothing Then Exit Sub
If Target.Address = "$C$6" Then Range("C11:G12,B15:H15,A17:H18,C20:G22") = ""
If Target.Address = "$C$11" Then Range("B15:H15,A17:H18,C20:G22") = ""
If Target.Address = "$B$15" Then Range("A17:H18,C20:G22") = ""
If Target.Address = "$A$17" Then Range("C20:G22") = ""
End Sub

Når jeg åbner workbooken får jeg denne fejl:

Compile error: ambiguous name detected: Worksheet_SelectionChange

har du 1 i forvejen ?

Hvad mener du med 1, en værdi i C6? Det er der ikke når WB åbner, der kører en rutine der sletter værdier fra sidst WB blev lukket.

Jeg har ændret sub-navnet og kalder den fra "Forside", nu får jeg igen

runtime error 424 i første "IF"-sætning

Sub SletNyeIndtastninger()

    If Intersect(Target, Range("C6,C11,B15, A17")) Is Nothing Then Exit Sub
    If Target.Address = "$C$6" Then Range("C11:G12,B15:H15,A17:H18,C20:G22") = ""
    If Target.Address = "$C$11" Then Range("B15:H15,A17:H18,C20:G22") = ""
    If Target.Address = "$B$15" Then Range("A17:H18,C20:G22") = ""
    If Target.Address = "$A$17" Then Range("C20:G22") = ""
   
End Sub

Hvis du mener Worksheet_SelectionChange, ja så bruger jeg den handle i forvejen:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    FjernOverskrift
   
    DependentLists
   
    LookupFunktioner
   
    SletNyeIndtastninger

End Sub

ja jeg mener Worksheet_SelectionChange
kan den samme anvendes til min kode ?
for eller køres koden ikke når du selecter c6,c11 osv

Ja din kode kan køres med den handle, men som sagt, jeg får en
runtime error 424 object required fejl, når jeg kører subrutinen "SletNyeIndtastniger"

nej jeg mener om min kode kan indsættes i din
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Nu er jeg med, Ja koden kører fint i
Private Sub Worksheet_SelectionChange(ByVal Target As Range),
men den sletter ikke værdierne

Nu ser det således ud, er det det du mener?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    FjernOverskrift
   
    If Intersect(Target, Range("C6,C11,B15, A17")) Is Nothing Then Exit Sub
    If Target.Address = "$C$6" Then Range("C11:G12,B15:H15,A17:H18,C20:G22") = ""
    If Target.Address = "$C$11" Then Range("B15:H15,A17:H18,C20:G22") = ""
    If Target.Address = "$B$15" Then Range("A17:H18,C20:G22") = ""
    If Target.Address = "$A$17" Then Range("C20:G22") = ""
   
    DependentLists
   
    LookupFunktioner

End Sub

Det kører uden bugs, men værdierne bliver ikke fjernet

er det ikke i samme ark der skal slettes som hvor der testes for hvilken celle der er valgt ?

Jo

hvis du markerer celle C6 så slettes Range"C11:G12,B15:H15,A17:H18,C20:G22"

hvis ikke så gå lige ind i kodemodulet og luk det igen ved kryds oppr i højre hjørne, og klik ok

Det hjælper desværre heller ikke,
kan jeg sende dig WB?

ja det må du gerne
pm@madsen.tdcadsl.dk

post på vej

prøv:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    FjernOverskrift
   
    If Intersect(Target, Range("$C$6,C11,B15, A17")) Is Nothing Then Exit Sub

    If Target.Address = "$C$6:$G$8" Then Range("C11:G12,B15:H15,A17:H18,C20:G22") = ""
   
    If Target.Address = "$C$11:$G$12" Then Range("B15:H15,A17:H18,C20:G22") = ""
 
    If Target.Address = "$B$15:$H$15" Then Range("A17:H18,C20:G22") = ""
 
    If Target.Address = "$A$17:$I$18" Then Range("C20:G22") = ""
   
    DependentLists
   
    LookupFunktioner

End Sub

Nu fungerer det fint.
Tusind tak for hjælpen.
Hvor lå fejlen?
Mvh Jens

Du havde flettede celler, så er target ikke en enkelt celle, men flere

OK, det er en god ting at huske

Mvh Jens