Exel: Text in Spalten automatisch ausführen

Question

Hallo,
ich habe mehrere Daten die jeweils durch ein Komma getrenn in einer Zelle stehen.
Diese möchte ich in einer anderen Datei einsetzen und dort automatisch über "Text in
Spalten" trennen.
Allerdings übernimmt "Text in Spalten" nur die tatsächliche Funktion und nicht den
Inhalt. bsp.:" ='BESTANDSLISTE'!A4 " hat jemand eine Idee wie ich den Inhalt und nicht
den Befehl aufteilen kann?
Danke im vorraus

Answer 1

Hallo,

kopiere erst die Daten aus der Quelldatei und füge sie in die Zieldatei ein.
Erst jetzt wendest Du die Funktion "Text in Spalten " an.

Gruß
Rainer

Answer 2

Erstmal, danke für die Antwort Rainer.
tut mir leid das ich jetzt erst antworte, ich weiß das es wenig Effektiv ist
wenn meine Reaktion so spät erfolgt.
Das Problem das der Vorgang Text in Spalten automatisch erfolgen
muss. D.H. er muss es immer sofort übernehmen. Ohne meinen
Schritt des Einfügens.
Hast du oder jemand anders eine Idee?

Gruß

Answer 3

Hallo,

Hast du oder jemand anders eine Idee?

... wenn Du auf das vorherige Einfügen per Handarbeit verzichten willst, musst Du die Aktion per Makro gestalten.
Vielleicht kann Dir dabei schon der Makrorecorder helfen.

Für einen Aussenstehenden ist es schwer anhand Deiner mageren Beschreibung ein Makro zu schreiben.

Gruß
Rainer

Answer 4

Hallo,
vielleicht so mit einem Makro:
Spalte A der Tabelle1 wird in Spalte A Tabelle2 eingefügt, und dann der Text getrennt.

Gruß
fedjo

Sub Trennen()
Sheets("Tabelle2").Columns("A:A").Value = Sheets("Tabelle1").Columns("A:A").Value
Sheets("Tabelle2").Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlSingleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="!", FieldInfo:=Array(Array(1, 1), Array(2, 1))
End Sub