Hej Per
Det kan laves lidt mere simpelt, men nedenstående giver lidt mere forståelse for hvad der sker.
Sæt det ind i F.eks. Sheet1
Håber du kan bruge det og giver mening :-)
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Range("A1").Value
Case 1
Call macro1 'Kalder macro1
Case 2
Call macro2 'Kalder macro2
Case 3
Call macro3 'Kalder macro3
Case 4
Call macro4 'Kalder OSV......
Case 5
Call macro5
Case 6
Call macro6
Case 7
Call macro7
Case 8
Call macro8
Case 9
Call macro9
Case 10
Call macro10
Case 11
Call macro11
Case 12
Call macro12
Case 13
Call macro13
Case 14
Call macro14
Case 15
Call macro15
Case 16
Call macro16
Case 17
Call macro17
Case 18
Call macro18
Case 19
Call macro19
Case 20
Call macro20
Case 21
Call macro21
Case Else
Exit Sub
End Select
End Sub
Sub macro1()
MsgBox "A1 er lig med 1" 'Udskift dette med den macro du vil køre.
End Sub
Sub macro2()
MsgBox "A1 er lig med 2" 'Udskift dette med den macro du vil køre.
End Sub
Sub macro3()
MsgBox "A1 er lig med 3" 'Udskift dette med den macro du vil køre.
End Sub
Sub macro4()
MsgBox "A1 er lig med 4" 'Udskift dette med den macro du vil køre.
End Sub
Sub macro5()
MsgBox "A1 er lig med 5" 'Udskift dette med den macro du vil køre.
End Sub
Sub macro6()
MsgBox "A1 er lig med 6" 'Udskift dette med den macro du vil køre.
End Sub
Sub macro7()
MsgBox "A1 er lig med 7" 'Udskift dette med den macro du vil køre.
End Sub
Sub macro8()
MsgBox "A1 er lig med 8" 'Udskift dette med den macro du vil køre.
End Sub
Sub macro9()
MsgBox "A1 er lig med 9" 'Udskift dette med den macro du vil køre.
End Sub
Sub macro10()
MsgBox "A1 er lig med 10" 'Udskift dette med den macro du vil køre.
End Sub
Sub macro11()
MsgBox "A1 er lig med 11" 'Udskift dette med den macro du vil køre.
End Sub
Sub macro12()
MsgBox "A1 er lig med 12" 'Udskift dette med den macro du vil køre.
End Sub
Sub macro13()
MsgBox "A1 er lig med 13" 'Udskift dette med den macro du vil køre.
End Sub
Sub macro14()
MsgBox "A1 er lig med 14" 'Udskift dette med den macro du vil køre.
End Sub
Sub macro15()
MsgBox "A1 er lig med 15" 'Udskift dette med den macro du vil køre.
End Sub
Sub macro16()
MsgBox "A1 er lig med 16" 'Udskift dette med den macro du vil køre.
End Sub
Sub macro17()
MsgBox "A1 er lig med 17" 'Udskift dette med den macro du vil køre.
End Sub
Sub macro18()
MsgBox "A1 er lig med 18" 'Udskift dette med den macro du vil køre.
End Sub
Sub macro19()
MsgBox "A1 er lig med 19" 'Udskift dette med den macro du vil køre.
End Sub
Sub macro20()
MsgBox "A1 er lig med 20" 'Udskift dette med den macro du vil køre.
End Sub
Sub macro21()
MsgBox "A1 er lig med 21" 'Udskift dette med den macro du vil køre.
End Sub