Hallo.

Hätte mal ein Anliegen:

Eine Excel-Datei, mit 2 Spalten. In der ersten Spalte stehen einzelne Wörter, durch Komma getrennt. Diese sollen automatisch getrennt werden, und in jeweils einzelne Wörter in eine neue Spalte kopiert werden.

Habt Ihr da Ideen, wie diese Formel aussehen soll?!

Ich bitte um schnelle Antworten. Danke

Grüße

Makro aufzeichnen?^^

Ich hab sowas rausbekommen:

Sub Makro1()

'

' Makro1 Makro

'


'

    Columns("A:A").Select

    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _

        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _

        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _

        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), TrailingMinusNumbers:= _

        True

End Sub

Hab einfach ein Makro aufzeichnen lassen, als ich "Texte in Spalten" benutzt hab. Ich denke mal du meinst es so?

Also mittlerweile sind wir schon soweit:

Sub Makro1()

Dim Zelle As Range

Dim Bereich As Range

Set Bereich = Sheets("Tabelle1").Range("A2:A105")

For Each Zelle In Bereich

If Zelle.Value ... Then Zelle .... +++

Next Zelle

End Sub

Jetzt fehlen mir nur noch die Argumente.

Danke für die Antwort, zu spät gesehen. Mit Deinem Quelltext funktioniert das soweit. Jedoch sind die Spalten verschoben.

Zwischen den Wörtern der Spalte A sind noch leere Zeilen enthalten. (nicht immer)

Hat geklappt. Danke.

Ich weiß nicht wie ich das dokumentieren soll. Muss das aufschreiben. Hat jemand ne simple erklärung, zu den einzelnen befehlen?

Wäre super. Danke