ich krieg aus dem u.g. VBA-Code keine erweiterten FIND hin.
Sodass er nicht nur den ersten Eintrag findet, sondern auch weiterhin sucht bis
zum letzten gefundenen Eintrag und diesen natürlich auch in die Tabelle3 rüber kopiert.
Hättet ihr ein Tipp wie ich das hinkriege?
Hinweis,
ich habe Materialnummern mit Bezeichnungen und weiteren Informationen in Tabelle1.
In der Tabelle2 sollen Materialnummern eingefügt werden, diese dann mit den Materialnummern von Tabelle1 verglichen werden, sobald welche vorhanden sind, sollen sie in Tabelle3 kopiert werden - sprich die Zeile ab Spalte C.
Vielen Dank vorab.
Gruß,
Logi
For LoI = 1 To LoLetzte2 ' Schleife über Kopie
If WsT2.Cells(LoI, 2) "" Then
Set RaFound = WsT1.Range("A1:A500" & LoLetzte1).Find(WsT2.Cells(LoI, 2), _
WsT1.Range("A" & LoLetzte1), , xlWhole, , xlNext)
If Not RaFound Is Nothing Then ' Begriff gefunden
WsT1.Rows(RaFound.Row).Copy ' gefundene Zeile kopieren
With Worksheets("Tabelle3")
' letzte belegte Zeile in Tabelle 3 ermitteln
Loletzte3 = .UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
' ermittelte Zeilennummer mit max. Anzahl vergleichen
If Loletzte3 > Rows.Count Then
MsgBox "In Tabelle3 ist keine Zeile mehr frei"
' Zwischenspeicher löschen
Application.CutCopyMode = False
Exit Sub
End If
' Werte übertragen
.Rows(Loletzte3).PasteSpecial paste:=xlValues
' Formate übertragen
.Rows(Loletzte3).PasteSpecial paste:=xlFormats
' Werte übertragen in die gleiche Zeile wie Tabelle1
'.Rows(RaFound.Row).PasteSpecial Paste:=xlValues
' Formate übertragen in die gleiche Zeile wie Tabelle1
'.Rows(RaFound.Row).PasteSpecial Paste:=xlFormats
End With
End If
End If