CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede jath08ac Forsker
06. juli 2020 - 18:54 Der er 17 kommentarer

Run time error 400 i VBA kode - HJÆLP :-) :-)

Hej,

Jeg har en kode der driller mig lidt :-) Når man står i Excel filen og den aktive celle du står indeholder beskrivelse "Automatisk kontrol" eller "Manuel med automatisk kontrolelement" så har jeg lavet en UserForm, hvor der skal udfyldes nogle spørgsmål

Når man så klikker på knappen CommandButton1, så får jeg en fejlmeddelelse:
Run-time error '400':
Form already displayed; can't show modally
Når jeg trykker på Debug, så bliver linjen UserForm6.show markedt med gul

Hvad har jeg gjort forkert?

pft. ;-)

Kode der åbner Userform:

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Value = "Automatisk kontrol" Then
    UserForm6.Show
    Unload Me
ElseIf ActiveCell.Value = "Manuel med automatisk kontrolelement" Then
  UserForm6.Show
  Unload Me
Else
    Exit Sub
End If

Kode til knappen: CommandButton1 i Userform:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
ShtName = ActiveSheet.Name
Sheets(ShtName).Columns("AQ:DG").EntireColumn.Hidden = False
' xxxxxxxxxxxxxxxxxxx PENSION & SIKRING xxxxxxxxxxxxxxxxxxxxxxxx

Sheets(ShtName).Cells(2, 45) = CheckBox1.Value
Sheets(ShtName).Cells(3, 45) = CheckBox2.Value
Sheets(ShtName).Cells(4, 45) = CheckBox3.Value
Sheets(ShtName).Cells(5, 45) = CheckBox45.Value

'xxxxxxxxxxxxxxxxxxxxxx P & I xxxxxxxxxxxxxxxxxxxxx
     
Sheets(ShtName).Cells(2, 48) = CheckBox4.Value
Sheets(ShtName).Cells(3, 48) = CheckBox5.Value
Sheets(ShtName).Cells(4, 48) = CheckBox6.Value
Sheets(ShtName).Cells(5, 48) = CheckBox7.Value
Sheets(ShtName).Cells(6, 48) = CheckBox8.Value
Sheets(ShtName).Cells(7, 48) = CheckBox9.Value
Sheets(ShtName).Cells(8, 48) = CheckBox10.Value
Sheets(ShtName).Cells(9, 48) = CheckBox44.Value

'xxxxxxxxxxxxxxxxxxxxxx UDK  xxxxxxxxxxxxxxxxxxxxx

Sheets(ShtName).Cells(2, 51) = CheckBox11.Value
Sheets(ShtName).Cells(3, 51) = CheckBox12.Value
Sheets(ShtName).Cells(4, 51) = CheckBox13.Value
Sheets(ShtName).Cells(5, 51) = CheckBox14.Value
Sheets(ShtName).Cells(6, 51) = CheckBox15.Value
Sheets(ShtName).Cells(7, 51) = CheckBox16.Value
Sheets(ShtName).Cells(8, 51) = CheckBox17.Value
Sheets(ShtName).Cells(9, 51) = CheckBox18.Value
Sheets(ShtName).Cells(10, 51) = CheckBox19.Value
Sheets(ShtName).Cells(11, 51) = CheckBox43.Value

' xxxxxxxxxxxxxxxxxxxxxx UDK xxxxxxxxxxxxxxxxxxxxx

Sheets(ShtName).Cells(2, 54) = CheckBox20.Value
Sheets(ShtName).Cells(3, 54) = CheckBox21.Value
Sheets(ShtName).Cells(4, 54) = CheckBox22.Value
Sheets(ShtName).Cells(5, 54) = CheckBox23.Value
Sheets(ShtName).Cells(6, 54) = CheckBox24.Value
Sheets(ShtName).Cells(7, 54) = CheckBox25.Value
Sheets(ShtName).Cells(8, 54) = CheckBox26.Value
Sheets(ShtName).Cells(9, 54) = CheckBox27.Value
Sheets(ShtName).Cells(10, 54) = CheckBox28.Value
Sheets(ShtName).Cells(11, 54) = CheckBox29.Value
Sheets(ShtName).Cells(12, 54) = CheckBox30.Value
Sheets(ShtName).Cells(13, 54) = CheckBox31.Value
Sheets(ShtName).Cells(14, 54) = CheckBox32.Value
Sheets(ShtName).Cells(15, 54) = CheckBox33.Value
Sheets(ShtName).Cells(16, 54) = CheckBox34.Value
Sheets(ShtName).Cells(17, 54) = CheckBox42.Value

'xxxxxxxxxxxxxxxxxxxxxx Øvrige xxxxxxxxxxxxxxxxxxxxx

Sheets(ShtName).Cells(2, 57) = CheckBox35.Value
Sheets(ShtName).Cells(3, 57) = CheckBox36.Value
Sheets(ShtName).Cells(4, 57) = CheckBox37.Value
Sheets(ShtName).Cells(5, 57) = CheckBox38.Value
Sheets(ShtName).Cells(6, 57) = CheckBox39.Value
Sheets(ShtName).Cells(7, 57) = CheckBox40.Value
Sheets(ShtName).Cells(8, 57) = CheckBox41.Value
Sheets(ShtName).Cells(9, 57) = CheckBox46.Value
Sheets(ShtName).Cells(10, 57) = CheckBox47.Value

Sheets(ShtName).Cells(2, 59) = TextBox1.Value

If Sheets(ShtName).Range("AR16").Value > 0 Then
    Range("SystemerAndet").EntireRow.Hidden = False
Else
    Range("SystemerAndet").EntireRow.Hidden = True
End If

Sheets(ShtName).Columns("AQ:DG").EntireColumn.Hidden = True
Range("SystemerAnvendt").EntireRow.Hidden = False
End Sub
Avatar billede store-morten Ekspert
06. juli 2020 - 19:49 #1
Hver gang du skriver til en celle, vil den åbne Userformen igen.
Avatar billede jath08ac Forsker
06. juli 2020 - 19:53 #2
@store-morten
Tak for det - Er der en måde hvorpå jeg kan undgå denne fejl?
Avatar billede store-morten Ekspert
06. juli 2020 - 19:57 #3
1. Når Userformen åbnes, marker en tom celle.

Eller

2. Sæt Event til: false, når Userformen åbnes og til bage til: True, når den lukkes.
Avatar billede jath08ac Forsker
06. juli 2020 - 20:20 #4
Hvor skal jeg indsætte Event false og event true henne.
Kom til at sætte Event = false ind i UserForm_Initialize og Event = True unde i koden der åbner Userformen - Så nu kan jeg sku ikke få den frem igen :-(
Avatar billede store-morten Ekspert
06. juli 2020 - 20:27 #5
Den skal være i din:
Private Sub Worksheet_Change(ByVal Target As Range)

Kør denne for at få den tilbage:

Sub EventTil()
Application.EnableEvents = True
End Sub
Avatar billede store-morten Ekspert
06. juli 2020 - 20:29 #6
Er det en bestemt celler der har: Automatisk kontrol?
Avatar billede store-morten Ekspert
06. juli 2020 - 20:37 #7
Hov... det er forkert, den skal ligge på din knap.
Avatar billede store-morten Ekspert
06. juli 2020 - 20:42 #8
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False '<-- Husk den skal også sættes igen
Application.EnableEvents = False

'din kode

Application.ScreenUpdating = True
Application.EnableEvents = True
Avatar billede jath08ac Forsker
06. juli 2020 - 20:52 #9
@Store-morten
Det fungere - nu er der bare en anden lille kode der driller mig :-(
Avatar billede store-morten Ekspert
06. juli 2020 - 20:54 #10
Øv..... ;-)

Kom frisk
Avatar billede store-morten Ekspert
06. juli 2020 - 20:57 #11
Køres kun hvis A2 ændres:
Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A2")) Is Nothing Then
    If Target.Value = "Automatisk kontrol" Or Target.Value = "Manuel med automatisk kontrolelement" Then
        UserForm1.Show
    End If
End If
End Sub
Avatar billede jath08ac Forsker
06. juli 2020 - 20:59 #12
Det er denne kode (Se pil <=======) der driller. Den øverste del er den der viser UserForme'en. Men den anden del af if koden skal slette det indhold som brugeren evt. har indtastet med UserFormen. Så hvis man i den ActiveCell  vælger (via dropdown list) "Manuel", så skulle skulle enden del af if koden gerne køre, men det gør den ikke. Og når jeg har valgt "Manuel" og jeg så efterfølgende vælger "Automatisk kontrol", så får jeg ikke vidt UserForm'en :-(

If ActiveCell.Value = "Automatisk kontrol" Or ActiveCell.Value = "Manuel med automatisk kontrolelement" Then
    UserForm6.Show
Else <===========
    Range("SystemerAnvendt").EntireRow.Hidden = True
    Sheets(ShtName).Columns("AQ:DG").EntireColumn.Hidden = False
    For a = 2 To 5
        Cells(a, 45).Value = False
    Next a

    For b = 2 To 9
        Cells(b, 48).Value = False
    Next b

    For c = 2 To 11
        Cells(c, 51).Value = False
    Next c

    For d = 2 To 17
        Cells(d, 54).Value = False
    Next d

    For e = 2 To 10
        Cells(e, 57).Value = False
    Next e

    Sheets(ShtName).Columns("AQ:DG").EntireColumn.Hidden = True
Avatar billede store-morten Ekspert
06. juli 2020 - 21:10 #13
Den vil jo for søge at nulstille hver gang der ændres i arket?
Avatar billede jath08ac Forsker
06. juli 2020 - 21:13 #14
Ja, det har du jo ret I. Skal nok ændre den til, at den også skal se på hvad den ActiveCelle har af værdi
Avatar billede store-morten Ekspert
06. juli 2020 - 21:14 #15
Se #11
Avatar billede store-morten Ekspert
06. juli 2020 - 21:19 #16
Prøv:
Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A2")) Is Nothing Then '<-- Tilrettes
    If Target.Value = "Automatisk kontrol" Or Target.Value = "Manuel med automatisk kontrolelement" Then
        UserForm1.Show
    End If

    If Target.Value = "Manuel" Then
   
    'Din nulstille kode
   
    End If
End If
End Sub
Avatar billede store-morten Ekspert
06. juli 2020 - 21:30 #17
F.eks. sådan:
Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A2")) Is Nothing Then '<-- Tilrettes
    If Target.Value = "Automatisk kontrol" Or Target.Value = "Manuel med automatisk kontrolelement" Then
        UserForm1.Show
    End If

    If Target.Value = "Manuel" Then
        Call NulStil
    End If
End If
End Sub

Sub NulStil()
    Range("SystemerAnvendt").EntireRow.Hidden = True
    Sheets(ShtName).Columns("AQ:DG").EntireColumn.Hidden = False
    For a = 2 To 5
        Cells(a, 45).Value = False
    Next a

    For b = 2 To 9
        Cells(b, 48).Value = False
    Next b

    For c = 2 To 11
        Cells(c, 51).Value = False
    Next c

    For d = 2 To 17
        Cells(d, 54).Value = False
    Next d

    For e = 2 To 10
        Cells(e, 57).Value = False
    Next e

    Sheets(ShtName).Columns("AQ:DG").EntireColumn.Hidden = True
End Sub
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

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Hvis(og()) på baggrund af STØRSTE() og FORSKYDNING() Af AnnaS i Excel 1 I går 13:47 I går 14:59
Bil benzin regnskab ? Af fimo i Excel 13 17/04/202414:04 I går 11:51
Kombinere tal og timer og minutter Af mefa i Excel 6 16/04/202414:38 16/04/202418:07
Kombinere tal og timer og minutter Af mefa i Excel 2 16/04/202414:25 16/04/202421:22
Koipere tekst fra venstre til sidste tal i celle Af HHA i Excel 8 16/04/202412:48 16/04/202414:38
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 19:08 Gmail shortcut på skrivebord eller processlinje Af nu_igen i E-mail programmer
I går 13:47 Hvis(og()) på baggrund af STØRSTE() og FORSKYDNING() Af AnnaS i Excel
I går 07:22 Konvertere h265x til MP4 Af HHA i Andet software
17/0417:06 ændre hasighed på streaming tv - eksempelvis DR TV Af Malm i Andet software
17/0414:04 Bil benzin regnskab ? Af fimo i Excel
White papers
Flere white papers »


Premium
Teaser billede
“Den investering, som jeg dengang foretog i krypto, er blevet mangedoblet. I dag er de 10.000 dollar blevet til 1,4 millioner kroner”
Læs mere »
Danske CloudNordic går konkurs efter stort ransomware-angreb
Efter ballade: Comm2ig skal levere computere til danske skoler med kæmpeordre til 629 millioner kroner
Afgørelse: Rejsekorts kæmpeaftale med Netcompany og Trifork bliver tvangs-ophævet - stor regning venter
Se alle »
Computerworld
Teaser billede
Du bør vente med at købe ny bærbar: En pc-revolution vil ramme allerede til sommer
Læs mere »
Test af ny generation af video-overvågning: Her tilbydes de bedste features – nu til en skarpere pris
Får du den løn, du fortjener? Få overblikket over hvor meget dine kolleger tjener hver måned
Guldager: Jeg har bare tre enkle ønsker til min næste bil
Se alle »
CIO
Teaser billede
Aldrende SAP-konsulenter er et kæmpe problem i markedet: Virksomheder tør ikke uddanne nye
Læs mere »
Kæmpe prisstigninger på vej fra Microsoft: Dynamics 365 bliver op til 16 procent dyrere
Stort angreb skyller ind over en lang række VPN-tjenester: Løsninger fra Cisco, Fortinet og andre ramt
Danfoss er i fuld gang med stor SAP-transformation: Særligt setup skal sikre, at selskabet forbliver herre i eget hus
Se alle »
Job & Karriere
Teaser billede
NNIT flytter til det centrale København: Her er selskabets nye hovedkvarter
Læs mere »
Får havudsigt: IBM Danmarks 700 medarbejdere flytter til nyt hovedkvarter om få dage
Knap 40 procent af disse it-folk tjener tjener mindst 57.000 kroner om måneden
Fujitsu Danmark fyrer medarbejdere og udfaser al nysalg af cloud
Se alle »
White paper
Teaser billede
SASE: Træf det rette valg – første gang
Læs mere »
Vejen væk fra WAN: Sådan skifter du til en moderne infrastruktur
Sæt turbo på din cloudperformance og minimér risikoen for DDoS-angreb
Cybersikkerhed: Skær antallet af alarmer ned fra tusindvis til blot en håndfuld
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »