Ich schreib dir n Makro dafür... Moment.
- - - - - - - - - - Beitrag nachträglich erweitert - - - - - - - - - -
Ist jetzt zwar nicht das schönste, funktioniert soweit aber.
Schalt dir mal die Entwicklertools frei:
- Menü -> Optionen -> gleich auf der ersten Seite sollte was mit Entwicklertools stehen, das anhaken.
- Dann erhältst du einen neuen Tab namens Entwicklertools. Dort kannst du dann drauf klicken und dir einen Button erstellen.
- Hinter diesen Button legst du das Makro mit dem Namen Parse_Releases. Anschließend kopierst du den folgenden Code in das neue Fenster rein, das geöffnet wurde (VBA Editor).
- Dann klickst du im VBA Editor oben auf Extras -> Verweise. Dort suchst du dir Microsoft VBScript Regular Expressions 5.5 raus und setzt einen Haken davor. Das bestätigst du mit OK.
- Speichern und schon kannst du mit Klick auf den Button die Staffel und Episodennummer automatisch übernehmen.
Code:
Sub Parse_Releases()
Dim i As Long
For i = 1 To Rows.Count
Dim cellValue As String
cellValue = Cells(i, 1).Value
If Not IsEmpty(Cells(i, 1).Value) Then
Dim regEx As New VBScript_RegExp_55.RegExp
Dim matches, s, match
regEx.Pattern = "\.S([0-9]{2})E([0-9]{2})\."
regEx.IgnoreCase = True
regEx.Global = False
If regEx.Test(cellValue) Then
Set matches = regEx.Execute(cellValue)
match = matches(0)
Dim vals
vals = Split(match, "E")
Cells(i, 2).Value = Replace(vals(0), ".S", "")
Cells(i, 4).Value = Replace(Replace(vals(1), "E", ""), ".", "")
'Falls du den Groupnamen auch noch auslesen und in eine Zelle packen willst.
'Dim grp As String
'Dim strlen As Integer
'strlen = Len(cellValue)
'grp = Right(cellValue, strlen - InStrRev(cellValue, "-"))
'If InStr(grp, ".") Then
' Dim grpval
' grpval = Split(grp, ".")
' grp = grpval(0)
'End If
'Cells(i, 5) = grp
End If
End If
Next i
End Sub