hatte die Frage schon Mal in einem anderen Beitrag zu anderem Thema erstellt - der Richtigkeit halber nochmal hier:
In meiner Datei ist ein Bereich (N19:N3013), bei dem jede Zelle mit der unteren verbunden ist (z.B. N21:N22).
Die möchte ich nach bestimmten Kriterien filtern, mit folgendem Code: (funktioniert)
Application.ScreenUpdating = False
Sheets("Planning").Select
Range("$N18:$N$3013").Select
Selection.AutoFilter
ActiveSheet.Range("$N18:$N$3013").AutoFilter Field:=1, Criteria1:="HansdieWurst"
Range("A1").Select
False, AllowUsingPivotTables:=True
Application.ScreenUpdating = True
Jedoch werden nur die Zellen gefiltert, die dem Kriterium entsprechen und die Verbundenen ausgeblendet.Irgendwie muss ich .MergeArea.Font einbauen - aber keine Ahnung wie.
Hat jmd eine Idee?