VBA Worksheet Ereignis
19.12.2017 00:39:20
Shayev
ich versuche ein Makro zu schreiben, welches über das Eregnis eines Tabelleblattes mit Find aus meiner Masterliste mir die entsprechenden Daten in das Tabellenblatt mit dem Ereignis einfügt. Eigentlich ein SVERWEIS, da die Datei etwas größer wird (mehrere Tabellenblätter mit vielen SVERWEISEN) wird diese entsprechend aufgrund der Formeln automatisch langsamer(das umschalten auf die manuelle Berechnung möchte ich vermeiden). Mein Code sieht wie folgt aus:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet, rng As Object, ws2 As Worksheet
Dim lastrow As Integer, c As Integer, lastrowws As Integer
Application.ScreenUpdating = False
Set ws = ActiveSheet
lastrow = ws.Range("B1048576").End(xlUp).Row
If Intersect(ActiveCell, Range("B1:B" & lastrow)) Is Nothing Then
c = Target.Row
lastrowws = Tabelle2.Range("C1048576").End(xlUp).Row
Set rng = Tabelle2.Range(Tabelle2.Cells(4, 4), Tabelle2.Cells(lastrowws, 4)).Find(what:= _
Target.Value, LookAt:=xlWhole)
If Not rng Is Nothing Then
ws.Cells(c, 3) = Tabelle2.Cells(rng.Row, 4)
Else
End If
End If
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Leider bekomme ich in der Zeile mit Find eine Fehlermeldung--> Anwendungs - oder objektdefinierter Fehler! Weiß vielleicht jemand woran es liegen kann?
Vielen Dank im Voraus und Viele Grüße
Shayev