hat jemand einen Tip, warum ich mit dem nachfolgenden Code in meinem Arbeitsblatt nicht mehr alla gewünschten Spalten einblenden kann?
Es werden nur die Spalten A:L eingeblendet?
Option Explicit
'
Dim rngMerker As Range
'
Function Datenpflege()
On Error GoTo fehler
Application.ScreenUpdating = False
Set rngMerker = Selection
With ThisWorkbook.Worksheets("Tabelle1")
.Activate
.Unprotect Password:=""
.Range("A:XFD").EntireColumn.Hidden = False
.Range("N:XFD").EntireColumn.Hidden = True
.Range("A1").Select
.ScrollArea = "$A$1:$M$10007"
.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
.EnableSelection = xlUnlockedCells
End With
Application.ScreenUpdating = True
Exit Function
fehler:
On Error Resume Next
Application.ScreenUpdating = True
MsgBox "Die Auflistung nicht angezeigt werden." & vbLf & _
"Falls die Probleme weiterhin auftreten, setzen Sie sich bitte mit Ihrem _
Administrator in Verbindung. " _
, vbExclamation + vbOKOnly, " Fehler"
rngMerker.Select
End Function
M.f.G.Lutz