• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Een range wissen na invoer in die range (excl invoer)

Status
Niet open voor verdere reacties.

Excel dick

Gebruiker
Lid geworden
22 sep 2008
Berichten
23
In een kolom wil ik een invoer doen waarbij automatisch de rest (de op één na laatste invoer) in die kolom gewist wordt. (die regel wil ik nl kunnen selecten met een vert.zoekfunctie)

Hoe kan ik dat doen??

Alvast bedankt voor jullie hulp!!
 
Dat zou zo kunnen:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then Range(Cells(1, Target.Column), Target.Offset(-1, 0).Address).ClearContents
End Sub

Met vriendelijke groet,


Roncancio
 
Hmm werkt mooi maar..

Hoi Roncancio,

Dank je wel...dit is de bedoeling: het haalt inderdaad de invoer weg boven de laatste invoer staat..maar niet die eronder staat ??

Is daar ook een oplossing voor?

mvrgr Dick
 
Hoi Roncancio,

Dank je wel...dit is de bedoeling: het haalt inderdaad de invoer weg boven de laatste invoer staat..maar niet die eronder staat ??

Is daar ook een oplossing voor?

mvrgr Dick

Uiteraard.

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
    Range(Cells(1, Target.Column), Target.Offset(-1, 0).Address).ClearContents
    Range(Cells(Target.Row + 1, Target.Column), Cells(65536, Target.Column)).ClearContents
End If
End Sub

Met vriendelijke groet,


Roncancio
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan