|
Hallo community,
Ich habe folgendes Problem: ich möchte meine Excel Tabelle nach 3 Kriterien durchsuchen, wenn die Kriterien alle vorhanden sind in der Tabelle, dann soll mir der VBA code alle gefundenen Werte in eine neue Tabelle übertragen. Das Fundament habe ich bereits und nur noch der Code ist irgendwie nicht ganz korrekt, da er mir falsche Werte rausgibt. Könnte mir jemand helfen, bitte?
Code:
Sub searchdata()
Dim erow As long
Dim ws As Worksheet
Din lastrow As Long
Dim count As Integer
Lastrow = Sheets(‘‘expoure“).Cells(Rows.count, 5) .End(xlUp) .row
Dim row As Long
row = 3
For x = 2 To lastrow
If Sheets(“exposure“) .Cells(x, 5) = Tabelle2.Range(“B2“) Then
Tabelle2.Cells(row, 4) = Sheets(“exposure“) .Cells(x, 1)
Tabelle2.Cells(row, 6) = Sheets(“exposure“) .Cells(x, 9)
row = row + 1
End if
If Sheets(“exposure“) .Cells(x, 6) = Tabelle2.Range(“B3“) Then
Tabelle2.Cells(row, 4) = Sheets(“exposure“) .Cells(x, 1)
Tabelle2.Cells(row, 6) = Sheets(“exposure“) .Cells(x, 9)
row = row +1
End if
Next x
End Sub
|