Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
344to348
344to348
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

benutzerdefiniertes zahlenformat

Forumthread: benutzerdefiniertes zahlenformat

benutzerdefiniertes zahlenformat
30.11.2003 16:25:17
josef
hallo excelfreunde,

besteht die möglichkeit, über das benutzerdefinierte zahlenformat (nicht mittels vba !), eine zeichenkette in einer zelle so zu formatieren, daß stets das letzte zeichen in einer anderen farbe dargestellt wird?
das letzte zeichen ist in meinem fall immer eine zahl, alle anderen zeichen grundsätzlich reiner text.

bedanke mich schon mal für eure hilfe und wünsche noch einen schönen sonntag

josef
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Ohne VBA ist da nichts zu machen. Sorry o.T.
30.11.2003 16:41:45
Ramses
....
AW: Ohne VBA ist da nichts zu machen. Sorry o.T.
30.11.2003 17:47:13
andre
hallo josef,
... oder du hilfst dir mit 2 zellen, wo in der ersten der text steht und in der 2. die zahl. wenn du beides zusammen für was anderes brauchst, kannst du es ja verketten und diese "hilfsspalte" ausblenden ...
gruss andre
danke! und wie gehts mit vba?
30.11.2003 18:23:04
josef
Anzeige
AW: benutzerdefiniertes zahlenformat
30.11.2003 19:07:38
Nepumuk
Hallo Josef,
so z.B. für Spalte A ab Zeile 1


Option Explicit
Public Sub Josef()
Dim lngZeile As Long
For lngZeile = 1 To Cells(65536, 1).End(xlUp).Row
With Cells(lngZeile, 1)
If Trim(.Value) <> "" Then .Characters(Start:=Len(Trim(.Value)), Length:=1).Font.ColorIndex = 3
End With
Next
End Sub


Code eingefügt mit: Excel Code Jeanie

Gruß
Nepumuk
Anzeige
vielen dank! schönen sonntag noch
30.11.2003 19:10:04
josef
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige