Public objRibbon As IRibbonUI
 
Public Sub onload(ribbon As IRibbonUI)
Set objRibbon = ribbon
End Sub
 
Sub Test1(control As IRibbonControl)
    Set objExcel = CreateObject("Excel.Application")
    Set objWorkbook = objExcel.Workbooks.Open(ActiveWorkbook.Path & "\" & _
      ActiveWorkbook.Name)
    Dim WorkbookIndex As Integer
    Dim bExist As Boolean
    Dim objFileName As String
    objFileName = ActiveWorkbook.Name
 
    If bExist = False Or True Then                                              _
          'Kontrolle ob das Arbeitsblatt "IndexCount" vorhanden ist
        Dim i As Integer
            For i = 1 To Worksheets.Count
                If Worksheets(i).Name = "IndexCount" Then
                    bExist = True: Exit For                                     _
                          'Falls vorhanden, "bExist" aktivieren und
                Else                                                            _
                    'For-Schleife verlassen
                    bExist = False                                              _
                        'Falls nicht vorhanden, "bExist" deaktivieren und
                End If                                                          _
                    'Schleife fortsetzen
            Next
    End If
 
    If bExist = False Then
    ThisWorkbook.Worksheets.Add After:=Worksheets( _
      ThisWorkbook.Worksheets.Count)    'Wenn "bExist" nicht aktiv ist, dann _
      wird ein Arbeitsblatt
    Sheets(ThisWorkbook.Worksheets.Count).Name = "IndexCount"                   _
        'mit dem Namen "IndexCount" erstellt
    bExist = True                                                               _
        'bExist aktivieren
    Worksheets("IndexCount").Activate                                           _
        '"IndexCount" aktivieren
    WorkbookIndex = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row              _
        'Letzte verwendete Zeile in Spalte "A" von IndexCount ermitteln
    Else
    Worksheets("IndexCount").Visible = Visible                                  _
          '"IndexCount" Sichtbar machen
    Worksheets("IndexCount").Activate                                           _
        '"IndexCount" aktivieren
    WorkbookIndex = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row              _
        'Letzte verwendete Zeile in Spalte "A" von IndexCount ermitteln
    End If
 
 
    objExcel.DisplayAlerts = False                                              _
          'Meldungen deaktivieren
 
        If ActiveSheet.Cells(WorkbookIndex, 1) <> ActiveWorkbook.Name Then   _
                 'Wenn der Inhalt der letzten verwendete Zelle in Spalte "A" von
            ActiveSheet.Range("A1:A10000").Clear                                _
                '"IndexCount" nicht mit dem Dokumentennamen überein stimmt,
            WorkbookIndex = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row      _
                'dann wird der Index zurückgesetzt
        End If
 
 
        If WorkbookIndex < 10 Then
            objWorkbook.SaveAs (ActiveWorkbook.Path & "\" & ActiveWorkbook.Name _
            & " Index 000" & WorkbookIndex & ".xlsm")                           _
                'Namen des Index-Dokuments erstellen und speichern
            objFileName = ActiveWorkbook.Name & " Index 000" & WorkbookIndex _
            & ".xlsm"                                                           _
                'Namen des Index-Dokuments merken
        End If
        If WorkbookIndex < 100 And WorkbookIndex > 9 Then
            objWorkbook.SaveAs (ActiveWorkbook.Path & "\" & ActiveWorkbook.Name _
            & " Index 00" & WorkbookIndex & ".xlsm")                            _
                'Namen des Index-Dokuments erstellen und speichern
            objFileName = ActiveWorkbook.Name & " Index 000" & WorkbookIndex _
            & ".xlsm"                                                           _
                'Namen des Index-Dokuments merken
        End If