[gelöst] alphanumerische Nummern formatieren

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: [gelöst] alphanumerische Nummern formatieren

Re: [gelöst] alphanumerische Nummern formatieren

von F3K Total » Di, 04.06.2013 19:56

Hi,
bin da auch kein Fachmann, wenn ich Objekte analysiere, sehe ich das die Farbe in eben diesem Format eingetragen ist, darum denke ich, das dies die schnellste Variante ist.
Gruß R

Re: [gelöst] alphanumerische Nummern formatieren

von TrueColor » Di, 04.06.2013 18:32

Ah, danke :-)

Gibt es da besondere Gründe für die Verwendung dieser un-intuitiven Zahlen? Oder ist das einfach ein Kompromiss für solche Konstrukte wie Const, die nicht mit komplexeren Daten umgehen können?

Grüße
TrueColor

Re: [gelöst] alphanumerische Nummern formatieren

von F3K Total » Di, 04.06.2013 17:42

Hi,
TrueColor hat geschrieben:Wo finde ich eine Übersicht über die von dir verwendete Farbcodierung?
hier
Gruß R

Re: [gelöst] alphanumerische Nummern formatieren

von TrueColor » Di, 04.06.2013 11:50

Die werden aber nicht in Calc weiterverarbeitet, sondern in einem abgeschlossenen System (und die HTML-Listen, die da mal jmd. exportiert hat, sind nicht sortiert, nicht gefiltert, enthalten z.T. falsche Artikelbezeichnungen, also komplett unbrauchbar), wo ich die Nummern wenigstens per Copy&Paste reinholen will, um sie nicht abtippen zu müssen. Ich kann mir solche 11-stelligen Nummern so schlecht merken.

@F3K Total
Hab die Konstante durch eine Variable ersetzt, da kann ich dann auch mit RGB arbeiten.

Code: Alles auswählen

Dim color1 as long
color1 = RGB(255,0,0)
Wo finde ich eine Übersicht über die von dir verwendete Farbcodierung?

Re: [gelöst] alphanumerische Nummern formatieren

von Stephan » Di, 04.06.2013 10:55

Auch hier wird leider nicht nur die Darstellung, sondern tatsächlich der String durch das Macro geändert
stimmt, nur verstehe ich das mögliche technische Problem nicht, denn sofern die Zellinhalte in Berechnungen weiterverarbeitet werden müssen ist es doch möglich statt z.B. mit A1 zu referenzieren das mittels WECHSELN(A1;" ";"") zu tun und, insofern dieser Ausdruck etwas lang ist, diesen einfach unter Einfügen-Namen durch einen kurzen Namen zu ersetzen so das statt WECHSELN(A1;" ";"") z.B. nur noch WE steht, was auch mit variablker Adressierung klappt also nicht die Notwendigkeit bedingt für jede Zelle eine andere Formel unter Einfügen-Namen hinterlegen zu müssen.

Vorlieben, jenseits dieser technischen Objektivitäten, wären natürlich etwas Anderes.


Gruß
Stephan

Re: alphanumerische Nummern formatieren

von TrueColor » Di, 04.06.2013 08:02

@Stephan:
Auch hier wird leider nicht nur die Darstellung, sondern tatsächlich der String durch das Macro geändert :-(
Aber ich war erstaunt, dass das mit einem so einfachen Macro realisiert werden konnte.

@F3K Total:
Das ist einfach genial, fkt. perfekt.

nochmals vielen Dank an alle!

Bunte Grüße
TrueColor

Re: alphanumerische Nummern formatieren

von F3K Total » Mi, 29.05.2013 19:08

Hallo TrueColor
ich habe da noch eine weitere alternative Idee. Dieses Makro

Code: Alles auswählen

REM  *****  BASIC  *****

const C1 = 16711680 'rot
Sub S_Set_String_Colors(event)
    ocell = event
    if ocell.supportsservice("com.sun.star.sheet.SheetCell") then
        oTextCursor = ocell.createTextCursor
        oTextCursor.gotoStart(false)
        oTextCursor.goright(3,false)
        oTextCursor.goright(3,true)
        oTextCursor.CharColor = C1
        oTextCursor.goright(3,false)
        oTextCursor.goright(2,true)
        oTextCursor.CharColor = C1
    endif
End Sub
an das Tabellenereignis (gibt es erst seit OOo3.3.0) "Inhalt geändert" gebunden, formatiert den Text so:
TF.png
TF.png (5.5 KiB) 1330 mal betrachtet
Gruß R

Re: alphanumerische Nummern formatieren

von Stephan » Mi, 29.05.2013 18:57

Aber wenn wirklich nur die _Darstellung_ per Macro hergestellt wird, macht mich das neugierig


unter Benutzung von Daten-Gültigkeit (und Makro) wie in anhängender Tabelle. Gibt dort einfach einen String der genannten Form in eine Zelle im Bereich A1 bis A20 ein und drücke anschließend ENTER.

(den String in die Zelle kopieren ist nicht zulässsig)

Über Daten-Gültigkeit wird hierbei folgendes Makro/Funktion genutzt:

Code: Alles auswählen

Function eintrag_aendern(cv As String, ca As String)
laenge = LEN(cv)
For i = 3 To laenge Step 3
	tmp = LEFT(cv, i)
	tmp2 = RIGHT(tmp, 3)
	gesamt = gesamt & tmp2 & " "
Next i
gesamt = gesamt & Right(cv, laenge-i+3)
ThisComponent.CurrentController.ActiveSheet.getCellRangeByName(ca).String = gesamt
eintrag_aendern = false
End Function

Gruß
Stephan
Dateianhänge
Umwandeln_beim_Eintragen.ods
(9.02 KiB) 47-mal heruntergeladen

Re: alphanumerische Nummern formatieren

von TrueColor » Mi, 29.05.2013 18:10

@Stephan
Du hattest meine Frage schon unmissverständlich beantwortet, auch wenn mir die Antwort nicht gefällt. Und das Wortspiel mit den in der dt. Sprache permanent auftretenden Doppeldeutigkeiten schlug wohl fehl (oder ich hab dich meinerseits falsch verstanden). Aber wenn wirklich nur die _Darstellung_ per Macro hergestellt wird, macht mich das neugierig (auch wenn ich mich wohl extrem schwer tue, den Macro-Kram zu verstehen).

@Karolus
keine Hex-Zahlen, sondern ein Stellenwertsystem mit der Basis 36, wenn du so willst.
Aber dein Ansinnen habe ich verstanden, jedoch verändere ich damit den String, wenn ich die Leerzeichen einfüge. Damit geht kein einfaches copy&paste mehr in unser "tolles" Warenwirtschaftssystem.

-----
Edit: Oh, aus 2A4658RU45S macht er 2A4_2A4_2A4_5S. Nicht ganz das gleiche. Naja, liegt möglicherweise an der Uraltversion hier zu Hause, sollte vlt. mal updaten (erstmal Sig geä., die Angaben waren auch falsch)...
-----

Ok, das mit der farbigen Hinterlegung hat mich 10 min gekostet und erfüllt seinen Zweck, und da ich die Angewohnheit hab, alles zu sperren, kann auch so schnell nichts kaputt gehen. Naja, Spaltenbreiten oder Schriftgröße ändern ist nun nicht mehr ohne entsprechende Nacharbeit möglich, aber das sollte auch nicht nötig sein.

Trotzdem Danke an alle!

Re: alphanumerische Nummern formatieren

von Karolus » Mi, 29.05.2013 13:57

Hallo
Markiere den Bereich mit den 11stelligen HexaDezimalzahlen und
→Suche und Ersetze
[0-9a-f]{3}
durch
$0_ Der _unterstrich steht für ein Leerzeichen !
mit den Optionen:
[x]nur in Selektion
[x]regulärer Ausdruck
→ersetze alle

Karolus

Re: alphanumerische Nummern formatieren

von Stephan » Mi, 29.05.2013 13:52

Wenigstens eine digitale? *SCNR*
verstehe ich die Frage nicht. Es gibt zweifellos verschiedene Möglichkeiten den Text entsprechend darzustellen, z.B. indem man automatisch bei der Eingabe diese Darstellung per Makro herstellt.
Gefragt hattest Du jedoch nach 'analog formatieren' und ich gehe deshalb davon aus das das Dein Ziel war. Ist das eine Fehlannahme?



Gruß
Stephan

Re: alphanumerische Nummern formatieren

von TrueColor » Mi, 29.05.2013 13:23

Stephan hat geschrieben:
Gibt es eine Möglichkeit, analog zu den Zahlenformatcodes, Nummern, die alphanumerische Zeichen enthalten können, zu formatieren?
Nein, es gibt keine analoge Formatierungsmöglichkeit.
Wenigstens eine digitale? *SCNR*

Naja, schade, trotzdem danke.
Rocko hat geschrieben:[Verketten]
War auch schon mein Gedanke, aber taugt leider auch nicht, wegen der Arbeitsweise. Habe aber jetzt noch eine Anregung erhalten, farblich zu gruppieren mittels in den Hintergrund gelegten Zeichenobjekten. Nicht elegant, aber tauglich und Aufwand/Nutzen scheint erträglich.

Danke euch!

Re: alphanumerische Nummern formatieren

von Rocko » Mi, 29.05.2013 12:00

TrueColor hat geschrieben:Ich habe hier 11-stellige Nummern, die der besseren Lesbarkeit wegen in drei 3er-Blöcke und einen 2er-Block formatiert werden sollen.
Text kannst du nicht wie Werte formatieren. Anzeigen in einer Nachbarzelle ist aber mit folgender Formel möglich.
=VERKETTEN(TEIL(A1;1;3);" ";TEIL(A1;4;3);" ";TEIL(A1;7;3);" ";TEIL(A1;10;2))

Re: alphanumerische Nummern formatieren

von Stephan » Mi, 29.05.2013 11:42

Gibt es eine Möglichkeit, analog zu den Zahlenformatcodes, Nummern, die alphanumerische Zeichen enthalten können, zu formatieren?
Nein, es gibt keine analoge Formatierungsmöglichkeit.


Gruß
Stephan

[gelöst] alphanumerische Nummern formatieren

von TrueColor » Mi, 29.05.2013 11:31

Hallo,

ich bin bisher leider nicht fündig geworden. Gibt es eine Möglichkeit, analog zu den Zahlenformatcodes, Nummern, die alphanumerische Zeichen enthalten können, zu formatieren?

Ich habe hier 11-stellige Nummern, die der besseren Lesbarkeit wegen in drei 3er-Blöcke und einen 2er-Block formatiert werden sollen.

Bsp.:

Code: Alles auswählen

26121A90124 --> 261 21A 901 24
Vielen Dank

Nach oben