Sub suchen1()
Dim rng As Range
Dim loKostenstelle As Long
Dim loGesamt As Long
Dim sFirstAdress As String
loKostenstelle = Kostenstelle
loGesamt = Gesamt:
Set rng = Worksheets("ag").Range("a:a").Find(loKostenstelle)
Set rng = Worksheets("ag").Range("c:c").Find(loGesamt)
If rng Is Nothing Then
MsgBox "Wert " & loKostenstelle & " nicht gefunden!"
MsgBox "Wert " & loGesamt & " nicht gefunden!"
Else
sfirstaddress = rng.Address
Do
rng.EntireRow.Copy
Worksheets("Tabelle3").Cells(Rows.Count, "A").End(xlUp) _
.Offset(1, 0).PasteSpecial Paste:=xlPasteAll
Set rng = Worksheets("ag").Range("a:a").FindNext(rng)
Loop While Not rng Is Nothing And rng.Address <> sfirstaddress
End If
End Sub