|
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
|