[MichaG]

Hallo Leute,

ich habe ein Problem mit meinem Makro es soll bestimmte Werte bzw. Text filtern die der User eingeben kann. Diese Werte sollen dann im Tabellenblatt zwei ausgegeben werden was auch funktioniert.

Das Problem ist ich will den Wert der über dem gesuchten Wert bzw. Text ist z.B: Suchbegriff ist ENDE (Position A5) dann soll im Tabellenblatt 2 der Wert von Zelle A4 stehen. Die Position von ENDE ist nicht konstant.

Leider bin ich grad am Anfang mich mit Makros zu beschäftigen aber ich hoffe ich bekomme von euch eine Hilfestellung.

Gruß Micha

Sub suchen_kopieren()
Application.ScreenUpdating = False
Dim Begriff As String, gefunden As Variant, firstAddress As Variant
Begriff = InputBox("suche nach:", "Suchbegriff")
If Begriff = "" Then Exit Sub
With Worksheets(1).Cells
Set gefunden = .Find(Begriff, LookIn:=xlValues)
If Not gefunden Is Nothing Then
firstAddress = gefunden.Address
Do
gefunden.Copy
Sheets(2).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial
Set gefunden = .FindNext(gefunden)
Loop While Not gefunden Is Nothing And gefunden.Address <> firstAddress
End If
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub