Prozedurüberlauf in VBA Code
10.05.2018 20:25:14
Jockel
Ich möchte aus Tabelle1 D1 ein Kriterium auslesen, dann die Tabelle2 Spalte A durchlaufen und alle DS, die dem Kriterium aus D1 entsprechen (Auch Teilstrings) , nach Tabelle3 kopieren. (Zeile A bis F)
Ich bekomme aber ein Prozedurüberlauf. Kann jemand sehen, was da nicht stimmt ?
Sub test2()
Dim such, Bereich
such = Range("D1")
For i = 1 To 8
If InStr(1, Worksheets("Tabelle2").Cells(i, 1).Value, such, 1) Then
Bereich = Bereich + Worksheets("Tabelle2").Cells(i, 1).AddressLocal(False, False) & ","
End If
Next
Bereich = Left(Bereich, Len(Bereich) - 1)
Range(Bereich).EntireRow.Copy Destination:=Worksheets("Tabelle3").Cells(1, 1)
End Sub