Du må jo have lidt mere kode andetsteds, end det du lige angiver! Hvis jeg tester din kode her, så gir' den ingen fejl, og UserForm1 fremkommer, når der er ændringer i A2:A8
Prøv at bruge denne kode, istedet: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A2:A8")) Is Nothing Then Exit Sub Else: UserForm1.Show End If End Sub
Brug koden her, på dit Ark1: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A2:A8")) Is Nothing Then Exit Sub Else: If Intersect(Target, Range("A2:A8")) = "SQL" Then UserForm1.Show End If End Sub
Nu virker det hele :) og har kunnet tilføje et par ekstra Userforms hvis andet blev valgt. tusinde tak
Synes godt om
Ny brugerNybegynder
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.