Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
14.03.2019, 10:46
(Dieser Beitrag wurde zuletzt bearbeitet: 14.03.2019, 10:46 von WillWissen.)
Hi,
so völlig ohne Formel und VBA (Stichwort PowerQuery):
Arbeitsblatt mit dem Namen 'Tabelle4' |
| A | B | C |
1 | Überschrift nach Wahl | | |
2 | 09446411072075 | | 1. Daten==> Datenabrufen aus Tabelle/Bereich |
3 | 09446411072075 | | 2. Transformieren==> Extrahieren==>Text nach Trennzeichen |
4 | 05308064092921 | | 3. Eingabe Trennzeichen: Doppelpunkt und ein Leerzeichen |
5 | 05308064092921 | | 4. Extrahieren==> Bereich==> Startindex:0 / Anz. Zeichen: 14 |
6 | 01287032246526 | | 5. Start==>Schließen und Laden |
7 | 01287043394500 | | |
8 | 01285015801758 | | |
9 | 01286816019476 | | |
Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016 |
Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg |
Wenn du jetzt neue Werte in deiner Tabelle anfügst, brauchst du nur noch den Button "Alle aktualisieren" oder die Tastenkombi STRG+Alt+F5 drücken
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Registriert seit: 14.04.2014
Version(en): Office 2013/2016/2019/365
Hi,
oder in 10 Sek. erledigen... ohne VBA , ohne Formel, ohne PQ
https://www.youtube.com/watch?v=7O2e3QRyBiUseit Version 2013 möglich
lg Chris
Feedback nicht vergessen.
3a2920576572206973742064656e20646120736f206e65756769657269672e
Registriert seit: 27.04.2014
Version(en): Privat: Office Home & Business 2024 / Arbeit: MS365
Hi Chris,
der letzte Schritt, das runterziehen, wie macht man das?
Danke
LG
Alexandra
Registriert seit: 14.04.2014
Version(en): Office 2013/2016/2019/365
14.03.2019, 11:29
(Dieser Beitrag wurde zuletzt bearbeitet: 14.03.2019, 11:29 von chris-ka.)
Hi,
da wird nichts runter gezogen :)
Excel hat eine eine eingebaute Intelligenz und Algorithmen werden automatisch erkannt. In der zweiten Zelle wird nur mehr angefangen zu schreiben.... es erscheint der Vorschlag in Grau, durch drücken der Entertaste wird dann die Liste übernommen.
p.s Das formatieren als Text ist nur in diesem Bsp. nötig, da ja führende Nullen sind.
lg Chris
Feedback nicht vergessen.
3a2920576572206973742064656e20646120736f206e65756769657269672e
Registriert seit: 27.04.2014
Version(en): Privat: Office Home & Business 2024 / Arbeit: MS365
Hi Chris,
also ich füge in B1 den Ausschnitt ein und dann passiert bei mir garnichts!? :)
LG
Alexandra
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
Hi Alexandra,
wenn, aus welchem Grund auch immer, nichts ausgegraut erscheint, gibt es noch einen zweiten Weg:
Die erste Ziffernfolge, wie im Video von Chris zu sehen ist, kopieren und in die Nachbarzelle einfügen. Dann markierst du diese Zelle und alle nachfolgenden bis zum Ende der Tabelle. Unter Daten brauchst du jetzt nur noch auf Blitzvorschau klicken und XL füllt dir die anderen markierten Zellen aus.
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Registriert seit: 27.04.2014
Version(en): Privat: Office Home & Business 2024 / Arbeit: MS365
Hi Günter,
jep, so funktioniert es! :) Danke
Trotzdem komisch dass es nicht automatisch funktioniert wie im Video von Chris!
LG
Alexandra
Registriert seit: 14.04.2014
Version(en): Office 2013/2016/2019/365
Hallo Alexandra,
keine Ahnung warum es nicht gehen sollte
anbei die Datei
kopiere den ersten Zahleneintrag nach B1 (lt. Video) , schreibe dann eine Null (0) in B2 und es müsste der Vorschlag angezeigt werden.
testmal.xlsx (Größe: 9,82 KB / Downloads: 8)
lg Chris
Feedback nicht vergessen.
3a2920576572206973742064656e20646120736f206e65756769657269672e
Registriert seit: 27.04.2014
Version(en): Privat: Office Home & Business 2024 / Arbeit: MS365
Hi Chris,
leider nicht, vielleicht liegt es an meine Version 2019?
Aber über Daten - Blitzvorschau funktioniert es! :)
LG
Alexandra
Registriert seit: 29.09.2015
Version(en): 2030,5
UDF:
Code:
Function F_snb(c00)
F_snb = Mid(Split(Split(c00, ": ")(1))(0), 2)
End Function
In B1: