Tabellenblatt einblenden

Private Sub Worksheet_Change(ByVal Target As Range) Dim laR As Long Dim TbN As String laR = Cells(Rows.Count, 1).End(xlUp).Row If Intersect(Range("B1:B" & laR), Target) Is Nothing Then Exit Sub If Target.Cells.Count > 1 Then Exit Sub TbN = Target.Offset(0, -1).Text If Target.Value = "x" Then Worksheets(TbN).Visible = xlVeryHidden ElseIf Target.Value = "" Then Worksheets(TbN).Visible = True End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Chris
Sry, dass ich jetzt erst dran arbeiten kann.
Irgendwie werd ich aus deinen Angaben immer noch nicht wirklich schlau.
In Deiner Mappe gibt es doch nur 2 Blätter, die Ein- bzw. Ausgeblendet werden können.
Wenn Du mit den Kontrollkästchen weitere Blätter (Kaufauftrag1 bzw. Kaufauftrag2) ein-/ausblenden willst, dann


Sub Kaufauftrag1()
If Worksheets("Kaufauftrag1").Visible = False Then
Worksheets("Kaufauftrag1").Visible = True
Else
Worksheets("Kaufauftrag1").Visible = False
End If
End Sub


Sub Kaufauftrag2()
If Worksheets("Kaufauftrag2").Visible = False Then
Worksheets("Kaufauftrag2").Visible = True
Else
Worksheets("Kaufauftrag2").Visible = False
End If
End Sub

Siehe diese Mappe: https://www.herber.de/bbs/user/44048.xls
Aber ich werd das Gefühl nicht los, dass ich vollkommen auf dem Holzweg bin :-(
Deshalb lass ich den Thread immer noch offen.
Gruß aus dem Sauerland
Jens

Hallo Jens !
Danke, das ist toll, bin begeistert. Genauso hab ich mir das vorgestellt. Du hast recht, es gibt in dieser Excel Datei mehrere Blätter. Jedoch konnte ich diese hier nicht hochladen, war einfach zu groß. Es geht dabei um eine Berechnung für Kunden bei einem Wertpapierkauf. Mit diesem Tool kann ich nun Berechnungen vornehmen für bis zu 3 Switch´s. Dabei sollen immer nur jene Kaufaufträge aufscheinen, welche der Kunde machen will .. also entweder nur einen oder zwei oder eben drei. Gleichzeitig kann man dann eine Beraterhaftung, die ja nun überall in der EU gebraucht wird und eine Unterschriftenblatt für das Depotkonto ausdrucken. Es sind alle relevanten Daten auf dem "Datenblatt" enthalten die für die Berechnung und eben für das U-Blatt und die Beraterhaftung notwendig sind. Wenn du willst, ich kann dir diese Datei zukommen lassen, wenn sie ganz fertig ist. Ich muß jetzt nur noch das U-Blatt und die Kaufaufträge adaptieren. Du hast mir jedenfalls wirklich sehr geholfen.. danke nochmals
chris

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread