Registriert seit: 14.04.2014
Version(en): Office 2016 32bit
Hallo zusammen,
brauch mal kurz Hilfe.
ich müsste den Wert einer Zelle teilen (Funktion: Text in Spalten). Meine Zellen haben nachfolgende Darstellung...
..d.h. die Trennung sollte von links zwei Stellen nach dem ersten Komma passieren z.B. ">-3,40(hier)-4,40 egal ob ein Minuszeichen davor oder nicht.
Ich hoffe, dass ich mich klar ausdrücken konnte.
Grüße aus Bremen
Bernie
"Wenn du jemanden triffst ohne lächeln, schenke ihm deins !!!"
MS Office 2016 Pro 32bit - Win 10 Pro 64 bit
Haftungshinweis: Trotz sorgfältiger inhaltlicher Kontrolle übernehmen ich keine Haftung für die Inhalte externer Links. Für den Inhalt der verlinkten Seiten sind ausschließlich deren Betreiber verantwortlich.
Registriert seit: 10.04.2014
Version(en): 2016 + 365
20.10.2014, 13:03
(Dieser Beitrag wurde zuletzt bearbeitet: 20.10.2014, 13:07 von Rabe.)
Hi Bernie,
(20.10.2014, 12:27)Bernie schrieb: ich müsste den Wert einer Zelle teilen (Funktion: Text in Spalten).
mit "Text in Spalten" geht es IMO nicht, per Formel geht es so:
Tabelle1 | B | C | D | E | F | G | 1 | Text | | als Text | | als Zahlen | | 2 | '-3,40-4,40 | | -3,40 | -4,40 | -3,4 | -4,4 | 3 | 2,793,53 | | 2,79 | 3,53 | 2,79 | 3,53 |
verwendete Formeln | | Zelle | Formel | Bereich | N/A | D2: D3 | =LINKS(B2;FINDEN(",";B2;1)+2) | | | E2:E3 | =TEIL(B2;FINDEN(",";B2;1)+3;10) | | | F2:F3 | =LINKS(B2;FINDEN(",";B2;1)+2)*1 | | | G2:G3 | =TEIL(B2;FINDEN(",";B2;1)+3;10)*1 | | |
Zahlenformate | Zelle | Format | Wert | F2 | '0,00 | -3,4 | G2 | '0,00 | -4,4 | F3 | '0,00 | 2,79 | G3 | '0,00 | 3,53 | Zellen mit Format Standard werden nicht dargestelltExcel-Inn.de | Hajo-Excel.de | XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007 | Add-In-Version 18.19 einschl. 64 Bit |
Registriert seit: 11.04.2014
Version(en): Office 2007
Auch Hallo,
oder per RegEx
Code: Sub prcTestRegex()
Dim re As Object, reMat As Object
Dim lngC As Long
Set re = CreateObject("vbscript.regexp")
re.Pattern = "\-*\d+\,\d{2}"
re.Global = True
lngC = 1
While Cells(lngC, 1) <> ""
Set reMat = re.Execute(Cells(lngC, 1))
If reMat.Count Then
Cells(lngC, 2) = reMat(0) * 1
Cells(lngC, 3) = reMat(1) * 1
End If
lngC = lngC + 1
Wend
End Sub
Gruß Stefan
Win 10 / Office 2016
Registriert seit: 14.04.2014
Version(en): Office 2016 32bit
20.10.2014, 15:16
(Dieser Beitrag wurde zuletzt bearbeitet: 20.10.2014, 15:18 von Bernie.)
Hallo zusammen,
@Ralf, passt! Danke!
@Stefan,
hab deinen Code in ein Modul eingefügt und er läuft durch, aber in meiner Tabelle passiert nix.
Hier nochmal ein Auszug einer meiner Tabellen (4Stck.). D.h. Spalte B,C und D müssen nach den erwähnten Vorgaben erweitert werden.
| A | B | C | D | 1 | NameISIN | +/-% | +/- 3 Mon.% 3 Mon. | +/- 6 Mon.% 6 Mon. | 2 | Aareal BankDE0005408116 | -0,06-0,18 | -6,12-17,84 | -3,49-11,00 |
Ergebnis soll so aussehen...
| A | B | C | D | E | F | G | 1 | NameISIN | +/-% | +/- 3 Mon.% 3 Mon. | +/- 6 Mon.% 6 Mon. | Spalte1 | Spalte2 | Spalte3 | 2 | Aareal BankDE0005408116 | -0,06-0,18 | -6,12-17,84 | -3,49-11,00 | -0,18 | -17,84 | -11,00 |
Zelle | Format | Wert | E1 | 0,00 | Spalte1 | F1 | 0,00 | Spalte2 | G1 | 0,00 | Spalte3 | E2 | 0,00 | -0,18 | F2 | 0,00 | -17,84 | G2 | 0,00 | -11 |
Zelle | Formel | E2 | =TEIL(B2;FINDEN(",";B2;1)+3;10)*1 | F2 | =TEIL(C2;FINDEN(",";C2;1)+3;10)*1 | G2 | =TEIL(D2;FINDEN(",";D2;1)+3;10)*1 |
Grüße aus Bremen
Bernie
"Wenn du jemanden triffst ohne lächeln, schenke ihm deins !!!"
MS Office 2016 Pro 32bit - Win 10 Pro 64 bit
Haftungshinweis: Trotz sorgfältiger inhaltlicher Kontrolle übernehmen ich keine Haftung für die Inhalte externer Links. Für den Inhalt der verlinkten Seiten sind ausschließlich deren Betreiber verantwortlich.
Registriert seit: 11.04.2014
Version(en): Office 2007
Hallo,
(20.10.2014, 15:16)Bernie schrieb: @Stefan,
hab deinen Code in ein Modul eingefügt und er läuft durch, aber in meiner Tabelle passiert nix.
kann ich nicht nachvollziehen. Bei mir geht es. Du mußt natürlich schon die Spalten anpassen.
Gruß Stefan
Win 10 / Office 2016
Registriert seit: 14.04.2014
Version(en): Office 2016 32bit
Hallo Stefan,
entschuldige, dass ich mich jetzt erst melde, aber ich musste einen wichtigen Termin wahrnehmen.
Den Code, wie gesagt hatte ich in einer Testmappe ausprobiert und es passierte in der Tabelle nichts. Vielleicht liegt es daran, dass es sich um Tabellen handelt, die mit Power-Query erstellt wurden. Ich weiß es leider nicht.
Ich hatte aber in der Originalmappe schon die Formel von Ralf verarbeitet und das klappt ganz gut.
Danke nochmal für deine Hilfe und hab immer einen Blick auf die Beiträge des kleinen Dicken mit kurzen Beinen, gelle. :15:
Grüße aus Bremen
Bernie
"Wenn du jemanden triffst ohne lächeln, schenke ihm deins !!!"
MS Office 2016 Pro 32bit - Win 10 Pro 64 bit
Haftungshinweis: Trotz sorgfältiger inhaltlicher Kontrolle übernehmen ich keine Haftung für die Inhalte externer Links. Für den Inhalt der verlinkten Seiten sind ausschließlich deren Betreiber verantwortlich.
Registriert seit: 11.04.2014
Version(en): Office 2007
Hallo Bernie,
(21.10.2014, 08:32)Bernie schrieb: Den Code, wie gesagt hatte ich in einer Testmappe ausprobiert und es passierte in der Tabelle nichts. Vielleicht liegt es daran, dass es sich um Tabellen handelt, die mit Power-Query erstellt wurden. Ich weiß es leider nicht.
Ich hatte aber in der Originalmappe schon die Formel von Ralf verarbeitet und das klappt ganz gut.
Das kann durchaus sein, das da zum Beispiel die Formate anders sind, oder das Format der Daten oder oder....
Gruß Stefan
Win 10 / Office 2016
Registriert seit: 14.04.2014
Version(en): Office 2016 32bit
Hallo Stefan,
ja, es liegt eindeutig an den Formaten.
Bin gerade dabei mit dem Makrorecorder die Formate einheitlich zu machen. Wäre dir sehr dankbar, wenn du vielleicht morgen oder so noch mal auf meinen Beitrag schaust, denn dann habe ich die endlos langen Recorder-Aufzeichnungen fertig und würde dich dann bitte diese Code etwas zu entschlacken. Danke schon mal im Vorraus. :15:
Grüße aus Bremen
Bernie
"Wenn du jemanden triffst ohne lächeln, schenke ihm deins !!!"
MS Office 2016 Pro 32bit - Win 10 Pro 64 bit
Haftungshinweis: Trotz sorgfältiger inhaltlicher Kontrolle übernehmen ich keine Haftung für die Inhalte externer Links. Für den Inhalt der verlinkten Seiten sind ausschließlich deren Betreiber verantwortlich.
|