Ein schönen Abend,
ich hab ein kleines Problem:
mit Folgendem Code
Tphase = Tphase & Mid(Cells(Zeile, 2).Value & " , ", 6, 63)
fasse ich aus mehreren Zeilen Werte in eine Zelle zusammen und schneide jeweils die ersten 6 Zeichen ab.
das klappt auch alles aber:
leider sind es nicht immer 6 Zeichen.
wie muss ich den Code verändern das wenn Zahlen links stehen diese abgeschnitten werden?
Beispiel:
Ausgang Spalte A
00001 Name1
005 Name2
10 Name3
234 Name4
Lösung soll sein in einer Zelle:
Name1, Name2, Name3, Name4
Da ganze läuft in dieser Schleife ab
For Each rw2 In wkb.Worksheets("Process").Rows
Tp = Range(G1 & Zeile)
If Tp = "PPPhase" Then
Tphase = Tphase & Mid(Cells(Zeile, 2).Value & " , ", 6, 63)
Zeile = Zeile + 1
ElseIf Tp "PPPhase" Then
Exit For
End If
Next rw2
Gruß und Danke Wolfi