Spalten mit gleichen Überschriften untereinander

[Funkydonkey]

Besten Dank! :100: Es tauchen keine roten Blöcke auf:) Werde nachher den kompletten Datensatz zusammenstellen und schauen, ob alles funktioniert:)

[Funkydonkey]

In meiner Tabelle 17000 Zeilen und 300 Spalten waren doch einige rote Blöcke aufzufinden. 
Diese habe ich mit folgendem Code aufgespürt und habe die Merkmale einfach in Zeile 1 neu angelegt. Vielleicht nutzt es einem etwas:

Code:

Sub anlegen()
Tabelle1.Cells(3, 1).CurrentRegion.Select
Selection.EntireRow.Hidden = True
Dim Zelle As Range
For Each Zelle In Selection
If Zelle.Interior.ColorIndex = 3 Then
Zelle.EntireRow.Hidden = False
End If
Next Zelle
End Sub