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
Hallo ...
erst mal herzlichen Dank für euere Bemühungen und Rückmeldungen.
Am plausibelsten erscheinen mir die Scripts von Ralph und Andre ... funktionieren allerdings noch nicht.
Der Eintrag erfolgt in Spalte D und dort sollte auch die Zentrierung erfolgen.
Danke und lieben Gruß, Elmar
Viel wichtiger, als "funktioniert nicht" zu antworten, wäre auf den Hinweis von Klaus-Dieter einzugehen. So baut man einfach keine Tabelle auf.
Hallöchen,
dann stelle ich mal die Zusatzfrage, wie Du bei Bedarf z.B. Auto als weitere Überschrift festlegst? Du nimmst Fahrzeuge weg, indem Du dort ein x einträgst (oder nimmst einfach manuell Fett und zentriert weg), und woran soll der code nun erkennen, dass Auto die Überschrift sein soll?
... und die Frage von Berni bitte auch beantworten ...
Hallo,
offenbar habe ich mich in meinem Anliegen etwas missverständlich ausgedrückt ... bitte um Nachsicht.
Bitte meine eingangs erwähnte Darstellung mit "x", "y" als gegenstandslos anzusehen. Ich wollte dies in der nachfolgenden Beispieldatei besser verdeutlichen und habe es anders dargestellt.
Auch ist die Bezeichnung "Überschrift" wohl auch irreführend gewesen, vielmehr hätte es Kategorienbezeichnung (als "Teilüberschrift") heißen sollen.
Ich denke der Hinweis "so baut man keine Tabelle auf" hat sich dadurch wohl auch erledigt, sonst müsste ich wohl die Gegenfrage stellen "wie baut man eine Tabelle auf?".
Den Script von Ralph habe ich ausgetestet, er funktioniert dem Grunde nach super und wäre genau das, wonach ich gesucht habe ... allerdings funktioniert er nur bei Eingaben in der Spalte A und C ... ich bräuchte ihn aber für die Spalte D ... sonderbar ...
Ich hoffe, ich konnte nun etwas Licht ins Dunkel bringen und bedanke mich für alle Hinweise und Kommentare. Leider verfüge ich nicht über überragende Excel-Kenntnisse.
Lg. Elmar
Hallöchen,
dann mach mal aus Deiner 0 wieder eine 4 wie im Original. Das funktioniert mit Spalte D ...
Hallo ...
leider funktioniert das bei diesem Eintrag bei mir nicht:
If .Column = 4 And .CountLarge = 1 Then
Danke und Gruß, Elmar
Hallo Elmar,
lösche alle .offset(,3)
Übrigens gibt es bei #11 auch einen alternativen Vorschlag!
Gruß Uwe
Hallöchen,
nimm mal .Value statt .Text Deine Formatierung haut da rein ...
Hallo Andrè und alle anderen Beteiligten,
das war's ... funktioniert jetzt perfekt ...
Den alternativen Vorschlag habe ich auch ausprobiert, endete aber mit einem Hinweis ... "#NAME?" ... auch hatte ich den Eindruck, dass die Tabelle etwas blockiert worden ist ...
Danke nochmals ... Thema kann nun beendet werden.
Lg. Elmar