Zahlenformat ändern

[schauan]

Hallöchen,

ich habe hier mal einen Formelansatz, den man auch per VBA umsetzen könnte. Wenn Excel den Wert einmal als Datum angenommen hat, würde das WECHSLEN nicht mehr helfen.

Der Ansatz ist auch nicht 100%, da z.B. eventuell im Web vorhandene bzw. fehlende führende Nullen nach dem Import nicht mehr erkennbar sind. 01.15 und 1.15 werden beide zum 01.01.2015, 01.05 und 1.5 beide zum 01.05.2015

Ebenso weiß die Formel nicht, ob die eingetragene Zahl nicht vielleicht doch ein Datum war. Ich könnte mir aber vorstellen, dass diese Frage über die Spalte geklärt werden kann. Die "Texte" stehen vielleicht in einer anderen Spalte als die Daten.

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C
1	1.16.15	1.16.15	S
2	Jan 16	1.16	D3
3	Dez 16	12.16	D3
4	12. Mai	12.5	D2
5	01. Dez	1.12	D2
6	Jan 15	1.15	D3

Zelle	Formel
B1	=WENN(ZELLE("Format";A1)="D3";MONAT(A1)&"."&RECHTS(JAHR(A1);2);WENN(ZELLE("Format";A1)="D2";TAG(A1)&"."&MONAT(A1);A1))
C1	=ZELLE("Format";A1)

Diese Tabelle wurde mit Tab2Html (v2.5.0) erstellt. ©Gerd alias Bamberg

[gerdfromgermany]

Also ich kriegs nicht hin.
spezifisch geht es um diese Seite:
http://www.cboe.com/data/mktstat.aspx

Davon das erste set von Daten, unter "Ratios".
vielleicht kann das ja mal jemand testen?

Danke für die Hilfe.

Gerd

[WillWissen]

Hi Gerd,

konnte es leider nicht testen. Mein XL mosert, dass irgendein Script nicht ausgeführt werden kann und die notwendigen gelben Pfeile tauchen erst gar nicht auf. Poste doch bitte einen relevanten, von dir heruntergeladenen Tabelllenausschnitt - nur heruntergeladen, ohne weitere Bearbeitung von dir.  Vllt. kann es daran nachvollzogen werden, was nicht passt.

Falls du es nicht wissen solltest, wie das Posten eines Tabellenausschnitts geht, kannst du es hier nachlesen.

[gerdfromgermany]

ok,
so siehts aus..

im monent haben alle zellen "zahl" als format.

Web Data

	AX	AY	AZ	BA
240	Ratios
241	Total Put/Call Ratio			42036,00
242	Index Put/Call Ratio			42309,00
243	Exchange Traded Products Put/Call Ratio			13516,00
244	Equity Put/Call Ratio			0.67
245	CBOE Volatility Index (VIX) Put/Call Ratio			0.46
246	Sum of All Products
247		Call	Put	Total
248	Volume	2,235,589	2,270,394	4,505,983
249	Open Interest	157,336,908	145,270,824	302,607,732

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Viele Grüsse,
Gerd

[WillWissen]

Hi Gerd,

ich hoffe, ich habe deine eingangs erwähnte Aufgabenstellung

1,024,995,490

das soll eine Zahl sein. Ich kann sie aber nicht in 1024995490 umwandeln.

richtig verstanden:

Tabelle1

	BA	BB
240
241	42036	42036
242	42309	42309
243	13516	13516
244	0.67	67
245	0.46	46
246
247	Total	Total
248	4,505,983	4505983
249	302,607,732	302607732

Formeln der Tabelle

Zelle Formel BB241 =TEXT(WECHSELN(WECHSELN(BA241;",";"");".";"");"0") BB242 =TEXT(WECHSELN(WECHSELN(BA242;",";"");".";"");"0") BB243 =TEXT(WECHSELN(WECHSELN(BA243;",";"");".";"");"0") BB244 =TEXT(WECHSELN(WECHSELN(BA244;",";"");".";"");"0") BB245 =TEXT(WECHSELN(WECHSELN(BA245;",";"");".";"");"0") BB246 =TEXT(WECHSELN(WECHSELN(BA246;",";"");".";"");"0") BB247 =TEXT(WECHSELN(WECHSELN(BA247;",";"");".";"");"0") BB248 =TEXT(WECHSELN(WECHSELN(BA248;",";"");".";"");"0") BB249 =TEXT(WECHSELN(WECHSELN(BA249;",";"");".";"");"0")

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Kleiner Nachtrag:

Die Formatierung der Spalte BA habe ich in "Standard" geändert. Damit fallen die Dezimalstellen weg. Solltest du welche brauchen, muss in der Formel

Code:

=TEXT(WECHSELN(WECHSELN(BA242;",";"");".";"");"0")

als Format ...);"0,00") angegeben werden.

[RPP63]

Hi!
Wenn ich das richtig verstanden habe, geht es dem TE um die verflixte "Intelligenz" von Excel, ein scheinbares Datum zwangsweise in ebensolches zu verwandeln.
(Aus 1.02 mach 1.2.2015)
Ich würde es mit einer Hilfsspalte lösen (Spalte B ist als Text formatiert):

Tabelle3

	A	B	C
1	RATIOS
2	TOTAL PUT/CALL RATIO	1.02	1,02
3	INDEX PUT/CALL RATIO	1.11	1,11
4	EXCHANGE TRADED PRODUCTS PUT/CALL RATIO	1.37	1,37
5	EQUITY PUT/CALL RATIO	0.67	0,67
6	CBOE VOLATILITY INDEX (VIX) PUT/CALL RATIO	0.46	0,46

Formeln der Tabelle

Zelle Formel C2 =--WECHSELN(B2;".";",") C3 =--WECHSELN(B3;".";",") C4 =--WECHSELN(B4;".";",") C5 =--WECHSELN(B5;".";",") C6 =--WECHSELN(B6;".";",")

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Das -- vor Wechseln() wandelt Text in eine Zahl.

Gruß Ralf

[RPP63]

... wobei ich gerade sehe, dass Günter ja bereits in #8 darauf hingewiesen hat ...

[Kuwer]

Hallo Zusammen,

auch wenn die Zelle(n) als Text formatiert wurde(n) und in den Eigenschaften des externen Datenbereiches Zellformatierung beibehalten aktiviert wurde, wandelt Excel diese Punktzahlen in Daten um. Somit kann man auch nichts mehr per WECHSELN() ausrichten.

Gruß Uwe

[WillWissen]

Hi Uwe,

da wird wohl nur ein Makro weiterhelfen? Bei manueller copy/paste-Aktion unter "Inhalte einfügen ==> an Zellformatierung anpassen bleibt die ursrpüngliche Formatierung erhalten.

[Kuwer]

Hallo Gerd,

markiere eine Zelle der Webabfrage und rufe folgendes Makro auf:

Code:

Sub QuerytabelleUeberarbeiten()
 Dim oQuery As QueryTable
 Dim rngC As Range
 Dim varV As Variant
 Set oQuery = Selection.QueryTable

 With oQuery
   .ResultRange.NumberFormat = "@"
   .WebDisableDateRecognition = True
   .Refresh BackgroundQuery:=False
   With .ResultRange
     .NumberFormat = "General"
     For Each rngC In .SpecialCells(xlCellTypeConstants)
       varV = Application.WorksheetFunction.Substitute(rngC.Value, ",", "")
       If IsNumeric(varV) Then
         rngC.Value = varV
       End If
     Next rngC
   End With
 End With
End Sub

Gruß Uwe