Text in Spalten aufteilen - wenn kein Anhaltspunkt für Excel?

[Pepe5]

Hallo LCoen,

danke für deinen Beitrag.
Ich vesrstehe nur leider nicht was du genau meinst.

Habe die Formel jetzt einfach mal in eine Zelle eingegeben.
Was genau meinst du mit Indes bzw. wie muss ich genau vorgehen?

[00202]

Moin,  

wenn du es so wie vorgeschlagen in Spalte A kopierst, kannst du auch über VBA aufdröseln:  
[attachment=51390]

Wenn du es anders hast, musst du im Code eben anpassen.

[LCohen]

Du wolltest Deine Daten in B:D haben. Also kopiere die Formel in B1: und ziehe bis D999: auf. Genau das meint meine Schreibweise B1[:D999]:

Zwischendurch gibt es in Deinen Daten übrigens Abschnittsüberschriften. Deren Zeilen musst Du einzeln löschen, wenn sie mit hineinkopiert sind. Da Du das ganze aber periodisch wiederholst, holst Du auch nur eine beschränkte Menge herüber.

[Pepe5]

Ich danke euch wirklich recht herzlich für eure Hilfe.
Wahnsinn was man sich mit Excel alles machen kann.

Werde mich allerdings mit VBA etwas beschäftigen müssenm
Das ist für mich absolutes Neuland.

Wirklich super von euchen allen.
Danke für eure Mühe.

Gruß
Pepe5

[00202]

Moin,  

in deinem Fall würde sich Power Query bzw. -> Daten - Daten abrufen und transformieren - Daten aus dem Web <- anbieten. Hier mal ein Beispiel:  
[attachment=51398]

Einen Einstieg in PQ findest du hier.

Der zugehörige M-Code:

Code:

let
    Quelle = {1..20},
    #"In Tabelle konvertiert" = Table.FromList(Quelle, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
    #"Rest eingefügt" = Table.AddColumn(#"In Tabelle konvertiert", "Modulo", each Number.Mod([Column1], 2), type number),
    #"Gefilterte Zeilen" = Table.SelectRows(#"Rest eingefügt", each ([Modulo] = 1)),
    #"Entfernte Spalten" = Table.RemoveColumns(#"Gefilterte Zeilen",{"Modulo"}),
    #"Geänderter Typ" = Table.TransformColumnTypes(#"Entfernte Spalten",{{"Column1", type text}}),
    #"Aufgerufene benutzerdefinierte Funktion" = Table.AddColumn(#"Geänderter Typ", "Tabelle 1", each #"Tabelle 1"([Column1])),
    #"Erweiterte Tabelle 1" = Table.ExpandTableColumn(#"Aufgerufene benutzerdefinierte Funktion", "Tabelle 1", {"Column1", "Column2", "Column3", "Column4", "Column5"}, {"Tabelle 1.Column1", "Tabelle 1.Column2", "Tabelle 1.Column3", "Tabelle 1.Column4", "Tabelle 1.Column5"}),
    #"Umbenannte Spalten" = Table.RenameColumns(#"Erweiterte Tabelle 1",{{"Column1", "Seite"}, {"Tabelle 1.Column1", "Titel"}, {"Tabelle 1.Column2", "Interpret"}, {"Tabelle 1.Column3", "Jahr"}, {"Tabelle 1.Column4", "Dauer"}}),
    #"Geänderter Typ1" = Table.TransformColumnTypes(#"Umbenannte Spalten",{{"Dauer", type time}}),
    #"Umbenannte Spalten1" = Table.RenameColumns(#"Geänderter Typ1",{{"Tabelle 1.Column5", "Stil"}})
in
    #"Umbenannte Spalten1"

[Pepe5]

Woooow
es wird ja echt immer besser

Suuuuper

Dank dir

[Pepe5]

Ich setze es mal auf erledigt.

Vielen Dank nochmal an alle und auch nochmal besonders an Case
der für sich der Sache auch nochmal angenommen hat.

[ws-53]

Hi Case,

ich habe mal deine PQ-Variante aufgegriffen, den Import der Seitennummern parametrisiert, sowie das Ergebnis um die Datumsspalte erweitert. Habe dabei nun auch ungefähr verstanden, wie Web.BrowserCentents funktioniert. Allerdings ist diese Funktion vermutlich nicht in allen Excelversionen verfügbar.

[00202]

Moin ws-53,  

prima. Schaue mir deine Variante heute Nachmittag mal an. Das ist ein so breit gefächertes Thema - für mich einfach interessant.

[ws-53]

Bei meiner Lösung in #18 hat mir nicht gefallen, dass der Webimport 2 mal durhgeführt werden musste. Deshalb habe ich nun die 2 unterschiedlichen Aufbereitungen gemeinsam in die Funktion "Import_Karaoke_Seiten" gepackt. Wobei ich mir dazu vorher, um es auch schrittweise testen zu können, die Abfrage "Seiten_ohne_und_mit_Datum" erstellt hatte.