Herbers EXCEL-CD

Sub FindenUndKopieren()

   Dim iRowS As Integer, iRowT As Integer

   Dim sWord As String

   sWord = InputBox( _

      prompt:="Suchbegriff:", _

      Default:="8")

   If sWord = "" Then Exit Sub

   iRowS = 1

   iRowT = 1

   With Worksheets("Tabelle2")

      Do Until IsEmpty(Cells(iRowS, 1))

         If Cells(iRowS, 1) = sWord Then

            Rows(iRowS).Copy .Rows(iRowT)

            iRowT = iRowT + 1

         End If

         iRowS = iRowS + 1

      Loop

      .Columns.AutoFit

      .Select

   End With

End Sub

Code eingefügt mit: Excel Code Jeanie

Allerdings wird nur die erste Spalte durchsucht.

Wie kann das Makro geändert werden, dass die gesamte Tabelle durchsucht wird und jede Zeile mit einer "8" kopiert wird?.
Hoffentlich verständlich ausgedrückt und besten Dank im Voraus!!

mfg
Erich