TextBox1.value="" 
TextBox2.value=""
osv....

Sub LukOgAabenUserform()
    'Lukker UserFormen ned.
    Unload UserForm1

    'Åbner den op igen.
    UserForm1.Show
End Sub

Sub GørNoget

End Sub

'Subroutinen hedder altid UserForm_Initialize uanset hvad du har navnet userformen :-)
Private Sub UserForm_Initialize()
    'Tilføjer Kontonummerne til Comboxen
    With cmbKonto
        .AddItem ("1000")
        .AddItem ("1050")
    End With
    
    'Sætter Standardteksterne
    tbDato.Value = "dd-mm-åååå"
    tbTekst.Value = "Hvad er der købt!"
    tbUdgift.Value = ""
    tbIndtaegt.Value = ""
End Sub

Private Sub btnAfslut_Click()
'Afslutter UserFormen
Unload Me
End Sub

Private Sub cmbTilføj_Click()
    Dim NuvarrendeMaksId As Integer
    Dim NytId As Integer
    Dim NyCelle As Range

    'Aktiverer Hovedarket. "shHovedArk" er arkets kodenavn, som jeg har givet det. Det gør, at du kan ændre teksten/navnet på arket som brugeren ser uden at det påvirker koden. Smart :-)
    shHovedArk.Activate
    
    'Lidt tjek af data inden vi fortsætter
    If Not cmbKonto.ListIndex > -1 Then
        MsgBox "Du skal vælge en konto", vbOKOnly + vbCritical, "Fejl"
        Exit Sub
    End If
    
    If Not IsDate(tbDato.Value) Then
        MsgBox "Du skal skrive en gyldig dato. Format: dd-mm-åååå", vbOKOnly + vbCritical, "Fejl"
        Exit Sub
    End If
    
    If Not IsNumeric(tbIndtaegt.Value) Or Not IsNumeric(tbUdgift.Value) Then
        MsgBox "Indtægter og udgifter skal være tal", vbOKOnly + vbCritical, "Fejl"
        Exit Sub
    End If
    
    'Finder ud af hvad den nuværrende maksimale værdi af ID er.
    NuvarrendeMaksId = WorksheetFunction.Max(Range("A:A"))
    
    'Sætter det nye ID
    NytId = NuvarrendeMaksId + 1
    
    'Finder ud af hvad den næste frie celle er, hvor der skal stå ID.
    Set NyCelle = Range("A9999").End(xlUp).Offset(1, 0)
    
    'Skriver værdierne. Offset-Funktionen skal læses som. Tag cellen NyCelle, og gå 0-rækker til højre og hhv. 0,1,2,3,4,5 kolonner til højre.
    NyCelle.Offset(0, 0).Value = NytId
    NyCelle.Offset(0, 1).Value = cmbKonto.Value
    NyCelle.Offset(0, 2).Value = tbDato.Value
    NyCelle.Offset(0, 3).Value = tbTekst.Value
    NyCelle.Offset(0, 4).Value = tbUdgift.Value
    NyCelle.Offset(0, 5).Value = tbIndtaegt.Value
    
    'Til respons
    MsgBox "Tilføjet ny bon", vbOKOnly + vbInformation, "Tilføjet"
    
    'Gøres når alt overstående er gennemkørt
    NulstilAlleFelter
End Sub

Private Sub NulstilAlleFelter()
    cmbKonto.ListIndex = -1 ' Nulstiller comboboxen. Hvis sættes til 0, da vælges det første item i listen, 1 vælges det 2. item osv.

    'Nulstiller alle felter
    tbDato.Value = "dd-mm-åååå"
    tbTekst.Value = "Hvad er der købt!"
    tbUdgift.Value = ""
    tbIndtaegt.Value = ""
End Sub

Private Function findKontonavn(kontonr As Long) As String
    Dim rng As Range
    
    'finder ud af hvor kontonr. står
    Set rng = Ark2.Range("A:A").Find(What:=kontonr, lookat:=xlWhole)
    
    'Tjekker om der rent faktisk blev fundet noget
    If Not rng Is Nothing Then
        'Retunerer værdien fra cellen ved siden af (altså beskrivelsen)
        findKontonavn = rng.Offset(0, 1).Value
    Else
        'Hvis der ikke bliver fundet noget
        MsgBox "Der blev ikke fundet nogen konto, med kontonr " & kontonr, vbOKOnly + vbCritical, "Ingen konto fundet"
        findKontonavn = vbNullString
        Exit Function
    End If
End Function

Private Sub cmbKonto_Change()
    'Sætter teksten til label.
    lblKontonavn.Caption = findKontonavn(cmbKonto.Value)
End Sub

'Subroutinen hedder altid UserForm_Initialize uanset hvad du har navnet userformen :-)
Private Sub UserForm_Initialize()
    Dim kontonr As Variant

    'Tilføjer Kontonummerne til Comboxen. Tilføjer alle de kontonr. som står i arket kontoPlan
    For Each kontonr In Ark2.Range("A2", Ark2.Range("A2").End(xlDown))
        cmbKonto.AddItem kontonr
    Next kontonr
    
    'Sætter Standardteksterne
    tbDato.Value = ""
    tbTekst.Value = "Hvad er der købt!"
    tbUdgift.Value = ""
    tbIndtaegt.Value = ""
End Sub