AW: Kommagetrente strings in zelle trennen
16.03.2009 05:36:17
Oberschlumpf
Hi Tobias
Versuch mal das:
Sub test()
Dim lstrSplit() As String, liIndex As Integer
If InStr(Cells(1, 2).Value, ",") > 0 Then
lstrSplit = Split(Cells(1, 2).Value, ",")
For liIndex = LBound(lstrSplit) To UBound(lstrSplit)
MkDir ThisWorkbook.Path & "\" & Cells(1, 1).Value & "\" & lstrSplit(liIndex)
Next
Else
MkDir ThisWorkbook.Path & "\" & Cells(1, 1).Value & "\" & Cells(1, 2).Value
End If
End Sub
Aber...
...wie du vielleicht schon gemerkt hast, musst du den Code erst wieder anpassen.
Denn aus Cells(i hab ich Cells(1 gemacht, da du nicht die Schleife gezeigt hast, für die i wohl als Zähler steht.
Und der Code funktioniert so, wie er hier steht, nur 1x. Nämlich dann, wenn die Unterverzeichnisse in Cells(1,2) noch nicht existieren.
Ein erneuter Start führt zu einem Fehler.
Aber ich bin fast sicher, dass du schon ein On Error GoTo ... eingesetzt hast, da du ja schreibst, dass dein Code soweit schon funktioniert. Deswegen habe ich auch keine Fehlerbehandlung programmiert.
Hilfts denn, nachdem du den Code angepasst hast?
Ciao
Thorsten