ich muss in einzelnen Dateien immer nur diverse Tabelleblätter ausblenden.
Um es zu vereinfachen, möchte ich folgende Lösung per VBA realisieren:
1. Inhaltsverzeichnis aller Tabellenblätter für die Datei erstellen
2. betroffene Tabellenblätter per InputBox auswählen
3. ausblenden der ausgewählten Blätter
Nun habe ich Teil 1 bereits gelöst, Teil 2 teilweise, aber zu Teil 3
komme ich nicht weiter. Hier mein Code:
Option Explicit
Sub aainhaltsverzeichnis_erstellen3()
'Inhaltsverzeichnis aller Tabellenblätter
Dim blatt As Object
Dim zeile As Double
Dim NewSheet As Worksheet
Dim i As Integer
Dim myRange As Range
zeile = 3
'Fehlerhandling
On Error Resume Next
'Sheet Inhaltsverzeichnis auf jeden Fall löschen
Sheets("Inhaltsverzeichnis2").Delete
'Neues Tabellenblatt mit dem Namen Inhaltsverzeichnis hinzufügen
Set NewSheet = Worksheets.Add
NewSheet.Name = "Inhaltsverzeichnis2"
Sheets("Inhaltsverzeichnis2").Move Before:=Sheets(1) ' = Tabellenblatt als erstes
'Überschrift Einfügen und formatieren
With Sheets("Inhaltsverzeichnis2").Range("A1")
.Value = "Inhaltsverzeichnis"
End With
With Cells(2, 1)
.Value = "sortiert nach Blatt-Nr."
End With
'Laufende Blattnummerierung + Blattname einfügen
For Each blatt In Sheets
Sheets("Inhaltsverzeichnis2").Cells(zeile, 1).Value = "Blatt " & zeile - 2
Sheets("Inhaltsverzeichnis2").Cells(zeile, 2).Value = blatt.Name
zeile = zeile + 1
Next blatt
ActiveSheet.Columns("B:B").EntireColumn.AutoFit
ActiveWindow.DisplayGridlines = False
Range("A3").Select
ActiveWindow.FreezePanes = True
Cells(1, 4).Select
On Error Resume Next
Set myRange = Application.InputBox("Wählen Sie die Tabellenblätter", "Nachbearbeitung", Type:=8)
If myRange Is Nothing Then Exit Sub
myRange.Select
'________________________________________________________
'wie können die selektierten Blätter ausgeblendet werden?
'________________________________________________________
End Sub
Besten Dank für eine Hilfe!
mfg
Erich