ich habe die folgende Funktion in einem meiner Worksheets (alle identisch aufgebaut). Dieses exemplarische Worksheet heißt "Sales", die Daten für VLOOKUP stehen in "Basic Data" und ändern sich nicht.
Bei Doppelkick auf B7 - funktioniert die Funktion auch ohne Probleme. Kopiere ich die gleiche Funktion jedoch in den VBA Bereich der anderen Worksheets (...natürlich passe ich den Namen der Daten des Ziel Worksheets entsprechend an) tut sich bei Doppelklick auf den absoluten Bezuug B7 überhaupt nichts.
Ich habe auch schon versucht die Funktion in ein Modul auszulagern und dann die Ziel Namen mit einer Variablen anzupassen - immer mit dem gleichen Ergebnis, dass die Funktion für das Sheet "Sales" funktioniert und für alle weiteren nicht. Auch habe ich schon versucht für jedes Worksheet jeweisl andere Variablen zu definieren - leider bisher ohne Erfolg.
Wo ist mein gravierender Denkfehler, was mache ich verkehrt? Bei "Sales" funktioniert es doch einwandfrei...
Für Eure Tipps und Hilfe wäre ich sehr dankbar!!!
Viele Grüße
Matthias
Option Explicit
Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Target.Address = "$B$7" Then
Dim i As Long, letzteZeile As Long
Dim Arbeitsmappe As Workbook
Dim Datenbasis As Worksheet
Dim Ziel As Worksheet
Dim Bereich As Range
Dim WsF As WorksheetFunction
Dim Value As String
Set Arbeitsmappe = ThisWorkbook
Set Datenbasis = Arbeitsmappe.Worksheets("Basic Data")
Set Ziel = ThisWorkbook.Worksheets("Sales")
letzteZeile = Datenbasis.Range("B" & Rows.Count).End(xlUp).Row
Set Bereich = Datenbasis.Range("B7:C" & letzteZeile)
Set WsF = Application.WorksheetFunction
For i = 7 To Ziel.Range("C" & Rows.Count).End(xlUp).Row
On Error Resume Next
Ziel.Range("C" & i).Value = WsF.VLOOKUP(Ziel.Range("B" & i).Value, Bereich, 2, False)
Next i
End If
End Sub