Office: VBA: Suchen nur in einer Spalte

Hallo,
ich möchte mir ein VBA für meine Bedürdnisse anpassen, dass ich mal vor einiger Zeit hier http://www.herber.de/forum/archiv/152to156/t153967.htm gefunden habe.
Ich würde gerne, nachdem er die Überschriftenzeile kopiert hat, nur in der Spalte A weitersuchen lassen, da dort der Begriff steht nachdem ich suche. Kopieren soll er dann aber wieder die ganze Zeile. Hat jemand eine Idee?


Sub ArtikelSuchenKopieren()
'Sucht einen Begriff in einem bestimmten Blatt, und kopiert die Ergebnisse in ein anderes Blatt
Static Suchbegriff As String
Dim Zelle As Variant, ErsteAdresse As String
Dim LetzteZelle As Integer, intCount As Integer
Application.ScreenUpdating = False

Worksheets("Ergebnis").Cells.Clear 'Alte Tabelleninhalte löschen
Suchbegriff = InputBox(Prompt:="Bitte Suchbegriff eingeben:", Default:=Suchbegriff)
If Suchbegriff = "" Then Exit Sub
With Worksheets("Daten")
'Überschriftenzeile kopieren ...
.Rows(1).Copy Destination:=Worksheets("Ergebnis").Range("a1")
With .UsedRange
Set Zelle = .Find(What:=Suchbegriff, After:=Range("A1"), LookIn:=xlValues, lookat:=xlWhole, SearchOrder:=xlNext, MatchCase:=True)
If Not Zelle Is Nothing Then
ErsteAdresse = Zelle.Address
LetzteZelle = 2
Do
.Rows(Zelle.Row).Copy Destination:=Worksheets("Ergebnis").Cells(LetzteZelle, 1)
Set Zelle = .FindNext(Zelle)
LetzteZelle = LetzteZelle + 1
Loop While Not Zelle Is Nothing And Zelle.Address <> ErsteAdresse
End If
Worksheets("Ergebnis").Select
Range("a1").Select
End With
End With
Application.ScreenUpdating = True
End Sub

 

Hallo!

Ungetestet:
Ändere die Zeile "With .UsedRange" um in "With .Columns(1)".

 

Hervorragend, vielen Dank. Es funktioniert...

Grüße
Arne

edit: Hmm, jetzt kopiert er nur die erste Zelle, den Rest der Zeile wird nicht mehr kopiert...

 

Hallo!

Ebenfalls ungetestet:


.Rows(Zelle.Row).EntireRow.Copy Destination:=Worksheets("Ergebnis").Cells(LetzteZelle, 1)