Office: text zentrieren

Hallo,

eine kleine Frage, welche mich beschäftigt.

Weshalb spinnt das Makro rum, wenn ich in folgenden Code...

Code:

.HorizontalAlignment = xlCenter

zusätzlich einfüge? Passt das etwa nicht zueinander?

VG Burzl89

:)

 

Hallo

du schreibst ja

With Zell.Offset(0, -1).Borders(xlEdgeBottom)

also bezieht sich alles in der With auf die Linie
und da gehört nunmal das HorizontalAlignment nicht dazu
denn das ist eine Eigenschaft der Zelle und nicht der Linie

MfG Tom

 

Hallo Burzl,

HorizontalAlignment = xlCenter bezieht sich auf Zellinhalt nicht den Rahmen.

Daher eine eigene Anweisung für die Zelle vorsehen, zB
Code:

Gruß
Aloys

 

danke für die info.was müsste ich ändern um die zelle anzusprechen?

 

Hallo Burzl,

dafür hast Du doch schon einen Vorschlag von mir !

Gruß
Aloys

 

danke für die Info.

Mein Code:

Code:

Das Zell.Offset(0, -1) bezieht sich auf eine Zelle in der eine Datenüberprüfung reinkommt. wähle ich diese nach durchlaufen des Makros aus (in meinem Falle ein "x") ist es dennoch linksbündig geschrieben.

Wo liegt die krux?

 

Hallo Burzl,

Kann ich nicht nachvollziehen, habe ich gerade getestet, und bei mir funktioniert es. Aber ich habe Deine Datei nicht vor mir.

Gruß
Aloys

 

also es funktioniert tatsächlich nicht.

Das ist ja ein komischer Fehler.
Ich zeige euch mal im Anhang meine Bsp. Datei.

im sheet Themenspeicher - Button "Themen auf Mitarbeiter übertragen" liegt das Makro.

und im Startbildschirm seht ihr markiert das Ziel.

*confused.gif* *confused.gif* *confused.gif* *confused.gif*

 

Hallo Burzl,

welche Zeilen in welchem Blatt willst Du damit formatieren ?

Gruß
Aloys

 

Hallo Burzl

Der Grund weshalb es nicht funktioniert, liegt am "With" vor dem Zell.Offset usw.

Code:

Edit:
Noch kurz zur Erklärung.

Ein "With" setzt man, wenn man sich mehrmals auf dasselbe Element bezieht und nicht jedes Mal den vollen Code eingeben will.

Als Bsp.

Code:

Gruss
Markus

 

Danke Markus für die ausführliche Information. Das war tatsächlich der Fehler.