Lijst aanvullen met VBA

[AlexCEL]

Beste forumleden, ik heb nu zelf even wat assistentie nodig. Mijn kennis van VBA is nogal basic namelijk.

Ik houd voor verschillende vestigingen van ons bedrijf meterstanden bij. Ik wil dit beetje automatiseren. Via een invulblad en een knop "opslaan" wil ik graag dat een lijst op een ander tabblad wordt aangevuld, en het invulblad weer leeggemaakt wordt. Dus de laatste invoer zoeken en daaronder de nieuwe invoer erbij plaatsen.
Voorbeeldje: Bekijk bijlage voorbeeldlijstje.xlsx

Wie kan me een beetje op weg helpen met de VBA code? Als ik een voorbeeld heb kom ik er zelf wel weer uit denk ik...

Bij voorbaat dank!

 

[edmoor]

Plak deze achter Blad1(Invulblad):

Private Sub Opslaan_Click()
    Dim nwRegel As Integer

    If ActiveSheet.Range("C3") <> "" Then
        nwRegel = Sheets("Lijst").UsedRange.Rows.Count + _
                  Sheets("Lijst").UsedRange.Row

        With Sheets("Lijst")
            .Range("A" & nwRegel).Value = DateValue(ActiveSheet.Range("C3"))
            .Range("B" & nwRegel).Value = ActiveSheet.Range("C4")
            .Range("C" & nwRegel).Value = ActiveSheet.Range("C5")
            .Range("D" & nwRegel).Value = ActiveSheet.Range("C6")
        End With
        Range("C3:C6").ClearContents
    End If
End Sub

 

[AlexCEL]

Heel hartelijk dank! Hier kan ik mee verder.