Echt probleem verborgen kolommen?

[robshiba]

Ik heb alle kolommen vanaf HU t/m IV verborgen.

(Ik heb het geprobeerd via compleet werkblad selecteren; ik heb het ook met enkele macro's geprobeerd:

Sub Vrijgeven()
    Cells.Select
    Selection.EntireColumn.Hidden = False
    Selection.EntireRow.Hidden = False
End Sub

Of:

Sub Vrijgeven()
    Columns("A:IV").Select
    Selection.EntireColumn.Hidden = False
End Sub

Als ik ze nu weer zichtbaar wil maken, jammer maar helaas: HT blijft de laastse kolom??? (het probleem is dat ik ergens in de laaste kolommen wel degelijk gegevens heb staan!)

 

[Wigi]

Probeer:

Sub Vrijgeven()
Columns.Hidden = False
For i = 1 To Columns.Count
   If Columns(i).ColumnWidth < 1 Then Columns(i).ColumnWidth = 8.43
Next
End If
End Sub

 

[Warme bakkertje]

Sub tst()
Sheets(1).UsedRange.Columns.Hidden = False
End Sub

 

[robshiba]

Gelukt!

Sub Vrijgeven()
Columns.Hidden = False
For i = 1 To Columns.Count
   If Columns(i).ColumnWidth < 1 Then Columns(i).ColumnWidth = 1
Next
      ' End If 
End Sub

Bedankt! Met bovenstaande macro is het opgelost.

1. End if werd niet herkend; eruit en werkend.
2. Wat ik nog niet heb kunnen achterhalen is waarom die kolommen dan zo smal (0?) zijn geworden dat je ze niet ziet.
3. Een tweede rare is dat als ik via het naamvak bijvoorbeeld naar IS1 ging ik ook niet daar terecht kwam

Mogelijk heeft bovenstaande met een excel sheet uit 2003 in 2007 openen te maken?!?

In ieder geval: opgelos t

 

[Roncancio]

In ieder geval: opgelos t

Dat kan je onderaan op de pagina aangeven door op "vraag is opgelost" te klikken.
Bvd.

Met vriendelijke groet,


Roncancio

 

[snb]

of

Sub tst()
  Columns.Hidden = False
  Columns.ColumnWidth = 6
End Sub

 

[Wigi]

of

Sub tst()
  Columns.Hidden = False
  Columns.ColumnWidth = 6
End Sub

En kolommen die geen probleem opleveren (zichtbaar zijn en een normale breedte hebben) worden dan ook op breedte 6 gezet? Hmmm.

 

[Jack Nouws]

Sub tst()
    Cells.ColumnWidth = 8.43
End Sub

 

[snb]

Sub tst()
  Columns.Hidden = False
  Columns.ColumnWidth = 6
  Columns.autofit
End Sub

??