Das war der Ursprüngliche Code zum Ausblenden der Spalten, werde die Schleife zum Ausblenden einfach umprogrammieren zum Kopieren in die Übersicht^^

Aber gerne mal durchlesen, bin für Verbesserungsvorschläge offen! (Ist dass erstes Makro welches ich in meinem Leben geschrieben habe :D)

Sub master()

    'Variablen Definition
    
    Dim AnzX As Integer
    Dim zeile As Integer
    Dim EndeZ As Integer
    Dim x As Integer
    Dim AnfS As Integer
    Dim EndeS As Integer
    Dim zaehler()
    Dim Check As Integer
        
    'Definitionsende
    
    '//////////////////////////////////////////////////////
    
    'Anzahl X  und EndeZ speichern
    
    AnzX = Range("AnzahlX") - 1
    EndeZ = Range("EndeZ").Row
       
    'Zeilennummer in Array speichern

    ReDim zaehler(AnzX)
    x = 0
    
    For zeile = 3 To EndeZ
    
        If Cells(zeile, 1) = "x" Then
        zaehler(x) = zeile
        End If
        If Cells(zeile, 1) = "x" Then
        x = x + 1
        End If
        
        
    Next zeile
    
    'Speichern und Vorbereitung abgeschlossen

    'Prüfung ob ein x in der Spalte ist um dann die Spalte, falls dem nicht so ist, auszublenden
    
    AnfS = Range("BeginnS").Column
    EndeS = Range("EndeS").Column
    
    
    For p = AnfS To EndeS
        
       For i = 0 To AnzX
            
            If Cells(zaehler(i), p) <> "" Then
                Check = Check + 1
            End If
            
       Next i
       
       If Check = 0 Then
         Columns(p).EntireColumn.Hidden = True
         
       End If
       
       Check = 0
       
    Next p

End Sub