|
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. Egal wo ich den Satz im Code hinschiebe.
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
Vielen Dank und lg :=) |