Ergebnis 1 bis 4 von 4

Thema: Excel - Bestimmten Text automatisch in Spalten

  1. #1
    Tangiert peripher syrius Avatar von Jana-Maria
    Registriert
    Mar 2015
    Beiträge
    2,086
    Gefällt mir!
    532
    Du gefällst: 2,047

    Excel - Bestimmten Text automatisch in Spalten

    Hallo,

    ist es möglich in Excel Text automatisch in Spalten zu trennen.

    zB. hat jede Serie einen bestimmten Releasenamen.

    Tiere.bis.unters.Dach.S03E09.Fuchsjagd.German.WS.D VDRiP.x264-RegeLRechT.mkv
    Hawaii.Fuenf.Null.S06E01.In.verlorenen.Haende.Germ an.DL.FS.DVDRiP.x264-RegeLRechT.mkv
    Shameless.S05E11.Drugs.Actually.GERMAN.DUBBED.WS.H DTVRip.x264-TVP.mkv
    Mr.Selfridge.S03E05.GERMAN.DUBBED.DVDRip.x264-ACED.mkv
    Resurrection.US.S02E02.GERMAN.Dubbed.WEBRiP.x264-idTV.mkv
    Parenthood.S04E07.Der.Soldat.Ryan.York.German.Dubb ed.DVDRip.x264-CRiSP.mkv
    New.Girl.S04E13.Coming.Out.GERMAN.DUBBED.WS.WEBRip .x264-TVP.mkv

    und so weiter.

    Bisher trenne ich von Hand in Excel über Text in Spalten.

    Sieht dann so aus:



    Ist es nicht möglich automatisch zu trennen das gleich alles richtig getrennt ist?
    Geändert von Jana-Maria (01.07.2015 um 15:13 Uhr)


  2. Werbung - Hier werben?
  3. #2
    Ultimatives Spiderschwein Avatar von jbs
    Registriert
    Jun 2015
    Beiträge
    209
    Gefällt mir!
    151
    Du gefällst: 195
    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

  4. Diesen Mitgliedern gefällt dieser Beitrag:


  5. #3
    Tangiert peripher syrius
    THEMENSTARTER

    Avatar von Jana-Maria
    Registriert
    Mar 2015
    Beiträge
    2,086
    Gefällt mir!
    532
    Du gefällst: 2,047
    Geile Sache scheint zu gehen.
    Top danke.


  6. #4
    Ultimatives Spiderschwein Avatar von jbs
    Registriert
    Jun 2015
    Beiträge
    209
    Gefällt mir!
    151
    Du gefällst: 195
    Freut mich. Bei meinen Tests hats einwandfrei geklappt. Falls sonst noch was brauchen solltest -> melden!

Ähnliche Themen

  1. Excel Programm.
    Von Jörg1961 im Forum Offshore, Steuern & Zahlungen, Anonymes Business
    Antworten: 3
    Letzter Beitrag: 27.05.2017, 23:24
  2. (Sonstige) - [Text-Editor] Sublime Text 3
    Von Unlimiter im Forum Entwicklung / Programmierung
    Antworten: 0
    Letzter Beitrag: 10.12.2015, 10:00
  3. (Sonstige) - Excel - 2 Spalten abgleichen und duplikate entfernen oder markieren
    Von B0nes im Forum Entwicklung / Programmierung
    Antworten: 4
    Letzter Beitrag: 27.06.2015, 07:44
  4. szeneBOX.org will verbinden statt spalten
    Von newsBOX im Forum Datenschutz & Privatsphäre (IT-Security)
    Antworten: 3
    Letzter Beitrag: 14.03.2015, 10:27

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •  
SzeneBox.org... im Mittelpunkt der Szene!
© since 2015 szeneBOX.org - All Rights Reserved
Domains: www.szenebox.org