Markering til videre brug

Er der en 3. mulighed - udover DK & SE?

Hvis ikke - er det vel kun nødvendigt at markere en af kategorier.

Via VBA kan det lade sig gøre.

Nej der er kun de 2 konti. En konto i Danmark og en i Sverige hvor de faste udgifter trækkes fra f.eks. således:

A-kasse
Boliglån
Pension
Licens

Hvor a-kasse og pension trækkes fra dansk konto mens boliglån og licens trækkes fra svensk.

Hvordan vil du markere en kategori med VBA? Det skal siges at VBA ikke er min stærke side.

Er blevet i tvivl om, hvad det er du vil have hjælp til.

Evt. kunne du måske opbygge en lille model, som du er velkommen til at sende til mig (mailadressen under profil) - så skal jeg i givet fald skrive den nødvendige VBA-kode.

Beklager jeg har forklaret mig lidt utydeligt.

Jeg har et helt normalt budget, som blandt andet bruges til at få overblik over kommende udgifter.
Et af hovedformålene med et budget er at vide hvor meget der skal stå på ens budgetkonto for altid kunne betale regningerne. Denne øvelse er ganske nemt, hvis man kun har 1 budgetkonto. Man lægger alle fast udgifter sammen og deler med 12 og man ved hvad der skal overføres til budgetkontoen hver måned.

I mit tilfælde er det lidt mere kompliceret da jeg har 2 budgetkonti - da jeg har udgifter i 2 lande. Så jeg søger en nem måde at markere hvilke udgifter der betales fra dansk budgetkonto og hvilke der betales fra svensk budget konto.
En løsning kunne naturligvis være at spilte ens budget op i 2, men så mister man overblikket over ens samlede økonomi.

Forenklet udgave:
Pension (DK) 1000
Opsparing (DK) 1500
Husleje (SE) 5000
Boliglån (SE) 4000
El (SE) 300
Benzin (DK) 1000

Total (DK) 3500
Total (SE) 9300
Total 12800

Nuværende budget kan findes her:
http://www.swoop.dk/Budget.ods
http://www.swoop.dk/Budget.xls

Så målet er tilføjelse af 2 ekstra rækker, som viser det totale svenske og danske udgifter hver måned.

PS hvis man kan øge antal point for opgaven gør jeg gerne det :-)

Har model 1 klar - send en mail (se under min profil) og jeg returnerer filen.

Rem Model 1
Rem =======
Rem Hvis der sker ændring i celle, hvor teksten i kolonne A er farvet som Dk eller
Rem SE - optælles begge DK / SE beløb i den pågældende kolonne
Rem
Rem OBS.:
Rem P.t. sker der ingen optælling ved ændring af farve i kolonne A - kun ændring af beløb
Rem
Rem KODEN KOPIERES & INDSÆTTES UNDER PÅGÆLDENDE ARK-FANE(højreklik / Vis programkode)

Rem KAN TILPASSES:
Const dkFarve = 3                                  'rød
Const dkRække = 58

Const seFarve = 6                                  'gul
Const seRække = 59
Rem ==============

Dim kolAFarve
Dim dkTotal As Long, seTotal As Long, flag As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
Dim række, kolonne
    række = Target.Row
    kolonne = Target.Column
   
    If flag = False And række < dkRække Then
        kolAFarve = Range("A" & CStr(Target.Row)).Interior.ColorIndex
        If kolAFarve = dkFarve Or kolAFarve = seFarve Then
            flag = True
            optælDkSe kolonne
            flag = False
        End If
    End If
End Sub
Private Sub optælDkSe(kol)
    dkTotal = 0
    seTotal = 0
    Application.ScreenUpdating = False
   
    For ræk = 1 To dkRække - 1
        With Cells(ræk, 1)
            If .Interior.ColorIndex = dkFarve Then
                dkTotal = dkTotal + Cells(ræk, kol).Value
            Else
                If .Interior.ColorIndex = seFarve Then
                    seTotal = seTotal + Cells(ræk, kol).Value
                End If
            End If
        End With
    Next ræk
   
    Cells(dkRække, kol) = dkTotal
    Cells(seRække, kol) = seTotal
   
    Application.ScreenUpdating = True
End Sub

1000 tak for hjælpen - det fungerer endnu bedre og nemmere end jeg havde ønsket.

Selv tak - så får du et svar