VBA Spalte mit Bedingung ein-/ausblenden
12.10.2022 20:12:31
FrankS
ich möchte eine Spalte automatisch ein-/ ausblenden lassen.
Einblenden wenn in Zelle AS1 = ja
Ausblenden wenn in Zelle AS1 = nein eingetragen ist
Ich habe den Code im "Worksheet" mit "Change" hinterlegt:
Es handelt sich um die Spalte T im gleichen Arbeitsblatt:
Private Sub Worksheet_Change(ByVal Target As Range)
'Prüfen, ob Wert "ja" in Zelle AS1 steht
If Range("AS1").Value = "ja" Then
'Blattschutz ausschalten
Tabelle4.Unprotect
'Schritt - Zellen formatieren - Schutz - nicht gesperrt
Tabelle4.Range("T").Locked = False
'Spalte T ausblenden
Tabelle4.Columns("T").Hidden = True
'Blattschutz einschalten
Tabelle4.Protect
ElseIf Range("AS1").Value "ja" Then
'Blattschutz ausschalten
Tabelle4.Unprotect
'Schritt - Zellen formatieren - Schutz - nicht gesperrt
Tabelle4.Range("T").Locked = False
'Spalte T einblenden
Tabelle4.Columns("T").Hidden = False
'Schritt - Zellen formatieren - Schutz - nicht gesperrt
Tabelle4.Range("T").Locked = True
'Blattschutz einschalten
Tabelle4.Protect
End If
End Sub
VG
Frank