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 |
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
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.
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
Hi Gerd,
ich hoffe, ich habe deine eingangs erwähnte Aufgabenstellung
Zitat: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.
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
... wobei ich gerade sehe, dass Günter ja bereits in #8 darauf hingewiesen hat ...
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
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.
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