Format

[Hussell]

Hallo Ihr Lieben,

hat jemand eine Idee, wie ich Zahlen Rechtsbündig und Text mittig automatisiert darstellen kann?

In der bedingten Formatierung hab ich nix gefunden....


Danke schon mal im Voraus
Hussell

[Peter]

Hallo,

wenn ich dich richtig verstehe willst du einen Wert eingeben und dann soll, abhängig davon ob es sich um Text oder eine Zahl handelt, das Format bestimmt werden.

Mit der Bedingten Formatierung kommst du hier nicht weiter - die stellt diese Formatierungen nicht zur Verfügung.

Ich könnte mir vorstellen, dass das mit VBA machbar ist - aber dafür fehlt mir die Kompetenz, da müssen die VBA-Experten des Forums ran.

[shift-del]

hat jemand eine Idee, wie ich Zahlen Rechtsbündig und Text mittig automatisiert darstellen kann?

Zahlen werden grundsätzlich rechtsbündig ausgerichtet.

[RPP63]

Zahlen werden grundsätzlich rechtsbündig ausgerichtet.

... es sei denn, man formatiert sie anders ...
Zum Thema:
Dies geht wwohl nur mit VBA. 
Worksheet-Change, 
Target auf IsIsnumeric überwachen und den Rest zentriert formatieren. 
Mangels PC muss aber jemand anderes den Code schreiben. 

Gruß Ralf

[schauan]

Hallöchen,

wenn die Zellen mit Text zentriert werden und später eine Zahl hineinkommt, ist diese auch zentriert

Hier mal ein kurzes Makro - ohne Fehlerbehandlung. Es sollten also Texte und Zahlen vorhanden sein. Texte und Zahlen werden dabei nur berücksichtigt, wenn sie nicht aus Formeln stammen. Wäre aber auch kein Problem, sind zwei Zeilen mit ..xlCellTypeFormulas.. mehr

Code:

Sub test()
ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, xlNumbers).HorizontalAlignment = xlGeneral
ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, xlTextValues).HorizontalAlignment = xlCenter
End Sub

[Hussell]

Hallo,

@Andre: der Code funktioniert so wie er soll. Vielen Dank dafür..

Für meine Vorhaben wäre es aber besser, wenn ich in einer "WENN" Formel bestimmen kann ober das Ergebnis Wahr/Falsch zentriert oder auch linksbündig ausgegeben werden kann. Oder geht so etwas nur mit VBA?


Danke und Gruß
Hussell