Hallo zusammen,

ich brächte Unterstützung bei meinem VBA-Code:

Ich möchte über eine InputBox die "Tabelle2" Spalten A-I nach einem Begriff oder Zahl durchsuchen und die ganze Zeile A-I in der der Begriff/Zahl vorkommmt kopieren und  in  "Tabelle1"  einfügen. Sollte der Begriff mehrfach vorkommen, sollte die kopierten Zeilen untereinander aufgelistet werden.

Zu "Tabelle2" - beinhaltet in den Spalten A-I unterschiedliche Artikeldaten. Es sind ca 2000 Artikel in der Tabelle vorhanden.

Währe es zusätzlich noch möglich dass Excel Groß/kleinschreibung vernachlässigt oder nur Teilinhalte einer Zelle beim durchsuchen von Tabelle2 berücksichtigt, also auch in Tabelle1 kopiert?

Leider reichen meine VBA-Kenntnisse für diese Aufgabe nicht aus :D

Herzlichen Dank schon im Voraus :D  

mein Code sieht bisher so aus:

Sub Suche()
Dim Bereich As Range
Dim ichsuche As String
Dim i As Long

i = 2

ichsuche = InputBox("Was brauchst du?", "Ersatzteilsuche")
If ichsuche = "" Then
MsgBox ("Junge nix kon ma ned findn")
Exit Sub
End If

With Worksheets("Tabelle2").Range("A:I")
Worksheets("Tabelle1").Range("A10:I1000").Clear
Set Bereich = .Find(ichsuche, LookIn:=xlValues)
If Not Bereich Is Nothing Then
Treffer = Bereich.Address
End If
End With

For Each Bereich In Worksheets("Tabelle2").Range("A:I")
              If Bereich = ichsuche Then
               Bereich.EntireRow.Copy Worksheets("Tabelle1").Cells(i, 1)
               i = i + 1
               
             End If


Next Bereich

End Sub