🚀 go-pugleaf

Alain,
Het geflikker kan vermeden worden door Application.Screenupdating = false
Groetjes

Alain Cloet <nospam@tijd.com> wrote in message
news:9R8u6.5243$yz3.169962@iguano.antw.online.be...
>
> "Paul Hostens" <paul.hostens@pandora.be> wrote in message
> news:nB6u6.22867$tk.2201851@afrodite.telenet-ops.be...
> > Patrick
> > Geef volgende kode in (In de Worksheet Tab van Blad1)
> >
> > Private Sub Worksheet_SelectionChange(ByVal Target as Range)
> ...
> >    Sheets("Blad2").Activate
> ...
> >    Sheets("Blad1").Activate
> > End Sub
>
> Ik vond het geflikker van de bladwissels enerverend, en heb de functie dan
> maar aangepast... ;-)
> (was eigenlijk begonnen als aanpassing, maar er is uiteindelijk nagenoeg
> niets van overgebleven ; heb ook de Dim weggenomen, zag het nut er niet
van
> in)
>
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>     CelInhoud = ActiveCell.Value
>     If Sheets("Blad2").Range("a1").Value = "" Then
>         Sheets("Blad2").Range("a1").Value = CelInhoud
>     ElseIf Sheets("Blad2").Range("a2").Value = "" Then
>         Sheets("Blad2").Range("a2").Value = CelInhoud
>     Else
>         LaatsteRij = Sheets("Blad2").Range("a1").End(xlDown).Row()
>         Sheets("Blad2").Cells(LaatsteRij + 1, 1).Value = CelInhoud
>     End If
> End Sub
>
> Ter info: dit is absoluut niets voor specialisten, een beetje gepruts en
je
> geraakt er wel (je moet wel heel goed weten wat je wil), ik doe het ook
> zo...
>
> groeten&succes,
> Alain
>
>
>
>