NAchtrag. Eine Unterscheidung fehlte noch. VG
Sub aufteilen()
Text = "Umweltdaten.pdf"
If UBound(Split(Left(Text, InStrRev(Text, ".") - 1), " ")) = 2 Then
'es gibt vor und hinter Umweltdaten was
Cells(1, 1) = Split(Left(Text, InStrRev(Text, ".") - 1), " ")(0)
Cells(1, 2) = Split(Left(Text, InStrRev(Text, ".") - 1), " ")(1)
Cells(1, 3) = Replace(Split(Left(Text, InStrRev(Text, ".") - 1), " ")(2), "_", "/")
Else
'es gibt nur einen Wert
If Split(Left(Text, InStrRev(Text, ".") - 1), " ")(0) <> "Umweltdaten" And UBound(Split(Left(Text, InStrRev(Text, ".") - 1), " ")) = 1 Then
'nur Kapitel da
Cells(1, 1) = Split(Left(Text, InStrRev(Text, ".") - 1), " ")(0)
Cells(1, 2) = Split(Left(Text, InStrRev(Text, ".") - 1), " ")(1)
Else
If UBound(Split(Left(Text, InStrRev(Text, ".") - 1), " ")) = 0 Then
'es steht nur Umweltdaten drin
Cells(1, 2) = Split(Left(Text, InStrRev(Text, ".") - 1), " ")(0)
Else
'Kapitel fehlt
Cells(1, 2) = Split(Left(Text, InStrRev(Text, ".") - 1), " ")(0)
Cells(1, 3) = Replace(Split(Left(Text, InStrRev(Text, ".") - 1), " ")(1), "_", "/")
End If
End If
End If
End Sub
|