In meiner Excel mit vielen Reitern gibt es manche Rieter, bei denen Spalten ausgeblendet sind. Diese sollen alle wieder eingeblendet werden.
Mein Code:
... (davor passieren noch andere Sachen, welche schon funktionieren)
'Makro zum Einblenden aller Spalten auf allen Blättern
Dim ws As Worksheet
For Each ws In sheets
If columns.hidden = true Then Columns.EntireColumn.Hidden = False
End If
Next ws
End Sub
Die Fehlermeldung lautet: "Fehler beim kompilieren: End If ohne If-Block"
Habe schon viel rumgegoogelt, aber komme nicht weiter.
Was übersehe ich denn?
Danke schon mal für Rat und Tat :-)