maximum 1 cel selecteren

[shidan]

weet iemand hoe ik in excel maximaal 1 cel kan laten selecteren?
Als ik meerdere cellen selecteer en verwijder of aanpas komt dit in conflict met mijn logging
(die maximum aanpassen van slechts één cel toelaat)

alvast met dank

 

[edmoor]

Als je niet laat zien wat je nu hebt is dat lastig te zeggen, maar misschien dat je kan testen op: Target.Count = 1

 

[shidan]

goedemiddag,

ik heb nog niet veel, vooraleer ik de file maak wil ik wel weten of dit kan.
ik probeer even met jouw voorstel

 

[edmoor]

De test die ik voorstelde is helemaal afhankelijk van het event dat de VBA routine start.

 

[shidan]

goedemiddag,

dit werkt alvast al:
als ik één cel wil aanpassen of wil plakken kom ik in het eerste deel terecht en loopt prima.
als ik er meerdere wil plakken kom ik in het tweede deel terecht en krijg de popup.

ik zie echter dat de cellen toch worden geplakt.
weet je toevallig ook hoe ik een actie (plakken van een cel) kan tegengaan met VBA?

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim sLogFileName As String, nFileNum As Long, sLogMessage As String

    'sLogFileName = ThisWorkbook.Path & Application.PathSeparator & "Log.txt"

    'dit is het path naar de logfile
    sLogFileName = "C:\Logging\Logfile.txt"
    
    If (Target.Count = 1) Then
        On Error Resume Next ' Turn on error handling
        If Target.Value <> PreviousValue Then
            ' Check if we have an error
            If Err.Number = 13 Then
                PreviousValue = 0
            End If
        
            ' Turn off error handling
            On Error GoTo 0
            sLogMessage = Now & " - " & Application.UserName & " changed cell " & Target.Address _
            & " from " & PreviousValue & " to " & Target.Value
        
            nFileNum = FreeFile                             ' next file number
            Open sLogFileName For Append As #nFileNum       ' create the file if it doesn't exist
            Print #nFileNum, sLogMessage                    ' append information
            Close #nFileNum                                 ' close the file
        End If
    Else: MsgBox ("Maximaal één cel gelijktijdig aanpassen of plakken !")
    End If
    
End Sub

 

[edmoor]

Maak de copybuffer leeg met: Application.CutCopyMode = False

 

[shidan]

goedemiddag,

de data komt eerst in de cellen en dan krijg ik pas de popup.
miss is een terugzetten van de oorspronkelijke data een oplossing?
(blauwe pijltje naar links)

kan dat via VBA?

 

[edmoor]

Wellicht met: Application.Undo

 

[shidan]

dat werkt maar ik kom in een oneindige lus terecht.
ik geraak telkens opnieuw in de VBA module Worksheet_Change
kan ik deze tijdelijk disabled zetten en erna opnieuw enabled?

 

[edmoor]

Begin de sub met: Application.EnableEvents = False
Aan het einde van de rit: Application.EnableEvents = True

 

[snb]

Als niet vertelt wat je wilt wordt ook deze draad een oneindige loop.

 

[shidan]

ik probeer dit morgen verder uit.
nu heb ik een vergadering.

thnx voor de info en de hulp