Arbeitsblätter aus-/einblenden
27.10.2017 12:56:16
Rainer
habe mehrere Tabellenblätter mit gleicher Endung und möchte diese je nach Auswahl über eine Combobox wechseln.
Bisher habe ich es einzeln so gelöst:
'neu ausgewählte Sparte - Arbeitsblätter anzeigen
Worksheets("Info " & NSp).Visible = xlSheetVisible
Worksheets("select " & NSp).Visible = xlSheetVisible
Worksheets("RiskAna " & NSp).Visible = xlSheetVisible
Worksheets("LW " & NSp).Visible = xlSheetVisible
Worksheets("LV " & NSp).Visible = xlSheetVisible
'vorherige Sparte - Arbeitsblätter verbergen
Worksheets("Info " & ASp).Visible = xlSheetVeryHidden
Worksheets("select " & ASp).Visible = xlSheetVeryHidden
Worksheets("RiskAna " & ASp).Visible = xlSheetVeryHidden
Worksheets("LW " & ASp).Visible = xlSheetVeryHidden
Worksheets("LV " & ASp).Visible = xlSheetVeryHidden
Allerdings habe ich nicht immer das entsprechende Tabellenblatt, so dass ich entweder ein Blankoblatt anlegen müsste oder aber je Sparte einen Code benötigen würde.
Könnte man ggf. nur die Endung ansprechen und wenn das Blatt nicht vorhanden ist, den Befehl einfach überspringen?
Gruß Rainer
Anzeige