Excel Suche nach Wörtern mit *
01.06.2022 15:15:57
Sebastian
ich habe ein Problem bei einer VBA Programmierung und weiß nicht mehr weiter. Nach dem ich jetzt mehrere Ansätze probiert habe gefällt mir folgender erstmal am Besten. Jedoch soll das Skript nicht nach dem ganzen Wort sondern nach einem Teil im Wort suchen.
Gedacht ist das das Skript alle Einträge in Spalte A durchgeht und wenn das Teilwort richtig ist, dann bitte in der gleichen Zeile in Spalte B eine 1 reinschreiben.
Sofern das Wort bei mir vollständig stimmt funktioniert es, aber leider nicht wenn der Suchbegriff nur ein Teil des Wortes ist. Suche nach mehrere Suchbegriffe habe ich auch noch nicht hinbekommen und würde mich freuen wenn mir da jemand auf die Sprünge helfen kann.
Gesucht soll nach
6GK7
6ES7
6SL3
6AV6
6EP1
werden und die Zeilen in Spalte wo gesucht werden sehen in etwa so aus.
"""RACK 0, """"6ES7 390-1?0-0AA0"""", """"UR"""""" 1 "
"BEGIN "
"""ASSET_ID """"EB2EB025326643BC8FAC623D9"" 465 ""A12D"""""" "
"""OBJECT_REMOVEABLE """"1"""""" "
"""POS_X """"30"""""" "
"""POS_Y """"31"""""" "
"""SIZE_X """"601"""""" "
"""SIZE_Y """"336"""""" "
"""CAX_APP_ID """""""""" "
"""OBJECT_COPYABLE """"1"""""" "
"""CREATOR """""""""" "
"""COMMENT """""""""" "
"END "
" "
"""RACK 0, SLOT 2, """"6ES7 315-2FJ14-0AB0"""""" """"""V"" ""3.2"""", """"CPU 315F-2 PN/DP"""""" 1 "
"BEGIN "
mein Skript zum suchen sieht bisher so aus.
Option Explicit
Public Sub Zeilen_makieren()
Dim r As Long, Suchbegriff, Anzahl As Long
Dim b As Long
Dim Suchbegriff2 As Long
Dim Suchbegriff3 As Long
Dim Suchbegriff4 As Long
Dim Suchbegriff5 As Long
'suchen soll mit 6ES7, 6GK7 usw.
With ThisWorkbook.Sheets("schrottförderer_s6_s7")
Suchbegriff = "6ES7"
For r = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(r, 1) = Suchbegriff Then
.Cells(r, 2) = "1"
End If
Next
End With
End Sub
Ich würde es eigentlich egal wie der name ist immer auf die Absolute Bezeichnung Tabelle 1 verweisen.
Vielen Dank schonmal im Vorraus für alle die sich Mühe machen um darüber nachzudenken.