AW: Na dann werd ich mal noch einen drauflegen ...
WernerB.
Hallo Alex,
eine Frage so einfach wie möglich zu formulieren, ist prinzipiell richtig.
Allerdings: Je komplexer die Ausgangsvoraussetzungen sind, desto genauer sollte der Makroprogrammierer darüber Bescheid wissen, wenn er nicht für den Papierkorb arbeiten will.
Sehr oft führt diese Unkenntnis dann zu diesen zeitaufwändigen und platzraubenden "Elefantenthreads", die bei genauer Kenntnis der Ausgangssituation für den Antworter - ohne Nebelstochern mit großen Zeitaufwand - viel kürzer und effizienter ausfallen könnten.
Dass es trotzdem zu Rückfragen (Verständnisprobleme, Fehler im Vorschlags-Makro, usw.) kommen kann, liegt in der Natur Sache.
Zum Thema Rückmeldung nur soviel: Als Antworter erwartet man vom Fragesteller schon eine kleine Reaktion. Die muss nicht in eine Dankesorgie ausarten, aber als Antworter hätte man schon gerne gewusst, ob der Fragesteller mit der Antwort zufrieden ist, oder ob es noch Ergänzungsbedarf gibt
Vielleicht solltest Du Dir dazu die "Forums-FAQ" einmal durchlesen; ich hoffe auf Dein Verständnis.
Zu Deinem Problem:
Entspricht dieser Makro-Vorschlag jetzt Deinen Wünschen?
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
Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !