System Error &h8000FFF(-2147418113) catastrophic error

[baarsoe]

I have made a excel workbook with at couple og VBA and userforms.

On my computer the workbook works completly fine, when i send the workbook to some of my colleagues it shows this failure:

System Error &H8000FFFF (-21474181113) catastrophic error

Out of memory

Does anybody have a clue whats wrong?

Thanks,

 

[mole999]

there is an answer here from 7 years ago > http://www.vbforums.com/showthread.php?602559-system-error-amp-H8000FFFF that maybe relevant, also are you all using the same excel environment, versions and addins ?

 

[baarsoe]

Thanks for the link mole999

I'm so far i thinks it's this code where there is some failure:

Sub Fardigoer()
Dim RowCnt As Long
Dim ws As Worksheet

Application.ScreenUpdating = False
For Each ws In Worksheets
If ws.Name <> "Virksomhedsoplysninger" And ws.Name <> "Begæring" And ws.Name <> "Retshjælp" Then
With ws
For RowCnt = 24 To 200
If .Cells(RowCnt, 1).Value = Falsk Then
.Rows(RowCnt).Hidden = True
End If
Next RowCnt
End With
End If
Sheets(Range("z2").Value).Select
Next ws
End Sub

 

[mole999]

is that supposed to be Falsk and not False.

The other potential maybe default language settings on the systems

 

[baarsoe]

It's "Falsk" because it's in danish, me and my colleagues has same system language and same computers.

 

[RoryA]

You should still be using False in VBA.

 

[baarsoe]

I have tried to change to false, and the it didn't help, it still got the error.

any other ideas?

 

[RoryA]

There's nothing obviously wrong in the code you posted - are you sure that's the cause of the problem?

 

[baarsoe]

not 100% sure but im only using 4 codes:

Private Sub CommandButton1_Click()
MsgBox "Antal Kvm." & vbNewLine & " " & vbNewLine & "Samlet boligareal" & vbNewLine & "Samlet erhverv" & vbNewLine & "Udnyttet kælder" & vbNewLine & "Udnyttet tagetage" & vbNewLine & " " & vbNewLine & "OBS! - Uudnyttet kvm. i kælder eller tagetage holdes udenfor beregning" & vbNewLine & " " & vbNewLine & "Kælder anvendt til kælderrum, vaskekælder o.lign. betegnes ikke som udnytter" & vbNewLine & " " & vbNewLine & "Byggeforbedringer, udestuer, carporte, redskabsskure og ligende" & vbNewLine & "Er dækket med Brand, storm og anden bygningsbeskadigelse for maksimalt 158.562 kr. pr. bolig"
End Sub


Private Sub CommandButton2_Click()
MsgBox "INGEN PRODUKTION I BYGNINGER!" & vbNewLine & "___________________________" & vbNewLine & "Andels- og ejerforeninger:" & vbNewLine & "I københavn defineres som post nr. 0000-2500" & vbNewLine & "Branchekode 682020+683220" & vbNewLine & " " & vbNewLine & "Boligudlejningsejendomme:" & vbNewLine & "I København defineres som post nr. 0000-2500" & vbNewLine & "Ejendomme primær til udlejning af boliger." & vbNewLine & " " & vbNewLine & "Shopping centre:" & vbNewLine & "Shoppingcentre, butikker og supermarkeder" & vbNewLine & " " & vbNewLine & "Investeringsejendomme" & vbNewLine & "Ejendomme med udlejning til liberalt erhverv, cafe, firnesscenter, bowlinghal o.lign. INGEN PRODUKTION" & vbNewLine & " " & vbNewLine & "Lager og engrosvirksomheder sam logistikejendomme" & vbNewLine & "Lager af ikke tyveritækkelige vare (ej højlager o/8 meter) Engroshandel og logistik ejendomme" & vbNewLine & " " & vbNewLine & "Hotel og restaurant" & vbNewLine & "Ejendomme hvori størstedelen anvedes til hotel og/eller restaurant"
End Sub

Sub Fardigør()
    Dim RowCnt As Long
    Dim ws As Worksheet
    
    Application.ScreenUpdating = False
    For Each ws In Worksheets
            If ws.Name <> "Virksomhedsoplysninger" And ws.Name <> "Begæring" And ws.Name <> "Retshjælp" Then
            With ws
                For RowCnt = 24 To 200
                    If .Cells(RowCnt, 1).Value = False Then
                        .Rows(RowCnt).Hidden = True
                    End If
                Next RowCnt
            End With
        End If
  Sheets(Range("z2").Value).Select
    Next ws
End Sub

Sub naeste_Tilbud()
ActiveSheet.Next.Select
End Sub

 

[RoryA]

I think you'll have to do some debugging on the problem machine to try and narrow down which line is the issue.