Liste til tabel

Rem Koden anbringes under arket Kontoudskrift
Rem =========================================
Const kontoUdskriftArkNavn = "kontoudskrift"
Dim ktoArk As Worksheet
Dim månedNr As Byte, ktoTekst As String, beløb As Long

Const årsbudgetArkNavn = "årsbudget"
Dim budgetArk As Worksheet
Dim budgetRække
Sub opdaterBudget()                                'Kan forbindes med knap ellerkaldes fra Alt+f8
Dim ræk As Integer, sidsteRække As Integer
    Set ktoArk = ActiveWorkbook.Sheets(kontoUdskriftArkNavn)
    Set budgetArk = ActiveWorkbook.Sheets(årsbudgetArkNavn)
   
Rem traverser kontoudskrift
    sidsteRække = ActiveCell.SpecialCells(xlLastCell).Row
   
    For ræk = 2 To sidsteRække
        månedNr = Cells(ræk, 1)
        ktoTekst = Cells(ræk, 2)
        beløb = Cells(ræk, 3)
       
        budgetRække = findBudgetRække(ktoTekst)
        If budgetRække > 0 Then
            With budgetArk.Cells(budgetRække, månedNr + 1)
                .Value = beløb
                .Font.ColorIndex = 3
            End With
        Else
            MsgBox ("Kontotekst: " & ktoTekst & " kunne ikke findes i årsbudget!")
        End If
    Next
   
    MsgBox ("Opdatering afsluttet")
End Sub
Private Function findBudgetRække(kontotekst)
    With budgetArk.Range("A:A")
        Set c = .Find(kontotekst, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            findBudgetRække = c.Row
        Else
            findBudgetRække = 0
        End If
    End With
End Function

Sådan!!!Supertekst
Det virker perfekt.....endda med et par ekstra features...smukt

Fint & tak - du får så "regningen"