AW: Inputbox suchfunktion
12.05.2011 23:22:17
Mustafa
Hallo Hans,
So vielleicht :
Option Explicit
Sub SuchenUndKopieren()
Dim strEingabe As String
Dim Bereich As Range
Dim Zelle As Range
Dim lngletzte As Long
With Worksheets("Tabelle1") 'Tabellennamen _
eventeull anpassen
Set Bereich = .Range(.Cells(2, 11), .Cells(Rows.Count, 11).End(xlUp)) 'Die 11 steht für _
Spalte K
End With
strEingabe = InputBox("Bitte Suchbegriff eingeben", "Suchen")
For Each Zelle In Bereich
If Zelle.Value = strEingabe Then
lngletzte = Worksheets("Tabelle2").Cells(Rows.Count, 11).End(xlUp).Row
Zelle.EntireRow.Copy Destination:=Worksheets("Tabelle2").Cells(lngletzte, 1).Offset(1, _
0) 'Tabellennamen eventuell anpassen
End If
Next
End Sub
Rückmeldung obs Hilft wäre nett.
Gruß aus der Domstadt Köln.