• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Tabel formaat aanpassen en EXCEL crashed

Status
Niet open voor verdere reacties.
N

novec

Gebruiker
Lid geworden
6 jan 2009
Berichten
194
Ik heb een curieus probleem in een bestand.
Ik gebruik Excel 2016 op een Win 10 platform met vel intern geheugen en snelle processor.

In de sheet zitten meerdere tabellen.
Er zit behoorlijk veel VBA in maar ik kan daar niets vinden wat dit probleem veroorzaakt.

Als ik het formaat van de tabel wijzig
- door onder de tabel een nieuwe regel in te vullen
- Met rechter muis klik een nieuwe rij invoegen
- tabel ontwerpen "tabel grote aanpassen
- rechts onder in de tabel formaat verander door te slepen.

In al deze gevallen krijg ik de storingsmelding "Excel werkt niet meer en start opnieuw op"

Laatste optie was via namen beheren. Zie screenshot

Heel vreemd is dat als ik hier iets wil wijzigen dan zijn alle mogelijkheden uitgegrijst
Heel raar. Het lijkt dat er ergens een beveiliging op zit maar die heb ik niet in de sheet zitten.

Afbeelding1.png

Als ik een ander sheet open of maak is dit ook het geval. Het lijkt dus een probleem in Excel
Ik ben de opties ook volledig doorgelopen maar kan niets vinden.
In de opties heb dit zo staan. Dus dat lijkt ook goed te zijn.
29-12-2016 12-05-51.png

Ook internet gaf geen oplossing.

Ergo ik vindt het heel vreemd. Heeft iemand een idee hoe dit is op te lossen?


Helaas kan ik origineel bestand niet uploaden. Te groot en te veel vertrouwelijke info.
 
Laatst bewerkt:
Zet dan op z'n minst even je VBA-code in een bericht, want als het probleem daar zit komt niemand daar achter.
 
Hmmmm...

a) Per ongeluk meerdere tabbladen geselecteerd?
b) Als je per sheet met CTRL-End naar het einde van de sheet gaat? Zijn je sheets veel groter dan strikt noodzakelijk?

Greetz/Excelbat
 
En dan nog wat...

...excel helemaal afsluiten en opnieuw opstarten?

Greetz/Excelbat
 
Alle anteoorden van hierboven heb ik uitgebreid geprobeerd.

Hieronder vind je de code uit de sheet. Daar zit een protect en unprotect stukje in maar ook die heb ik getest en zijn niet de oorzaak.

Code: 
Public Sub ShowForm()

    frmVisssen.Show
    
End Sub
Public Sub ToDB()

Dim tbl As ListObject

    Worksheets("DagUitslag").Activate
Set tbl = ActiveSheet.ListObjects("tbUitslag")
    ActiveSheet.ListObjects("tbUitslag").DataBodyRange.Select
    Selection.Copy
    
    Worksheets("DB Base uitslagen").Activate
    
    With Sheets("DB Base uitslagen").Range("A3").End(xlDown).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlValues
    
    Application.CutCopyMode = False
    
    Worksheets("DagUitslag").Activate
    Range("a4").Select
    
    End With
    
    
End Sub
Sub SCHOONM()
'
'

    MsgBox ("Weet zeker dat je alles wilt verwijderen?")
    ActiveSheet.Unprotect
    
    ActiveWorkbook.Worksheets("DagUitslag"). _
    ListObjects("tbUitslag").ListColumns(1).DataBodyRange.Select
    Selection.Clear

    ActiveWorkbook.Worksheets("DagUitslag"). _
    ListObjects("tbUitslag").ListColumns(7).DataBodyRange.Select
    Selection.Clear
    ActiveWorkbook.Worksheets("DagUitslag"). _
    ListObjects("tbUitslag").ListColumns(8).DataBodyRange.Select
    Selection.Clear
    ActiveWorkbook.Worksheets("DagUitslag"). _
    ListObjects("tbUitslag").ListColumns(11).DataBodyRange.Select
    Selection.Clear
    ActiveWorkbook.Worksheets("DagUitslag"). _
    ListObjects("tbUitslag").ListColumns(16).DataBodyRange.Select
    Selection.Clear
    
    'borders worden gemaakt
    borders
    
    ActiveSheet.Protect
End Sub
Sub kleur()
'
' kleur Macro


Dim MyR As Range

Set MyR = Range("tbUitslag")

ActiveSheet.Unprotect
    For Each cell In MyR

    Select Case cell.Value

    Case Is = "1e"
    cell.EntireRow.font.ColorIndex = 5

    Case Is = "2e"
    cell.EntireRow.font.ColorIndex = 10


    Case Else
    cell.EntireRow.font.ColorIndex = xlNone


    End Select
    Next
    
  ActiveSheet.Protect
End Sub


Sub sort()
'
' sort Macro
'

'
    ActiveWorkbook.Worksheets("DagUitslag").ListObjects("tbUitslag").sort. _
        SortFields.Clear
    ActiveWorkbook.Worksheets("DagUitslag").ListObjects("tbUitslag").sort. _
        SortFields.Add Key:=Range("tbUitslag[[#All],[Uitslag]]"), SortOn:= _
        xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("DagUitslag").ListObjects("tbUitslag").sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveWorkbook.Worksheets("DagUitslag").ListObjects("tbUitslag").sort. _
        SortFields.Clear
    ActiveWorkbook.Worksheets("DagUitslag").ListObjects("tbUitslag").sort. _
        SortFields.Add Key:=Range("tbUitslag[[#All],[Divisie]]"), SortOn:= _
        xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("DagUitslag").ListObjects("tbUitslag").sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
Sub sort2()
'
' sort2 Macro
'

'
    ActiveWorkbook.Worksheets("DagUitslag").ListObjects("tbUitslag").sort. _
        SortFields.Clear
    ActiveWorkbook.Worksheets("DagUitslag").ListObjects("tbUitslag").sort. _
        SortFields.Add Key:=Range("tbUitslag[[#All],[SpelerID]]"), SortOn:= _
        xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("DagUitslag").ListObjects("tbUitslag").sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveWorkbook.Worksheets("DagUitslag").ListObjects("tbUitslag").sort. _
        SortFields.Clear
    ActiveWorkbook.Worksheets("DagUitslag").ListObjects("tbUitslag").sort. _
        SortFields.Add Key:=Range("tbUitslag[[#All],[Divisie]]"), SortOn:= _
        xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("DagUitslag").ListObjects("tbUitslag").sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
Sub sort3()
'
' sort3 Macro
'

'
    ActiveWorkbook.Worksheets("DagUitslag").ListObjects("tbUitslag").sort. _
        SortFields.Clear
    ActiveWorkbook.Worksheets("DagUitslag").ListObjects("tbUitslag").sort. _
        SortFields.Add Key:=Range("tbUitslag[[#All],[Komp. Gewicht]]"), SortOn:= _
        xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("DagUitslag").ListObjects("tbUitslag").sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("O2").Select
End Sub
Sub borders()

    Dim sht As Worksheet
    Dim LastRow As Long
    
    Set sht = ThisWorkbook.Worksheets("Daguitslag")
    
    LastRow = sht.ListObjects("tbUitslag").Range.Rows.Count
         Cells(LastRow + 3, 5).Resize(1, 9).Select
        
        
    Selection.borders(xlDiagonalDown).LineStyle = xlNone
    Selection.borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Color = -2984934
        .TintAndShade = 0
        .Weight = xlThick
    End With
    Selection.borders(xlEdgeTop).LineStyle = xlNone
    With Selection.borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Color = -2984934
        .TintAndShade = 0
        .Weight = xlThick
    End With
    With Selection.borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Color = -2984934
        .TintAndShade = 0
        .Weight = xlThick
    End With
    Selection.borders(xlInsideVertical).LineStyle = xlNone
    Selection.borders(xlInsideHorizontal).LineStyle = xlNone
    Range("A1").Select
    

End Sub
Sub SelectingPartOfTable()
    
    'dit is een testmacro. niet weggooien!!
    
    
    
    Dim oSh As Worksheet
    Set oSh = ActiveSheet
    '1: with the listobject
    With oSh.ListObjects("Table1")
        MsgBox .Name
        'Select entire table
        .Range.Select
        'Select just the data of the entire table
        .DataBodyRange.Select
        'Select third column
        .ListColumns(3).Range.Select
        'Select only data of first column
        'No go in 2003
        .ListColumns(1).DataBodyRange.Select
        'Select just row 4 (header row doesn't count!)
        .ListRows(4).Range.Select
    End With
    
    'No go in 2003
    '2: with the range object
    'select an entire column (data only)
    oSh.Range("Table1[Column2]").Select
    'select an entire column (data plus header)
    oSh.Range("Table1[[#All],[Column1]]").Select
    'select entire data section of table
    oSh.Range("Table1").Select
    'select entire table
    oSh.Range("Table1[#All]").Select
    'Select one row in table
    oSh.Range("A5:F5").Select
End Sub

Sub sortjaardiv1()
'
' sortjaardiv1 Macro
'

'
    Range("d4").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("d5").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("d4:d5").Select
    Selection.AutoFill Destination:=Range("tbJaar1e[vorig]")
    Range("tbJaar1e[Vorig]").Select
    ActiveWorkbook.Worksheets("Jaarstand").ListObjects("tbJaar1e").sort.SortFields. _
        Clear
    ActiveWorkbook.Worksheets("Jaarstand").ListObjects("tbJaar1e").sort.SortFields. _
        Add Key:=Range("tbJaar1e[[#All],[Ranglijst]]"), SortOn:=xlSortOnValues, _
        Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Jaarstand").ListObjects("tbJaar1e").sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A4").Select
End Sub

Sub sortjaardiv2()
'
' sortjaardiv2 Macro
'

'
    Range("d19").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("d20").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("d19:d20").Select
    Selection.AutoFill Destination:=Range("tbJaar2e[vorig]")
    Range("tbJaar2e[Vorig]").Select
    ActiveWorkbook.Worksheets("Jaarstand").ListObjects("tbJaar2e").sort.SortFields. _
        Clear
    ActiveWorkbook.Worksheets("Jaarstand").ListObjects("tbJaar2e").sort.SortFields. _
        Add Key:=Range("tbJaar2e[[#All],[Ranglijst]]"), SortOn:=xlSortOnValues, _
        Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Jaarstand").ListObjects("tbJaar2e").sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A4").Select
End Sub
 
Die Module-macro's zullen niet de oorzaak zijn, want die moet je activeren alvorens ze hun werk doen,
maar zit er code achter de werkbladen zelf of in Thisworkbook?

Post die dan eens.
 
Is toch ergens een geheugenprobleem:

a) Workbook honderden mb's groot?
b) Sheets staan stijf van de 'voorwaardelijke opmaak' en/of '=INDIRECT'-formules en/of sommen.als en of aantallen.als?

Greetz/Excelbat
 
Ik lees eigenlijk uit je verhaal dat het probleem van de ene op de andere dag is ontstaan.
Sheet heeft altijd goed gefunctioneerd?
Wat is er dan wanneer en waar gewijzigd?

Greetz/Excelbat
 
In taskmanager, tijdens het uitvoeren van je gewenste handeling, kan je zien hoeveel geheugen Excel dan gebruikt? Misschien is het toch een kwestie van te weinig beschikbaar geheugen op het moment van uitvoering?
 
Is geen geheugen probleem. Ik heb uitgebreid op andere computer getest. Daar liep alles goed. dus vanavond excel opnieuw installeren.
Ik vond ook nog een post waar gesproken werd dat dit kan gebeuren als je heel veel updates van het bestand heb de afgelopen tijd. Dat is inderdaad het geval maar die zijn allemaal keurig afgesloten en niet meer aanwezig.
 
Excel opnieuw geinstaleerd.
Probleem verdwenen. Wat het was ik heb nog steeds geen idee.

maar dank voor meedenken allemaal
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan