versuche dieses Makro so Umzugestalten das ich es für meine Tabelle
benutzen kann,leider ist es mir bisher nicht gelungen.
Meine Tab. sieht wie folgt aus.
in Spalte A Zeile 35 bis 150 steht eine 7 Stellige Nr. die gesucht werden
soll und in der Zeile 20 soll die Fundstelle hinein kopiert werden.
Vieleicht kann sich das mal jemand anschauen.
MfG
Peter Sasse
Sub FindenUndKopieren()
Dim iRowS As Integer, iRowT As Integer
Dim sWord As String
sWord = InputBox( _
prompt:="Suchbegriff:", _
Default:="Zeile 3 - Spalte 1")
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