Ich hab hier ein Makro suchen und finden.Mit dem Vergleiche ich
die Daten in Tabelle8 mit der Tabelle7 per InputBox und die graue Farbe dazu.Ich möchte nun aus beiden Tabellen wenn sie Übereinstimmen in Tabelle9 kopieren, aber nicht alle sondern nur
die ersten von a bis G.In Tabelle9 sollen die Daten von Tabelle8
von A-G sein und von Tabelle7 ab H eingefügt werden .In den Spalten ab 1 beginnen usw.
Ich weiß es ist viel und ich kann es nicht.Vielleicht hat einer
von euch ein einsehen Danke
Sub Suchen1_und_markieren()
Such = InputBox("Suchbegriff eingeben")
Application.ScreenUpdating = False
w = Worksheets.Count
For ws = 1 To w
Worksheets(ws).Select
On Error Resume Next
Cells.Find(What:=Such, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).EntireRow.Interior.ColorIndex = 15
Next ws
Worksheets("Tabelle8").Select
End Sub