Verschiedene Zellformatierung bei Text und Zahl

Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, Range("B19:K21")) Is Nothing Then Wenn Zelle enthält Text, dann Zelle zentriert formatiert Wenn Zelle enthält Zahl, dann Zelle rechtsbündig formatiert End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim rngZelle As Range If Not Intersect(Target, Range("B19:K21")) Is Nothing Then For Each rngZelle In Target With rngZelle If IsNumeric(.Value) Then 'Wenn Zelle enthält Zahl/Datum, dann Zelle rechtsbündig formatiert .HorizontalAlignment = xlRight Else 'Wenn Zelle enthält Text, dann Zelle zentriert formatiert .HorizontalAlignment = xlLeft End If End With Next End If End Sub

Hallo Luc,
die Sache ist kompliziert. Leider funktioniert Franz' Vorschlag nicht bei mir (Excel 2000). Ich denke, dass Excel hier ein gewisses Eigenleben hat.
Ich habe die Sache aber doch durch Probieren lösen können.
Zunächst steht bei mir in den Zellen B19:B21 eine Formel wie unten (kommt von Franz).
{=WENN(ANZAHL2(B$6:B$12)<ZEILE(1:1); "";WENN(INDEX(B$6:B$12;KKLEINSTE(WENN(B$6:B$12<>""; ZEILE($1:$7); 7); ZEILE(1:1)))="x";INDEX($A$6:$A$12;KKLEINSTE(WENN(B$6:B$12<>"";ZEILE($1:$7); 7); ZEILE(1:1))); INDEX(B$6:B$12;KKLEINSTE(WENN(B$6:B$12<>"";ZEILE($1:$7); 7); ZEILE(1:1))) *$A$1)) }
Es wird in die Zellen B19:B21 einmal ein Name geschrieben (diese stehen weiter oben in Spalte A), wenn in Spalte B (Bereich B6:B12) ein "x" steht oder wenn z.B. in demselben Bereich ein Betrag, z.B. "60,5" eingetragen wird, dann wird dieser Betrag in die Zelle B19 eingetragen, bei einem zweiten Betrag in B20, bei einem dritten Betrag in B21.
Meine Lösung für verschiedene Zellformatierungen innerhalb einer Zelle, Text (hier Namen werden zentriert ausgerichtet, Zahlen nach Dezimalstelle bündig:
1. Bei den Zellen B19:B21 das Format (Schaltfläche) auf "zentriert" stellen
2. Über Format -- Zellen -- Benutzerdefiniert diese Formatierung eintragen: ?0,00" ";@
Nachfolgend klappt die unterschiedliche Ausrichtung je nach Text (zentriert) oder Zahl (nach Dezimalstelle rechtsbündig)
Grüße
Burghard

Hallo Franz,
Luc hat Dir ja schon geschrieben, dass ich den Text zentriert und nicht standardmäßig links ausgerichtet haben wollte.
Die Sache ist komplizierter als ich dachte (da hab ich unbewußt eine Lawine losgetreten). Leider funktioniert Dein Makro nicht wie gewünscht bei mir (Excel 2000). Ich denke, dass Excel hier ein gewisses Eigenleben hat.
Ich habe die Sache aber doch durch Probieren lösen können.
Zunächst steht bei mir in den Zellen B19:B21 eine Formel wie unten (kommt von Dir).
{=WENN(ANZAHL2(B$6:B$12)<ZEILE(1:1); "";WENN(INDEX(B$6:B$12;KKLEINSTE(WENN(B$6:B$12<>""; ZEILE($1:$7); 7); ZEILE(1:1)))="x";INDEX($A$6:$A$12;KKLEINSTE(WENN(B$6:B$12<>"";ZEILE($1:$7); 7); ZEILE(1:1))); INDEX(B$6:B$12;KKLEINSTE(WENN(B$6:B$12<>"";ZEILE($1:$7); 7); ZEILE(1:1))) *$A$1)) }
Es wird in die Zellen B19:B21 einmal ein Name geschrieben (diese stehen weiter oben in Spalte A), wenn in Spalte B (Bereich B6:B12) ein "x" steht oder wenn z.B. in demselben Bereich ein Betrag, z.B. "60,5" eingetragen wird, dann wird dieser Betrag in die Zelle B19 eingetragen, bei einem zweiten Betrag in B20, bei einem dritten Betrag in B21.
Meine Lösung für verschiedene Zellformatierungen innerhalb einer Zelle, Text (hier Namen) wird zentriert ausgerichtet, Zahlen nach Dezimalstelle bündig:
1. Bei den Zellen B19:B21 das Format (Schaltfläche) auf "zentriert" stellen
2. Über Format -- Zellen -- Benutzerdefiniert diese Formatierung eintragen: ?0,00" ";@
Nachfolgend klappt die unterschiedliche Ausrichtung je nach Text (zentriert) oder Zahl (nach Dezimalstelle rechtsbündig)
Grüße
Burghard

Beliebteste Forumthreads (12 Monate)

Verschiedene Zellformatierung bei Text und Zahl

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

8 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Verschiedene Zellformatierung bei Text und Zahl

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

8 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread