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