🚀 go-pugleaf

"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