16. januar 2018 - 09:09 Der er 3 kommentarer

Omskrivning af kode fra 2010 til 2000 version

Hej eksperter
Jeg har længe nørklet med en kode i Excel der afgør om en shape i form af en frame med checkboxes skal vises og ikke vises. Nu har jeg endelig knækket koden, og alt er godt.... altså lige indtil jeg sendte dokumentet til en kunde der bruger en tidligere version af Excel. Resultatet er, at makroen slet ikke virker. Som jeg læser det, så skal man lave makroen så den passer til en XLS, for når jeg gemmer dukumentet som en XLS, så siger den at den ikke er kompatibel. Er der én der kan hjælpe med at skrive en kode mage til nedenstående, men hvor den er kompatibel til Excel version 2000?

Code
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("H29")) Is Nothing Then ActiveSheet.Calculate
If Range("H29").Value = 1 Then
Me.Shapes("Frame2").Visible = False
Me.Shapes("Frame3").Visible = False
Me.Shapes("Frame4").Visible = False
Me.Shapes("Frame5").Visible = False
Me.Shapes("Frame1").Visible = True
Else
Me.Shapes("Frame1").Visible = False
End If
If Range("H29").Value = 2 Then
Me.Shapes("Frame2").Visible = True
Else
Me.Shapes("Frame2").Visible = False
End If
If Range("H29").Value = 3 Then
Me.Shapes("Frame3").Visible = True
Else
Me.Shapes("Frame3").Visible = False
End If
If Range("H29").Value = 4 Then
Me.Shapes("Frame4").Visible = True
Else
Me.Shapes("Frame4").Visible = False
End If
If Range("H29").Value = 5 Then
Me.Shapes("Frame5").Visible = True
Else
Me.Shapes("Frame5").Visible = False
End If
If Range("H29").Value = 1 Then
Me.Shapes("Frame1").Visible = True
Else
Me.Shapes("Frame1").Visible = False
End If
End Sub

På forhånd tak
Ghita
Avatar billede finb Ekspert
16. januar 2018 - 09:31 #1
Du skal vist af med ME
Avatar billede Jan Hansen Ekspert
16. januar 2018 - 09:46 #2
Fedt du har fået det til at virke
16. januar 2018 - 20:04 #3
Hej Finb
Det hjalp desværre ikke....
Nogen andre forslag?
Pft
Ghita
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester