Hallo Liebe VBA Freunde,

ich würde gerne einen von mir geschriebenen Code schmälern und performanter machen. Leider bin ich blutiger Anfänger vielleicht kann mir jemand von euch helfe.

1. Seht ihr irgendwo Potenzial um den Code schneller zu machen 

2. Ich würde gerne danach den kompletten Cashe und die Zwischenablage leeren. Aber : Application.CutCopyMode = False das bekomme ich irgendwie nicht zum laufen. vielleicht hat auch hier jemand eine Idee

Application.ScreenUpdating = False                           

Dim Suchergebnis As Range                                    
Dim SuchWert As String                                             '
SuchWert = Range("F6")                                            
With Worksheets("OLDatenbank").Range("A1:A300")                   
Set Suchergebnis = .Find(SuchWert)                                 
If Not Suchergebnis Is Nothing Then                              

Worksheets("OLDatenbank").Cells(Suchergebnis.Row, 1).Copy           
Sheets("Ausgabe").Cells(7, 2).PasteSpecial                          
Worksheets("OLDatenbank").Cells(Suchergebnis.Row, 2).Copy          
Sheets("Ausgabe").Cells(6, 2).PasteSpecial                   

Else                                                               
MsgBox "Diese Datenbank verzeichnet nicht die von Ihnen angefragte Person."

End If                                                            

End With                                                

End Sub

Vielen Dank liebe Freunde und vlG Lucas