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
|