ich bin verzweifelt auf der Fehlersuche bei einem ganz simplen Code.
Nach User Suche wird eine Grafik gesucht, kopiert und eingefügt. Soweit
so gut. Dann kommt der Befehl die Zellen zu Drucken und schon ist es vorbei...Excel verbraucht auf einmal ca.23% CPU Leistung und geht nicht mehr runter(Passiert übrigens auch wenn es keine Grafiken sind sondern nur Buchstaben, Auslastung ist nur kleiner). Es hat was mit Grafiken und Screenupdating zu tun, soweit bin ich schon, aber ich bekomme es einfach nicht gelöst. Application.ScreenUptating auf False gesetzt, an mehreren Stellen und am Ende wieder auf True. Hat leider nichts gebracht. Ich bin übrigens ein VBA- Neuling.
Vielen Dank für eure Hilfe und Vorschläge im Voraus!
Hier der Code:
Sub suche()
Dim rngFind As Range
Dim strTitel As String
Application.ScreenUpdating = False
'suchdialog kreieren
strTitel = InputBox("Suche nach:", "Suchbegriff eingeben", , 5, 5)
'zu durchsuchenden spaltenumfang angeben
Set rngFind = Columns("AA").Find(strTitel, LookIn:=xlFormulas)
'zur stelle springen oder message ausgeben
Range("A3:C3").Delete
If Not rngFind Is Nothing Then
rngFind.Select
Else
MsgBox "Es wurde nichts gefunden"
End If
With ActiveCell
Range(.Offset(0, 0), .Offset(0, 2)).Copy Range("A3:C3")
End With
Application.Goto Reference:=Range("A1"), Scroll:=True
Range(Cells(3, 1), Cells(3, 3)).PrintPreview
Application.ScreenUpdating = True
'Application.ScreenUpdating = True
'.EnableEvents = True
End Sub