Live-Forum - Die aktuellen Beiträge
Datum
Titel
05.10.2025 23:18:01
Summewenns aber mit VBA
05.10.2025 11:43:19
Bed. Format. Spezialfall, Möglich, die Registerfarbe nutzen?
04.10.2025 18:18:42
Anzahl in einer Zelle automatisch ermitteln
04.10.2025 17:44:54
Power Query - Filtern einer Spalte mittels einer Liste
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
424to428
424to428
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen formatieren

Forumthread: Zellen formatieren

Zellen formatieren
10.05.2004 11:05:54
Brillo
Hallo !
Ich möchte gerne eine Zelle formatieren die eine Reifengröße anzeigen soll.
Eingabe: 195501595T
es sollte: 195/50R15 95T angezeigt werden.
Ich habe bei Zellen formatieren bereits: Zahlen, Benutzerdifiniert
den Typ: 000"/"00"R"00 00 eingegeben.
Leider funktioniert die Formatierung nicht, wenn ich das T oder einen anderen
Buchstaben am Ende der Reifengröße eingebe.
Wer kann mir sagen, welchen Platzhalter ich für den Buchstaben benutzen muß ?
Vielen Dank vorab.
Gruß Erik
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
###"/"##"R"## ##"T"
Klaus
Dann hast Du ein extra T !
AW: Zellen formatieren
10.05.2004 11:31:12
Brillo
Hallo Klaus !
Schon klar, aber diesen Buchstaben sollte man selber eingeben können.
die anderen Werte wie R oder / ist immer gleich nur der letze Buchstabe, kann auch ein
H oder V u.s.w sein.
Excel soll nur die Formatierung erledigen.
Gruß Erik
Anzeige
AW: Zellen formatieren
Josef
Hallo Erik!
Das geht am einfachsten mit VBA!
Rechtsklick auf den Tabellenreiter &gt Code anzeigen und
im Rechten Fenster des VBA-Editors diesen Code einfügen.

Private Sub Worksheet_Change(ByVal Target As Range)
'gültig in Spalte "A" (.Column = 1), sonst anpassen
If Target.Column = 1 And Len(Target) = 10 Then
Application.EnableEvents = False
Target = Left(Target, 3) & "/" & Mid(Target, 4, 2) & "R" & Mid(Target, 6, 2) & " " & UCase(Right(Target, 3))
Application.EnableEvents = True
End If
End Sub

Gruß Sepp
Anzeige
;

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