Finde in SpalteA1:A200 Werte aus...
25.05.2020 15:07:06
Patrick
ich stehe vor einem neuen Problem;
ich habe Sheet 1 und 2 ein und derselben Datei.
Ich habe in Sheet 1 in Spalte A bis A:200 jeweils pro Zelle einen einmaligen Wert, Zeichenkette (bspw. A1=LLG0001, A2=LLG0002 usw)
Ich möchte nun prüfen, ob einer der Werte aus A1 bis A:200 in der Spalte A des Sheets 2 vorkommt.
Die Besonderheit: pro Zeile sind ggf. mehrere Zeichenketten in einer Zelle (bspw: LLG1281;LLG1009 HUB)
Wenn der Wert innerhalb der Zeichenketten in Spalte A des Sheets 2 vorkommt, dann bitte einen Treffer für einen späteren SVerweis in Sheet 2 ausgeben.
Hier mein Codeversuch, der aber nicht funktioniert. Würde mich sehr freuen, wenn ihr mir weiterhelfen könntet. Den Code habe ich in Sheet 1 hnterlegt"
Option Explicit
Public Sub Suchen()
Dim WkSh_1 As Worksheet
Dim WkSh_2 As Worksheet
Dim lZeile As Long
Dim rZelle As Range
Application.ScreenUpdating = False
Set WkSh_1 = Workbooks("SollStand_Mehrwegschütten_LK_20200519_Makros.xlsm").Sheets("IST_Stand")
Set WkSh_2 = Workbooks("SollStand_Mehrwegschütten_LK_20200519_Makros.xlsm").Sheets("IMPORT")
For lZeile = 1 To 200
With WkSh_2.Columns("A")
Set rZelle = .Find(What:=WkSh_1.Cells(lZeile, 1).Value, LookAt:=xlPart, LookIn:=xlValues)
If Not rZelle Is Nothing Then
WkSh_2.Cells(lZeile, 6) = "Treffer"
End If
End With
Application.ScreenUpdating = True
Set WkSh_1 = Nothing
Set WkSh_2 = Nothing
Next
End Sub
Anzeige