Function FußzeileInhaltsVergleich_MSGBOX(itemsVergleich As Collection) As Boolean

 Dim maxIndexSectionElements As Integer

    For Each Section In itemsVergleich
        
        If Section.Count > maxIndexSectionElements Then
            
            maxIndexSectionElements = Section.Count
        
        End If       
    Next
Dim columncounter As Integer

For columncounter = 1 To maxIndexSectionElements

    Dim compareCollection As Collection
    Set compareCollection = createNewCollection
        
    For Each sectionelement In itemsVergleich
        
        If (sectionelement.Count >= columncounter) Then
           
            compareCollection.Add (sectionelement.Item(columncounter).Range.Text)
        
        Else
            
            compareCollection.Add "EmptyElement"
        
        End If        
    Next
        Dim muster As String
        muster = compareCollection.Item(1)
    
    For Each compareableElement In compareCollection
          
        If ("EmptyElement" <> compareableElement) Then
        
            If (muster <> compareableElement) Then
            
                MsgBox muster
            
            End If
            
        Else
        
            MsgBox "EmptyElement detected"
                    
        End If
    Next
Next
End Function

Function createNewSheetWithPrefix(workbookResult As Workbook) As Worksheet  

   
Dim result As Worksheet
Dim Index As Integer
Index = 1

Worksheets("Tabelle2").Activate
    
        On Error Resume Next
  
    Set result = workbookResult.Worksheets("Result_" + Index)
        
        If result Is Nothing Then workbookResult.Worksheets.Add(, Sheets(Sheets.Count)).Name = "Result_" + CStr(Index)
        
        Index = Index + 1
       
Set createNewSheetWithPrefix = result
End Function