Hallo Irmhild,
-----Original-Nachricht-----
Hallo Irmhild,
-----Original-Nachricht-----
Hallo
Man sieht dies auch an der Eingabezeile, Formatierte Zelle als
Text zeigt z.B. -1- und eine formatierte Zelle als Zahl zeigt
-'1- (natürlich ohne Bindestriche). Ob das richtig ist, mag ich
nicht beurteilen.
Hä? Wenn ich die Zelle über Format > Zellen ... ; Register Zahlen als Text formatiere, sieht mach kein Hochkomma!
Erst wenn ich der Zelle über Format > Zahlformat... ein Format zuweise, erscheint das Hochkomma.
Hallo,
Hallo
Man sieht dies auch an der Eingabezeile, Formatierte Zelle als
Text zeigt z.B. -1- und eine formatierte Zelle als Zahl zeigt
-'1- (natürlich ohne Bindestriche). Ob das richtig ist, mag ich
nicht beurteilen.Hä? Wenn ich die Zelle über Format > Zellen ... ; Register Zahlen
als Text formatiere, sieht mach kein Hochkomma!Erst wenn ich der Zelle über Format > Zahlformat... ein Format
zuweise, erscheint das Hochkomma.
ich sehe so oder so kein Hochkomma. Unter welchen Bedingungen erscheint es, und wo?
Ja, und eine Lösung gibts auch schon sehr lange...
Calc_Tools_CT.oxt von Thomas Krumbein
Ausschnitt:
------8<-------------
'/** Calc_TexteZuWerten()
'*************************************************************************.
'* @kurztext konvertiert Zelltexte zu Zellwerten
'* Diese Funktion konvertiert Zelltexte zu Zellwerten
'*************************************************************************
'*/
sub Calc_TexteZuWerten()
dim aZellen() 'Liste der Zellen
dim Zelle() 'ein Zellarray
dim oZelle as variant 'Zelle als Objekt
dim s as string, i as long
if NOT Helper.CheckCalcDokument(ThisComponent) then exit sub
aZellen = Helper.getCellListeSelektion(thisComponent.getCurrentSelection())
for i = 0 to UBound(aZellen)
Zelle = aZellen(i)
oZelle =
thisComponent.getSheets().getByIndex(Zelle(0)).getCellByPosition(Zelle(1),
Zelle(2))
if oZelle.getType() = 2 then 'nur bei Wertezellen
s = oZelle.string
oZelle.FormulaLocal = s
end if
next
end sub
------8<-------------