🚀 go-pugleaf

Met het volgende zou het moeten lukken, U moet wel zorgen dat er in de
gebruikte kolom (hier A) steeds gegevens staan.

Sub ZoekLegeRij()
    Dim Rij As Integer
    Rij = 1
    Do Until Range("A" & Rij) = ""
        Range("A" & Rij).Select
        Rij = Rij + 1
    Loop
    Range("A" & Rij) = "LEEG"
    Range("A" & Rij).Select
End Sub

Succes,
Jos

NightOwl heeft geschreven in bericht <956078169.529498@marvin>...
>Ik zit met het volgende probleem :
>
>graag zou ik (voor een overzichtelijk rapport) enkele gegevens uit een
>Access db (waarvan sommige gewoon on the fly gegenereert worden) opslaan in
>een nieuwe Excel rij. Probleem : hoe spring je automatisch naar de eerste
>nieuwe (lege) rij?
>
>Bedoeling is dus : onderaan de al bestaande tabel een nieuw item toe te
>voegen?
>
>
>