ShowAllData

[Guidolavespa]

Bij het maken van een VBA procedure zoals


ActiveSheet.ShowAllData

krijg ik de foutmelding : Methode ShowAllData van klasse Worksheet is mislukt.

Nochthans heb ik dit opgenomen met de macro en het is hetzelfde

 

[Bartuls]

Als er geen gegevens gefilterd zijn op je werkblad dan krijg je een error als je die methode probeert uit te voeren.
Je zult die error moeten trappen middels het on error goto statement.

sub Test()
On Error GoTo ErrorHandler

ActiveSheet.ShowAllData

ExitSub:
Exit Sub

ErrorHandler:
If Err.Number <> 1004 Then
MsgBox Err.Number & ": " & Err.Description
End If
GoTo ExitSub

End Sub

 

[Guidolavespa]

Oplossing

Oplossing kan gevonden worden in Programeren, MS office, excel


http://www.helpmij.nl/forum/showthread.php?threadid=104205