System Error &h8000FFF(-2147418113) catastrophic error

baarsoe

New Member
Joined
Dec 27, 2017
Messages
5
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,
 

Excel Facts

Can you sort left to right?
To sort left-to-right, use the Sort dialog box. Click Options. Choose "Sort left to right"
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
 
Upvote 0
is that supposed to be Falsk and not False.

The other potential maybe default language settings on the systems
 
Upvote 0
It's "Falsk" because it's in danish, me and my colleagues has same system language and same computers.
 
Upvote 0
You should still be using False in VBA.
 
Upvote 0
There's nothing obviously wrong in the code you posted - are you sure that's the cause of the problem?
 
Upvote 0
not 100% sure but im only using 4 codes:
Code:
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
 
Last edited by a moderator:
Upvote 0
I think you'll have to do some debugging on the problem machine to try and narrow down which line is the issue.
 
Upvote 0

Forum statistics

Threads
1,223,896
Messages
6,175,265
Members
452,627
Latest member
KitkatToby

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top