Microsoft Excel

Herbers Excel/VBA-Archiv

Spalten ausblenden bei Bedingung

Betrifft: Spalten ausblenden bei Bedingung von: Thomas
Geschrieben am: 15.10.2020 15:45:15

Liebe Excel Gemeinde,

ich bräuchte nochmals Eure Hilfe.
Es sollen zwei Spalten ausgeblendet werden, wenn in einer Zelle ein Bedingung erfüllt ist.
Hier dei Varainte die noch nicht funktioniert.

Mit Case Target.value
und 1 bzw. funktioniert es, leider mit Text nicht.
Hat jemand eine Idee?
Tausend Dank und Gruß
Thomas

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("A11") Then
Select Case Target.Text
Case Is = "SPEC 18537" '1
 Columns("F:G").Hidden = True
Case Is = "individuell" '2
 Columns("F:G").Hidden = False
End Select
End If
End Sub

Betrifft: AW: Spalten ausblenden bei Bedingung
von: Thomas
Geschrieben am: 15.10.2020 15:49:03

Sorry funktioniert doch:)