Tabelleblätter per dropdownmenue einblen
16.03.2022 11:33:28
Udo
Fogendes Problem:
Ich habe ein Dropdownmenue in Zelle K1 womit ich einzelne Tabellenblätter per vba einblende. Das funktioniert auch hervoragend. Wenn ich aber das Dropdownmeue von zelle k1 nach f2 verschiebe und das in dem Makro ebenfalls ändere funktioniert es nicht mehr.
Hier das Makro:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$K$1" Then
Worksheets(CStr(Target)).Visible = True
Worksheets(CStr(Target)).Select
End If
On Error Resume Next
If Target.Validation.InCellDropdown Then ActiveWindow.Zoom = 79
End Sub
Danke für eure Hilfe.
Gruss
Udo aus Köln
Anzeige