|
...... ich hoffe so ist es leserlich dargestellt
Hallo liebe Freunde, ich würde gerne versuchen meine Codes zu schmälern. Da ich ein Anfänger bin freue ich mich über jede Hilfe.
1. Sieht jemand eine Möglichkeit diesen Code noch schneller zu machen?
2. Wie ihr seht habe ich "Application.CutCopyMode = False" im Code allerdings ist die Zwischenablage immer noch voll.
Application.ScreenUpdating = False
Application.CutCopyMode = 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 |