Zeichen ausschneiden und zuordnen

[zelle0815]

Hallo Fennek,

vielen Dank! Es funktioniert!!!

Nur noch eine Frage zum besseren Verständnis:

i = 1: bedeutet Zeile 1
D: Spalte D
wird in Spalte E und F kopiert (jeweils Zeile 1)

Ginge das auch für viele Strings in einer Spalte? (also zB für Strings Zeile 1 - 1000)?

Hoffe ich bin nicht zu fordernd mit meinen Fragen

LG
Stefan


Sub test()
For i = 1 To Cells(Rows.Count, "D").End(xlUp).Row
    Tx = Split(Cells(i, "D"), "/")
    For j = 0 To UBound(Tx)
        If InStr(1, Tx(j), "Muttersprache") > 0 Then
            Cells(i, "E") = Cells(i, "E") & "/" & Tx(j)
        Else
            Cells(i, "F") = Cells(i, "F") & "/" & Tx(j)
        End If
    Next j
Next i
End Sub

[Fennek]

Hallo,

der gezeigte Code sollte alle Zeile, in denen Spalte D gefüllt ist, durchlaufen.

Code:

For i = 1 To Cells(Rows.Count, "D").End(xlUp).Row

next i

Mit "Cells(Rows.Count, "D").End(xlUp).Row" ermittelt man die letzte geüllte Zelle in Spalte D.

mfg

[zelle0815]

Hallo Fennek,

sorry für die späte Antwort:

funktioniert bestens. Vielen dank für die Hilfe. hat mir sehr geholfen.

LG
Stefan