Überschriften erkennen und zentrieren

[wisch]

Hallo Elmar,

die Tabelle ist falsch aufgebaut, denn die Produktkategorie gehört in eine separate Spalte. Denn nur dann kannst du auch nach Produktkategorieen filtern oder diese auch in Pivottabellen nutzen.

Hier deine Mapppe wie es besser ist.

[snb]

Statt  #11

Code:

Sub M_snb()
  With Columns(4)
    .Replace "Möbel", "=""Möbel""", 1
    .Replace "Fahrzeuge", "=""Fahrzeuge""", 1
    .SpecialCells(-4123).HorizontalAlignment = -4108
    .SpecialCells(-4123).Font.Bold = True
  End With
End Sub

[el_gor]

Danke "Wish" für den Hinweis bezüglich der Gestaltung der Tabelle.

Allerdings für meine Bedürfnisse reicht das in der Form wie ich es habe ...  hat nun alles super funktioniert.

Danke an Alle die mitgewirkt haben und alles Gute ... Elmar