Registriert seit: 09.05.2016
Version(en): 2010
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
Registriert seit: 12.04.2014
Version(en): Office 365
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.
Gruß
Peter
Registriert seit: 12.04.2014
Version(en): Office 365
(25.05.2016, 14:05)Hussell schrieb: hat jemand eine Idee, wie ich Zahlen Rechtsbündig und Text mittig automatisiert darstellen kann?
Zahlen werden grundsätzlich rechtsbündig ausgerichtet.
Wir sehen uns!
... Detlef
Meine Beiträge können Ironie oder Sarkasmus enthalten.
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
(25.05.2016, 16:57)shift-del schrieb: 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
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
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
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 09.05.2016
Version(en): 2010
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