Mangler en makro bid.

Private Sub ComboBox1_Change()

End Sub

ovenstående sub kører når du ændrer i combobox1

ASKIMS

Den nemmeste måde at lave det på er at lave comboboxen i regnearket, hvorefter du sørger for at designtilstanden er slået til (den knap med tegnetrekanten på). Herefter dobbeltklikker du på comboboxen, så genererer den ovenstående sub.

Det er jeg med på.

Det jeg har brug for er den makro jeg
skal sætte ind for at den udfører ovennævnte.

Private Sub ComboBox1_Change()
if cells("b5")="valuta" then
makro1
end if
if cells("b5")="DKK" then
makro2
end if
End Sub

Således ?

Hvis makroen ligger i et andet modul kan du bruge følgende +  metoden fra askims:

Application.Run "Makro1"

Okay...efter lidt forskellige forsøg med at ændre til range og huske at
angive at der er tale om en tekst (og også tak for den med application.Run)
det hjalp også...ja så funker nedennævnte...super !

Private Sub ComboBox1_Change()
If Worksheets("Valuta").Range("b5").Text = "DKK" Then
application.Run "makro1"
End If
If Worksheets("Valuta").Range("b5").Text = "VALUTA" Then
application.Run "makro2"
End If
End Sub

eller...sådan

Private Sub ComboBox1_Change()
    Select Case UCase(Worksheets("Valuta").Range("b5").Value)
        Case "DKK"
            Application.Run "makro1"
        Case "VALUTA"
            Application.Run "makro2"
    End Select
End Sub

NB. på et Range-objekt bruges normalt .Value og ikke .Text

Application.Run er nu ikke nødvendig, hvis din makro hedder:

Public Sub makro2()
End Sub

Application.Run er dog nødvendig, hvis makro'en ligger i en anden fil.