Perverses Excelproblem!

[haviii]

Hallo meine lieben Hamsterfans.

I have problem.

Also:

Ich hab eine Excel Datei, da möchte ich einen button reinmachen der folgendes macht:

Alle geöffneten Reiter, bis auf einen (nennen wir ihn XXX) sollen ausgeblendet werden!

Also button click = alles zu bis auf XXX

der button heisst ganz normal CommandButton1

irgendeiner von euch kann doch sowas?

danke

haviii


(ja ich helf euch auch immer mit autos also schub)

 

[Ebola_inaktiv]

Was meinst Du mit Reiter? Die einzelnen Sheets? Die können doch nur gelöscht werden oder kann man die überhaupt ausblenden?


Edit:
Du kannst den folgenden Code mal in deinen Button einfügen.
Vielleicht hilft Dir das ja weiter.

Ansonsten erklär mir bitte die Anforderung genauer, dann kann ich das sicher anpassen.

Dim i As Integer
Const skipName As String = "Tabelle2" 'hier den Namen eintragen der nicht gelöscht werden soll
Dim sheetName As String
For i = 1 To Sheets.Count
    sheetName = Sheets(i).Name
    If Not sheetName = skipName Then ' Namen vergleichen
        MsgBox sheetName & " wird gelöscht" 'DEBUG
        ' Löschen
        'Sheets(sheetName).Select
        'Application.DisplayAlerts = False
        'ActiveWindow.SelectedSheets.Delete
        'Application.DisplayAlerts = True
    Else
        MsgBox sheetName & " wird behalten" 'DEBUG
    End If
Next