Combobox i Excel 2000 mm.

Lav din combobox med et kontroelement.
dobbeltklik på comboboxen. (du kommer så til kodesiden for elementet)
indsæt følgende kode:

Private Sub ComboBox1_Change()
Select Case ComboBox1.ListIndex
  Case 0: Range("A1").Select
  Case 1: Range("A2").Select
  Case 2: Range("A3").Select
  Case 3: Range("A4").Select
  Case 4: Range("A5").Select
  Case 5: Range("A6").Select
  Case 6: Range("A7").Select
  Case Else
    Range("b1").Select
End Select
End Sub

Private Sub ComboBox1_GotFocus()
Dim s()
s = Array("Man", "Tir", "Ons", "Tor", "Fre", "Lør", "Søn")
ComboBox1.List = s
End Sub

Det virker glimrende!!

1000 Tak!

Hvis du vil give point for det, så er her et svar :-)