Makro für Suche nach verschiedenen Begriffen

  • Excel

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von petaod.

    Makro für Suche nach verschiedenen Begriffen

    Bezeichnung aus Export
    Bezeichnung 1
    Bezeichnung 2
    Bezeichnung richtig
    sdgalsghjsl##Bezeichnung 1…safasf
    Bezeichnung 1

    #WERT!
    Bezeichnung 1
    ettqt+++Bezeichnung 2!!##
    #WERT!

    Bezeichnung 2
    dgjl53--Bezeichnung 3--12dd

    #WERT!

    #WERT!
    Bezeichnung 3
    ###ljl+++asd Bezeichnung 1ljlafaf##
    Bezeichnung 1
    #WERT!
    Bezeichnung 1
    safl5//Bezeichnung 5%%asffw3

    #WERT!

    #WERT!
    Bezeichnung 5
    ~~~~jlsf Bezeichnung 3<<<ljlh

    #WERT!

    #WERT!
    Bezeichnung 3
    aslfajsf55* Bezeichnung 2##sfasf

    #WERT!
    Bezeichnung 2
    Bezeichnung 2

    Hallo zusammen,

    ich habe eine CSV-Datei als Export, wo in einer Spalte bestimmte Bezeichnungen drinnen stehen. Diese Bezeichnungen sind aber von Zelle zu Zelle unterschiedlich, ich möchte nur nach einem Begriff aus einer Liste an Begriffen innerhalb einer Zelle suchen. Dieser gesuchte Begriff soll dann in der Zelle rechts davon (Spalte 4 oben) ausgegeben werden.
    Bisher habe ich es ohne VBA nur geschafft, nach einem fixen Begriff (Spaltenüberschrift in Spalte 2 bzw. 3) zu suchen und diesen auszugeben. Problem dabei: für jeden Begriff brauch ich dann eine eigene Spalte und das machts mühsam.

    Hat jemand von euch eine Idee für die Lösung meines Problems...??

    Vielen Dank & SG,
    Turl

    PS: leider hab ichs auch nicht hinbekommen, meine TAbelle einzufügen bzw. die manuelle Tabelle an die richtige Stelle zu bekommen... Sorry! :-/

    Visual Basic-Quellcode

    1. FindArray = Array("Bezeichnung 1","Bezeichnung 2","Bezeichnung 3")
    2. ​For r = 2 to Cells(Rows.Count,1).End(xlUp).Row
    3. For Each FindString In FindArray
    4. If Instr(1,Cells(r,1).Value, FindString) > 0 Then
    5. Cells(r,2).Value = FindString
    6. Exit For
    7. End If
    8. Next
    9. Next
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --