in Tabelle1 Zelle B7 habe ich eine Liste hinterlegt, auf deren Attribut weitere Zellen in der Datei Bezug nehmen. D.h. diese Zelle sollte gefüllt sein, damit alle Bezüge funktionieren.
Ich hätte gern, dass beim Starten der Datei geprüft wird, ob die Zelle einen Wert hat oder nicht. Wenn nicht, sollen die entsprechenden Sheets ausgeblendet sein, also ein weiteres arbeiten nicht ermöglichen.
Ich bin bereits mit nachfolgenden code am Experimentieren, aber leider bisher ohne großen Erfolg. Erhalte immer die Meldung "Objekt erforderlich" und die Zeile "If Target...." wird markiert. Leider reicht mein VBA noch nicht um dies allein zu meistern, daher bitte ich abermals um Hilfe.
Private Sub Workbook_Open()
Sheets("Tabelle1").Activate
If Target.Row = 7 And Target.Column = 2 And Range("B7").Value "" Then
Sheets("Tabelle2").Visible = True
Sheets("Tabelle3").Visible = True
Sheets("Tabelle4").Visible = True
Else
Sheets(Array("Tabelle2", "Tabelle3", "Tabelle4")).Visible = False
End If
End Sub
GrußTobias