Spalten ein bzw. ausblenden......

[Zenon]

Folgendes Problem:

Ich würde gerne die Spalten H bis O erst eingeblendet haben, wenn in der Spalte C die Zeilen 7 , 9 und 18 ausgefüllt wurden......
Sprich: Erst wenn die drei Pflichteingaben gemacht wurden.....werden die Spalten H bis O sichtbar.....
Geht das?

[chris-ka]

Hi,

rechte Maustaste im Blattregister des jeweiligen Tabellenblattes wo dies ausgeführt werden sollte -> Code anzeigen -> und diesen Code dort ablegen

Code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Range("C7, C9, C18")
If Not Intersect(Target, rng) Is Nothing Then
    Columns("H:O").Hidden = Not (WorksheetFunction.CountA(rng) = 3)
End If
End Sub

[Zenon]

Hi, läuft super,  vielen Dank dafür.....

aber sobald der Blattschutz aktiviert ist 

kommt ein Laufzeitfehler bei der Eingabe der drei Daten......

"Die Hidden-Eigenschaft des Range-Objektes kann nicht festgestellt werden"

[chris-ka]

Hi,

davon stand nichts im ersten Post ;)
Bei Blattschutz geht es natürlich nicht, außer....

füge diesen Code noch bei "DieseArbeitsmappe" ein

Code:

Option Explicit
Private Sub Workbook_Open()
Dim sh As Worksheet
For Each sh In Worksheets
    sh.Protect "DeinPW", Userinterfaceonly:=True
Next
End Sub

DeinPW natürlich durch dein Kennwort ersetzen!

Datei speichern und erneut öffnen dann sollte es auch bei Blattschutz funktionieren.
p.s Deine Zellen C7, C9, C18 sollten natürlich für die Eingabe entsperrt sein.

[Zenon]

Leider funzt es nicht......

Option Explicit
Private Sub Workbook_Open()
Dim sh As Worksheet
For Each sh In Worksheets
    sh.Protect "DeinPW", Userinterfaceonly:=True
Next
End Sub

Zellen sind natürlich entsperrt............Passwort ersetzt.

die Zeile siehe oben wird direkt rot angezeigt ..... :s

[chris-ka]

Hi,

arghhh,

ich sehe es gerade....... Version 2000
Da gibt es noch kein UserInterFaceOnly.

Ab Office XP oder 2003 würde es gehen....
In deiner Version fällt mir jetzt keine Lösung ein.

Vielleicht kennt ja noch jemand eine Lösung für Version 2000

[Zenon]

ne nicht mehr ist Version 2016 habe es gerade auch gesehen und direkt berichtigt.

[chris-ka]

Hi,

dann geht es...

  aus_ein.xlsm (Größe: 15,55 KB / Downloads: 5)

[Zenon]

Läuft.................vielen lieben Dank  :18: