Bei laufenden Makro Seiten/Spalten ausblenden
07.08.2018 18:14:37
Mario
ich brauche bitte eure Hilfe
ich will in mein bestehendes Makro folgendes einbauen:
Falls Nutzer Nur lese oder Pfad inkorrekt ist (schon vorhanden)
soll bei Blatt 2-13 die Spalte C ausgeblendet werden
eine Schleife für Blatt 2-13 habe ich schon, die wird derzeit aber für .Replace genutzt
genau da würde das Ausblenden der Spalte C perfekt rein passen, aber wie gehört das geschrieben?
Der Code:
Sub AlleBlaetterEinblenden()
Application.EnableCancelKey = xlDisabled
Dim sh As Worksheet
ThisWorkbook.Unprotect Password:="mario"
For Each sh In Sheets
sh.Visible = True
Next sh
ThisWorkbook.Protect Password:="mario"
Const cstrPath As String = "C:\Users\mario\Desktop"
If ActiveWorkbook.ReadOnly Or Not ActiveWorkbook.Path = cstrPath Then
Dim i As Long
Dim Txt
For i = 2 To 13
With Worksheets(i).Range("E6:BN39")
For Each Txt In Split("VF,ZA,U,K,UP,KK,FE,FK,ZU", ",")
.Replace Txt, "AW", lookat:=xlWhole
Next Txt
End With
Next i
End If
Dim Blaetter As Object
Dim Jahr As String
Set Blaetter = ThisWorkbook.Worksheets
Monat = Format(Date, "MMM")
For Each Blatt In Blaetter
If Blatt.Name = Monat Then Blatt.Select
Next
End Sub
Anzeige